Submission #1520529

---

Source Code Expand

main = putStrLn =<< p . all s . zip <$> getLine <*> getLine

s (x, y)
  | x == y = True
  | x == '@' && y `elem` "atcoder" = True
  | y == '@' && x `elem` "atcoder" = True
  | otherwise = False

p True = "You can win"
p False = "You will lose"

Submission Info

Compile Error

Main.hs:1:21:
    Couldn't match type ‘[Char]’ with ‘String -> String’
    Expected type: Bool -> String -> String
      Actual type: Bool -> [Char]
    In the first argument of ‘(.)’, namely ‘p’
    In the first argument of ‘(<$>)’, namely ‘p . all s . zip’

Main.hs:1:33:
    Couldn't match type ‘[(Char, b0)]’ with ‘(Char, Char)’
    Expected type: [Char] -> [b0] -> (Char, Char)
      Actual type: [Char] -> [b0] -> [(Char, b0)]
    In the second argument of ‘(.)’, namely ‘zip’
    In the second argument of ‘(.)’, namely ‘all s . zip’