diff options
| author | Flavian Kaufmann <flavian@flaviankaufmann.ch> | 2025-05-22 12:57:22 +0200 |
|---|---|---|
| committer | Flavian Kaufmann <flavian@flaviankaufmann.ch> | 2025-05-22 12:57:22 +0200 |
| commit | 027fc783faa9a25b373099e0e0f86d3859b7235d (patch) | |
| tree | 6cbd9265634c5ccc47d3c5b7bd00ede863affd20 /examples | |
| parent | be21cdaa9f408535379360b401089c8e2335e818 (diff) | |
| download | imp-027fc783faa9a25b373099e0e0f86d3859b7235d.tar.gz imp-027fc783faa9a25b373099e0e0f86d3859b7235d.zip | |
updated readme
Diffstat (limited to 'examples')
| -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 |