18/11/07 22:25:07.13 PN+gm2kl.net
>>573
７番目だと変わらないみたいだけど
整数の候補の上限を変えたら答が変わるな。
pitNth n m = do
let ps = [(a,b,c)|a<-[1..m],b<-[a..m],c<-[b..m],a^2+b^2==c^2]
map (\x -> ps !! x)
18/11/07 22:25:07.13 PN+gm2kl.net
>>573
７番目だと変わらないみたいだけど
整数の候補の上限を変えたら答が変わるな。
pitNth n m = do
let ps = [(a,b,c)|a<-[1..m],b<-[a..m],c<-[b..m],a^2+b^2==c^2]
map (\x -> ps !! x)