[Haskell-cafe] ANNOUNCE: The Monad.Reader - Issue 6

[Spencer Janssen]

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