diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/example.imp | 12 | ||||
| -rw-r--r-- | examples/factorial.imp | 1 |
2 files changed, 8 insertions, 5 deletions
diff --git a/examples/example.imp b/examples/example.imp index de76b27..c60caa3 100644 --- a/examples/example.imp +++ b/examples/example.imp @@ -1,11 +1,13 @@ -f1 := 0; -f2 := 1; +/* computes the n-th fibonacci number */ + +fib := 0; +fibnext := 1; n := 5; while n # 0 do - var tmp := f2 in - f2 := f1 + f2; - f1 := tmp; + var tmp := fibnext in + fibnext := fib + fibnext; + fib := tmp; end; n := n - 1; end;
\ No newline at end of file diff --git a/examples/factorial.imp b/examples/factorial.imp index 0ab74cd..4cb47ed 100644 --- a/examples/factorial.imp +++ b/examples/factorial.imp @@ -1,3 +1,4 @@ +/* computes n!, result is stored in r. */ procedure factorial(n;r) begin if n <= 0 then r := 1; |