Data commit

Task/Named-parameters/Standard-ML/named-parameters-1.ml

@@ -0,0 +1,3 @@
+fun dosomething (a, b, c) = print ("a = " ^ a ^ "\nb = " ^ Real.toString b ^ "\nc = " ^ Int.toString c ^ "\n")
+
+fun example {a, b, c} = dosomething (a, b, c)

Task/Named-parameters/Standard-ML/named-parameters-2.ml

@@ -0,0 +1 @@
+example {a="Hello World!", b=3.14, c=42}

Task/Named-parameters/Standard-ML/named-parameters-3.ml

@@ -0,0 +1,12 @@
+datatype param = A of string | B of real | C of int
+
+fun args xs =
+	let
+	  (* Default values *)
+	  val a = ref "hello world"
+	  val b = ref 3.14
+	  val c = ref 42
+	in
+	  map (fn (A x) => a := x | (B x) => b := x | (C x) => c := x) xs;
+	  (!a, !b, !c)
+	end

Task/Named-parameters/Standard-ML/named-parameters-4.ml

@@ -0,0 +1 @@
+dosomething (args [A "tam", B 42.0]);