solution/cw5/sqr.fun
changeset 864 a24633510c0a
child 869 16247acc4b0e
equal deleted inserted replaced
863:00318ffa4676 864:a24633510c0a
       
     1 val Max : Int = 10;
       
     2 
       
     3 def sqr(x: Int) : Int = x * x;
       
     4 
       
     5 def all(n: Int) : Void = {
       
     6   if n <= Max
       
     7   then { print_int(sqr(n)) ; new_line(); all(n + 1) }
       
     8   else skip()
       
     9 };
       
    10 
       
    11 all(0)
       
    12