voodootikigod · February 10, 2009 02:36
diff --git a/gistfile1.hs b/gistfile1.hs
 mytakewhile        :: (a -> Bool) -> [a] -> [a]
 mytakewhile pred xs = foldr step [] xs
    where step x ys
              | pred x    = ys
              | otherwise = [x] ++ ys
	mytakewhile :: (a -> Bool) -> [a] -> [a]
	mytakewhile pred xs = foldr step [] xs
	where step x ys
	\| pred x = ys
	\| otherwise = [x] ++ ys