PROGRAM 7


(*  filename:  prog12.sml     author:  anthony f. ortiz  *)
(*  this program is function that produces a power of 2 and a chain  *)

datatype chain = link of (int * (int -> chain));
 
fun f (n) =
    if n = 0 then
        1
    else
        f (n - 1) * 2;
 
fun powers_of_two (n) = link (f (n), powers_of_two);
 
powers_of_two (0);
powers_of_two (1);
powers_of_two (2);
powers_of_two (5);
powers_of_two (10);

(*  filename:  prog12.out     author:  anthony f. ortiz  *)

Standard ML of New Jersey, Version 110.0.6, October 31, 1999 [CM; autoload enabl
ed]
- use "prog12.sml";
[opening prog12.sml]
datatype chain = link of int * (int -> chain)
val f = fn : int -> int
val powers_of_two = fn : int -> chain
val it = link (1,fn) : chain
val it = link (2,fn) : chain
val it = link (4,fn) : chain
val it = link (32,fn) : chain
val it = link (1024,fn) : chain
val it = () : unit
- ^Z
Stopped (user)




BACK TO CS6140 PAGE.