colm-mchugh · May 10, 2017 03:56 · niaiwomattt · May 10, 2017
diff --git a/plemm.sml b/plemm.sml
 (** Question 1 **)

 fun f1() =
  (d = 32; g())
      

 fun g() =
  d + 3

 f1()
 	  
 (** Question 2 **)

 fun f2(v) = if v then "blue" else "red";

 f2(true)
 f2(0)
 f2("")
 f2(1/0)
 f2("0")
 f2("-1")
 f2(10)
 **)
 (* Question 3 *)

 val f3 = fn y => y * b
 val b = 10
 f3(3)
 	    
 (* Question 4 *)

 val x = 0;
 val f4 = fn y => let val x = 5 in y = x end;
 val a = 9;
 f4(a);
 val result = a + x;

 (* Question 5 *)

 fun make_lambda() =
  let val h = 2 in
      fn x => x - h
  end;

 val h = 13;
 val f5 = make_lambda();
 val result = f5(20);
	( Question 1 )

	fun f1() =
	(d = 32; g())


	fun g() =
	d + 3

	f1()

	( Question 2 )

	fun f2(v) = if v then "blue" else "red";

	f2(true)
	f2(0)
	f2("")
	f2(1/0)
	f2("0")
	f2("-1")
	f2(10)
	**)
	(* Question 3 *)

	val f3 = fn y => y * b
	val b = 10
	f3(3)

	(* Question 4 *)

	val x = 0;
	val f4 = fn y => let val x = 5 in y = x end;
	val a = 9;
	f4(a);
	val result = a + x;

	(* Question 5 *)

	fun make_lambda() =
	let val h = 2 in
	fn x => x - h
	end;

	val h = 13;
	val f5 = make_lambda();
	val result = f5(20);