solution/cw5/sqr.fun
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