Yet another higher order solution:

dropWhile' p0 xs = foldr f (const []) xs $ p0
  where
    f y ys p | p y       = ys p
             | otherwise = y : ys (const False)


Spencer Janssen
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to