Data commit

Task/FizzBuzz/MLite/fizzbuzz.mlite

@@ -0,0 +1,15 @@
+local
+	fun fizzbuzz'
+			(x mod 15 = 0) = "FizzBuzz"
+		|	(x mod  5 = 0) = "Buzz"
+		|	(x mod  3 = 0) = "Fizz"
+		|	x = ntos x
+in		
+	fun fizzbuzz
+			([], s) = rev s
+		|	(x :: xs, s) = fizzbuzz (xs, fizzbuzz' x :: s)
+		|	(x :: xs)    = fizzbuzz (x :: xs, [])
+end
+;
+
+println ` fizzbuzz ` iota 100;