myFoldl :: (a -> b -> a) -> a -> [b] -> a

myFoldl reducer init items = foldr reducer' id items init

where

reducer' item accum = accum . flip reducer item


답부터 보고 답을 전개해서 fold로 만드는건 어떻게 어떻게 이해하겠는데

다시 첨부터 어떤 아이디어를 가지고 답을 찾아냈는가를 이해 못하겠음

검색해서 이것저것 보는데 시발 머리가 뿌옇다