changeset 894 | 02ef5c3abc51 |
parent 893 | 54a483a33763 |
child 895 | 2f5a87ecdc81 |
--- a/solution/cw5/sqr.fun Fri Oct 28 09:08:13 2022 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,15 +0,0 @@ -val Max : Int = 10; - -def sqr(x: Int) : Int = x * x; - -def all(n: Int) : Void = { - if n <= Max - then { print_int(sqr(n)) ; new_line(); all(n + 1) } - else skip() -}; - -{ - print_string("Squares"); - new_line(); - all(0) -} \ No newline at end of file