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]]