原です。

唐突ですが、問題です。

自然数のペアで、3乗の和が等しくなるもののリストを100個あげて
ください。

たとえば

1729 = 9**3 + 10**3 = 1**3 + 12**3
4104 = 9**3 + 15**3 = 2**3 + 16**3
...

という感じです。

投稿してくれた方にはもれなく Haskell による驚くべき解答をプレゼ
ントします。