From: Mart Lubbers Date: Tue, 20 May 2014 14:20:58 +0000 (+0200) Subject: kleine foutjes in faculteit X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=c3f85e8efada24f1726cea9302b3091782ff8454;p=sec1415.git kleine foutjes in faculteit --- 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