On Thu, 15 Feb 2007 23:17:11 +0100, Gene A
A couple of functions: Prelude> let box a = a:[] Prelude> let formatTableItems (a,b) = (box a) ++ " = " ++ (show b) ++ "\n"
This can be done simpler:
formatTableItems (a,b) = [a] ++ " = " ++ (show b) ++ "\n"
Yet simpler:
formatTableItems (a,b) = a : " = " ++ (show b) ++ "\n"
To improve further:
formatTableItems (a,b) = a : " = " ++ (show b) ++ "\n" putStrLn $ foldr (++) "\n"$ map formatTableItems lowerCaseTable can be replaced with: formatTableItems (a,b) = a : " = " ++ (show b) putStrLn $ unlines $ map formatTableItems lowerCaseTable
-- Met vriendelijke groet, Henk-Jan van Tuyl -- http://Van.Tuyl.eu/ -- Using Opera's revolutionary e-mail client: https://secure.bmtmicro.com/opera/buy-opera.html?AID=789433