project euler problem 29

たぶん組み合わせの出力とsort|uniqの問題だろう

import Data.List
main = print $ length $ map head $ group $ sort $ map (uncurry (^)) [(a,b)|a<-[2..100],b<-[\
2..100]]

あんまりなのでポイントフリー化してみたが余り意味が無かった。

import Data.List
main = (print.length.(map head).group.sort.(map (uncurry (^)))) [(a,b)|a<-[2..100],b<-[2..100]]