以下の記事の補足： zehnpaard.hatenablog.com 式をいじっていて気付いたのだが、不動点コンビネータを使った解は： dropWhile p = foldr (const f) undefined (repeat undefined) where f _ [] = [] f g ys@(x:xs) = if p x then g xs else ys に落とし込め…