infix 4 `inlist`
tag1 x = (1,x)
x `inlist` [] = False
x `inlist` (y:ys) = if x==y then True else x `inlist` ys
mymap :: (a -> b) -> [a] -> [b]
mymap f [] = []
mymap f (x:xs) = (f x) : (mymap f xs)
mysum [] = 0
mysum (x:xs) = (+) x (mysum xs)
myprod [] = 1
myprod (x:xs) = (*) x (myprod xs)
myand [] = True
myand (x:xs) = (&&) x (myand xs)
myfoldr op e [] = e
myfoldr op e (x:xs) = op x (myfoldr op e xs)
k x = \ y -> x
plusn n = (\ x -> x + n)
x = [1,2,3,4]
y = ["a","b","c","d"]
next n a = (a + (n/a) )/ 2.0
within eps (a : b : rest) =
 if abs( (a/b) -1.0 ) <= eps then b else within eps (b : rest) split 0 x = ([],x) split n [] = ([],[]) split n (x:xs) = (x:ys,zs) where (ys,zs) = split (n-1) xs --