From 6ef8829451871b534572d47312ae255dee088588 Mon Sep 17 00:00:00 2001 From: Flavian Kaufmann Date: Thu, 22 May 2025 13:23:18 +0200 Subject: cleanup --- examples/example.imp | 21 ++++++++++----------- examples/factorial.imp | 9 +++++++++ 2 files changed, 19 insertions(+), 11 deletions(-) create mode 100644 examples/factorial.imp (limited to 'examples') diff --git a/examples/example.imp b/examples/example.imp index a5bc5dd..de76b27 100644 --- a/examples/example.imp +++ b/examples/example.imp @@ -1,12 +1,11 @@ -procedure factorial(n;r) begin - if n <= 0 then - r := 1; - else - m := n - 1; - factorial(m;r); - r := r * n; - end; -end; - +f1 := 0; +f2 := 1; n := 5; -factorial(n;r); \ No newline at end of file + +while n # 0 do + var tmp := f2 in + f2 := f1 + f2; + f1 := tmp; + end; + n := n - 1; +end; \ No newline at end of file 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 -- cgit v1.2.3