member
:: (Eq a
) => a
-> [a
] -> Boolmember y [] = False
member y (x:xs) = (x == y) || member y xs
main
= print $ member
3 [1..5]
bWVtYmVyIDo6IChFcSBhKSA9PiBhIC0+IFthXSAtPiBCb29sCm1lbWJlciB5IFtdID0gRmFsc2UKbWVtYmVyIHkgKHg6eHMpID0gKHggPT0geSkgfHwgbWVtYmVyIHkgeHMKCgptYWluID0gcHJpbnQgJCBtZW1iZXIgMyBbMS4uNV0=