0561132人目の素数さん垢版 | 大砲2018/06/19(火) 21:50:15.91ID:PSHlXrbV length $ filter ((==1).(length)) $ group $ sort [(a+b+c+d+e)|a<-[0..8],b<-[0,5,10,15],c<-[0,10,20],d<-[0,50,100],e<-[0,100,200,300]] 72