2016 Update

Task/Trabb-Pardo-Knuth-algorithm/Ela/trabb-pardo-knuth-algorithm.ela

@@ -1,15 +1,24 @@
-open random number list console format read
+open monad io number string
 
-run () =
-  writen "Please enter 11 numbers:" $
-  xs () |> iter
-  where xs () = [0..10] |> map (\_ -> readStr <| readn ())
-        f x = sqrt (toSingle x) + 5.0 * (x ** 3.0)
+:::IO
+
+take_numbers 0 xs = do
+  return $ iter xs
+  where f x = sqrt (toSingle x) + 5.0 * (x ** 3.0)
         p x = x < 400.0
-        iter [] = ()
+        iter [] = return ()
         iter (x::xs)
-          | p res = printfn "f({0}) = {1}" x res $ iter xs
-          | else  = printfn "f({0}) :: Overflow" x $ iter xs
+          | p res = do
+              putStrLn (format "f({0}) = {1}" x res)
+              iter xs
+          | else = do
+              putStrLn (format "f({0}) :: Overflow" x)
+              iter xs
           where res = f x
+take_numbers n xs = do
+  x <- readAny
+  take_numbers (n - 1) (x::xs)
 
-run ()
+do
+  putStrLn "Please enter 11 numbers:"
+  take_numbers 11 []