From 8b6acc85633520f109d348c5e46c8a89521b3932 Mon Sep 17 00:00:00 2001 From: Flavian Kaufmann Date: Wed, 21 May 2025 14:05:27 +0200 Subject: procedures --- example/example.imp | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) (limited to 'example') diff --git a/example/example.imp b/example/example.imp index b52d2da..a5bc5dd 100644 --- a/example/example.imp +++ b/example/example.imp @@ -1,13 +1,12 @@ -y := 0; - -var x := 5 in - - while x < 10 and true do - x := (x + 1); +procedure factorial(n;r) begin + if n <= 0 then + r := 1; + else + m := n - 1; + factorial(m;r); + r := r * n; end; - - y := x; - end; -z := 5; \ No newline at end of file +n := 5; +factorial(n;r); \ No newline at end of file -- cgit v1.2.3