(i,j) の無限リストを得ようとして，素朴にこんな風にやっても期待通りにはいかない。 Prelude> [(i,j) | i <- [0..], j <- [0..]] [(0,0),(0,1),(0,2),(0,3),(0,4),(0,5),(0,6),(0,7),(0,8),(0,9),(0,10),(0,11),(0,12 ),(0,13),(0,14),(0,15),(0,16),(0,17…

互いに素である３数からなるピタゴラス数を原始的な（または素な）ピタゴラス数というらしい。 cf. http://ja.wikipedia.org/wiki/%E3%83%94%E3%82%BF%E3%82%B4%E3%83%A9%E3%82%B9%E6%95%B0これには公式があって，内包表記で次のように書ける。公式について…