sols

Author: Joydeep Mitra

exercises/fib-sol.sml

@@ -0,0 +1,9 @@
+fun fibtr(a, b, 0) = a
+| fibtr(a, b, 1) = b
+| fibtr(a, b, count)  = fibtr(b, a+b, count-1);
+
+fun fib n = fibtr(0, 1, n);
+
+fib(10) = 55;
+fib(8) = 21;
+fib(2) = 1;

exercises/max-sol.sml

@@ -0,0 +1,6 @@
+fun maxm [] = 0
+| maxm [m] = m
+| maxm(m::n::ns) = if m > n then maxm(m::ns) else maxm(n::ns);
+
+maxm([43,25,2,4,2434]);
+maxm([]);

exercises/prod-sol.sml

@@ -0,0 +1,7 @@
+fun prod_t ([], r) = r
+| prod_t ((n::ns), r) = prod_t (ns, n*r);
+
+fun prod l = prod_t(l, 1);
+
+prod([2,3,4,5]) = 120;
+prod([]) = 1;