aboutsummaryrefslogtreecommitdiff
path: root/examples/example.imp
diff options
context:
space:
mode:
Diffstat (limited to 'examples/example.imp')
-rw-r--r--examples/example.imp12
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