Всем привет! Почему не работает такой код
in_list :: a -> [a] -> Bool
in_list x [] = False
in_list x [c] = (x==c)
in_list x [c]++b = (x==c) || (in_list x b)
main = putStrLn( show(in_list 1 [1,2]))
На команду
ghc second.hs
second.hs:4:1: Parse error in pattern: in_list