solution/cw5/sqr.fun
changeset 894 4d5058706f1b
parent 893 908e4f6cdf7c
child 895 550676e542d2
--- 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