Cross Reference: ex_list.hs
xref
: /
hets
/
Haskell
/
test
/
HOL
/
ex_list.hs
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
funOne :: Eq a => [a] -> [a] -> Bool
myMap :: [a] -> (a -> b) -> [b]
funOne x y = if x == (head x) : (tail y) then True else False
myMap x f = case x of
[] -> []
a : as -> (f a) : myMap as f