ポイントフリースタイル

ヒビルテのお話…と直接関係あるかどうか知らないけど、昔Haskellのコードを書き始めた頃、2chでこんなコードを見つけました。

f = flip ((length .) . filter . (. length . filter id) . (==)) .  
    (foldl ((=<<) . (. (return .) . (:)) . (>>=) ) [[]]) . (flip replicate [True, False])

さて問題です。これは何を計算する関数でしょうか？w

いやぁ、初心者だった当時は見ても何がどうなってるのかさっぱりわからんかったけど、今見ても何がなんだかさっぱりわかりません。しかも遅いし。

これ見て「ポイントフリースタイルって嘘じゃね？」という結論に至った当時の私でありました。えっ、違う？