Sync

Task/Trabb-Pardo-Knuth-algorithm/Haskell/trabb-pardo-knuth-algorithm.hs

@@ -1,9 +1,10 @@
-import Control.Monad (replicateM_)
+import Control.Monad (replicateM, mapM_)
 
 f x = (abs x) ** 0.5 + 5 * x ** 3
 
 main = do
         putStrLn "Enter 11 numbers for evaluation"
-        replicateM_ 11 $ getLine >>= (\x -> if x>400
-                                                 then putStrLn "OVERFLOW"
-                                                 else print x).f.read
+        x <- replicateM 11 $ readLn
+        mapM_ ((\x -> if x > 400
+                      then putStrLn "OVERFLOW"
+                      else print x). f) $ reverse x

Task/Trabb-Pardo-Knuth-algorithm/Icon/trabb-pardo-knuth-algorithm.icon

@@ -0,0 +1,11 @@
+procedure main()
+    S := []
+    writes("Enter 11 numbers: ")
+    read() ? every !11 do (tab(many(' \t'))|0,put(S, tab(upto(' \t')|0)))
+    every item := !reverse(S) do
+        write(item, " -> ", (400 >= f(item)) | "overflows")
+end
+
+procedure f(x)
+   return abs(x)^0.5 + 5*x^3
+end

Task/Trabb-Pardo-Knuth-algorithm/Racket/trabb-pardo-knuth-algorithm.rkt

@@ -0,0 +1,12 @@
+#lang racket
+
+(define input
+  (for/list ([i 11])
+    (printf "Enter a number (~a of 11): " (+ 1 i))
+    (read)))
+
+(for ([x (reverse input)])
+  (define res (+ (sqrt (abs x)) (* 5 (expt x 3))))
+  (if (> res 400)
+      (displayln "Overflow!")
+      (printf "f(~a) = ~a\n" x res)))