David Tran’s blog

f xs = map (\x -> (x+1)/2) xs
g xs = map ((/2).(+1)) xs

----- test -----
main = do
  putStrLn $ show $ f [1..10]
  putStrLn $ show $ g [1..10]
  putStrLn $ show $ f [1..10] == g [1..10]

This entry was posted on Wednesday, June 6th, 2007 at 3:23 pm and is filed under Haskell - SOE. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.