fork download
  1. member :: (Eq a) => a -> [a] -> Bool
  2. member y [] = False
  3. member y (x:xs) = (x == y) || member y xs
  4.  
  5.  
  6. main = print $ member 3 [1..5]
Success #stdin #stdout 0.02s 3580KB
stdin
Standard input is empty
stdout
True