diff options
Diffstat (limited to 'examples/example.imp')
-rw-r--r-- | examples/example.imp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/examples/example.imp b/examples/example.imp new file mode 100644 index 0000000..a5bc5dd --- /dev/null +++ b/examples/example.imp @@ -0,0 +1,12 @@ +procedure factorial(n;r) begin + if n <= 0 then + r := 1; + else + m := n - 1; + factorial(m;r); + r := r * n; + end; +end; + +n := 5; +factorial(n;r);
\ No newline at end of file |