CDE

Task/Create-an-HTML-table/Haskell/create-an-html-table.hs

@@ -0,0 +1,20 @@
+#!/usr/bin/runhaskell
+
+import Control.Monad (forM_)
+import System.Random
+import Data.List as L
+
+import Text.Blaze.Html5
+import Text.Blaze.Html.Renderer.Pretty
+
+makeTable :: RandomGen g => [String] -> Int -> g -> Html
+makeTable headings nRows gen =
+  table $ do
+    thead $ tr $ forM_ (L.map toHtml headings) th
+    tbody $ forM_ (zip [1 .. nRows] $ unfoldr (Just . split) gen)
+      (\(x,g) -> tr $ forM_ (take (length headings)
+                                  (x:randomRs (1000,9999) g)) (td . toHtml))
+
+main = do
+  g <- getStdGen
+  putStrLn $ renderHtml $ makeTable ["", "X", "Y", "Z"] 3 g