История изменений
Исправление unclechu, (текущая версия) :
module Main where
import Text.Read (readEither)
main :: IO ()
main = z l 0
l :: [Integer]
l = [8, 5, 9]
z :: [Integer] -> Integer -> IO ()
z accumulator x
| x < 2 = do
a <- getLine
b <- either fail pure $ readEither a
z (accumulator ++ [b]) (succ x)
| otherwise = print accumulator
Исходная версия unclechu, :
module Main where
import Text.Read (readEither)
main :: IO ()
main = z l 0
l :: [Integer]
l = [8, 5, 9]
z accumulator x
| x < 2 = do
a <- getLine
b <- either fail pure $ readEither a
z (accumulator ++ [b]) (succ x)
| otherwise = print accumulator