diff options
| author | Flavian Kaufmann <flavian@flaviankaufmann.ch> | 2025-05-22 13:23:18 +0200 |
|---|---|---|
| committer | Flavian Kaufmann <flavian@flaviankaufmann.ch> | 2025-05-22 13:23:18 +0200 |
| commit | 6ef8829451871b534572d47312ae255dee088588 (patch) | |
| tree | 3652795378f330452d8752dd9d1783a74a620d78 /examples/factorial.imp | |
| parent | 027fc783faa9a25b373099e0e0f86d3859b7235d (diff) | |
| download | imp-6ef8829451871b534572d47312ae255dee088588.tar.gz imp-6ef8829451871b534572d47312ae255dee088588.zip | |
cleanup
Diffstat (limited to 'examples/factorial.imp')
| -rw-r--r-- | examples/factorial.imp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/examples/factorial.imp b/examples/factorial.imp new file mode 100644 index 0000000..0ab74cd --- /dev/null +++ b/examples/factorial.imp @@ -0,0 +1,9 @@ +procedure factorial(n;r) begin + if n <= 0 then + r := 1; + else + m := n - 1; + factorial(m;r); + r := r * n; + end; +end;
\ No newline at end of file |