ラマヌジャン数
アンサイクロペディアのPythonの項に感銘を受けたので書いてみました。
ramanujan1 = head [y|(y,i,j)<-pre, (x,k,l)<-pre, y==x,i/=k ,j/=l,i/=l] where pre=[(i^3+j^3,i,j)|i<-ll, j<-ll] where ll=[1..]
しかし無限リストにすると数分待っても計算が終わりませんでした。(Mac book air, ghc 7.0.3) リストの部分を有限にすると値が出てきます。