Submission #1799272

---

Source Code Expand

import Control.Applicative
import Control.Monad

main :: IO ()
main = do
    -- 整数の入力
    n <- readLn
    -- スペース区切り整数の入力
    l <- sequence $ replicate n readLn
    -- 出力
    putStrLn $ show minimum l

Submission Info

Compile Error

Main.hs:11:16:
    Couldn't match expected type ‘[a0] -> String’
                with actual type ‘[Char]’
    Relevant bindings include l :: [a0] (bound at Main.hs:9:5)
    The function ‘show’ is applied to two arguments,
    but its type ‘(t0 a1 -> a1) -> String’ has only one
    In the second argument of ‘($)’, namely ‘show minimum l’
    In a stmt of a 'do' block: putStrLn $ show minimum l