Name: Anonymous 2008-10-11 10:39
mymap :: ( a -> b ) -> [a] -> [b]
mymap fn [] = []
mymap fn list = (fn (head list)) : (mymap fn (tail list))qsort [] = []
qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (>= x) xs)Holy Sussman I can see FOREVER