repositories
/
sec1415.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ac16d9f
)
kleine foutjes in faculteit
author
Mart Lubbers
<mart@martlubbers.net>
Tue, 20 May 2014 14:20:58 +0000
(16:20 +0200)
committer
Mart Lubbers
<mart@martlubbers.net>
Tue, 20 May 2014 14:20:58 +0000
(16:20 +0200)
an_faculteit.tex
patch
|
blob
|
history
diff --git
a/an_faculteit.tex
b/an_faculteit.tex
index
2bb5491
..
ae9178f
100644
(file)
--- a/
an_faculteit.tex
+++ b/
an_faculteit.tex
@@
-23,13
+23,12
@@
MARKERING A:
// x-1
// x-1
- // Twee waardes ervoor gepushed dus $n=n+2$
- // Un(3)
-push 3 //
+ // Un(2)
+push 2 //
push 1 //
roll //
dup //
push 1 //
roll //
dup //
-push
4
//
+push
3
//
push 1 //
roll //
push 1 //
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:
// 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
PAD B:
// y:=y*x
@@
-56,7
+56,7
@@
push 3 // Un(2+1)
push 2 //
roll //
dup //
push 2 //
roll //
dup //
-push
5
//
+push
4
//
push 1 //
roll //
mul // x*y
push 1 //
roll //
mul // x*y
@@
-68,10
+68,18
@@
push 2
push 1
roll
// x:=x-1
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 1 //
sub // x-1
-push
2 // Ass(1
)
+push
3 // Ass(2
)
push 1
roll
pop
push 1
roll
pop