werkende faculteit, moet nog schoongemaakt worden
[sec1415.git] / an_faculteit.tex
index ae9178f..9f11a53 100644 (file)
@@ -60,13 +60,11 @@ push 4      //
 push 1      //
 roll        //
 mul         // x*y
-push 3      // Ass(2)
-push 2
-roll
-pop
-push 2
+push 2      // Ass(1)
 push 1
 roll
+pop
+
             // x:=x-1
 push 2      // Un(2)
 push 1
@@ -80,8 +78,11 @@ roll
 push 1      // 
 sub         // x-1
 push 3      // Ass(2)
+push 2
+roll 
+pop
+push 2
 push 1
 roll
-pop         
             // nu gaat het programma weer via een wit pad naar markering A
 \end{lstlisting}