18/11/08 14:48:30.64 PGJy3ILP.net
ピタゴラス数の問題に嵌ってしまったぜい。
Haskellの練習課題dにいいな。
Prelude> m=50
Prelude> ps=[(a,b,c)|a<-[1..m],b<-[a..floor(m^2/2-1/2)],c<-[b..2*b],a^2+b^2==c^2]
Prelude> ps !! 99
18/11/08 14:48:30.64 PGJy3ILP.net
ピタゴラス数の問題に嵌ってしまったぜい。
Haskellの練習課題dにいいな。
Prelude> m=50
Prelude> ps=[(a,b,c)|a<-[1..m],b<-[a..floor(m^2/2-1/2)],c<-[b..2*b],a^2+b^2==c^2]
Prelude> ps !! 99