From c3f85e8efada24f1726cea9302b3091782ff8454 Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Tue, 20 May 2014 16:20:58 +0200
Subject: [PATCH] kleine foutjes in faculteit
---
an_faculteit.tex | 24 ++++++++++++++++--------
1 file changed, 16 insertions(+), 8 deletions(-)
diff --git a/an_faculteit.tex b/an_faculteit.tex
index 2bb5491..ae9178f 100644
--- a/an_faculteit.tex
+++ b/an_faculteit.tex
@@ -23,13 +23,12 @@ MARKERING A:
// x-1
- // Twee waardes ervoor gepushed dus $n=n+2$
- // Un(3)
-push 3 //
+ // Un(2)
+push 2 //
push 1 //
roll //
dup //
-push 4 //
+push 3 //
push 1 //
roll //
push 1 //
@@ -46,7 +45,8 @@ pointer // als x=0 dan draait de DP niet en gaat het programma naar pad B
// als x$\neq$ dan draait de DP en gaat het programma naar pad A
PAD A:
-skip //een oneindig aantal witte blokken, y is nu x!
+skip // een oneindig aantal witte blokken, y is nu x!
+ // evt een outchar om $y$ naar standardout te printen
PAD B:
// y:=y*x
@@ -56,7 +56,7 @@ push 3 // Un(2+1)
push 2 //
roll //
dup //
-push 5 //
+push 4 //
push 1 //
roll //
mul // x*y
@@ -68,10 +68,18 @@ push 2
push 1
roll
// x:=x-1
-dup // Un(1)
+push 2 // Un(2)
+push 1
+roll
+dup
+push 3
+push 1
+roll
+
+
push 1 //
sub // x-1
-push 2 // Ass(1)
+push 3 // Ass(2)
push 1
roll
pop
--
2.20.1