リストを逆順に表示です。 main = do putStr $ unlines $ map show $ reverse [1, 2, 3, 4, 5] reverseを使わないのであればこれ。 main = do putStr $ unlines $ map show $ rev [1, 2, 3, 4, 5] rev :: [a] -> [a] rev [] = [] rev (x:xs) = rev(xs) ++ [x]