読者です 読者をやめる 読者になる 読者になる

xiangze's sparse blog

機械学習、ベイズ統計、コンピュータビジョンと関連する数学について

ラマヌジャン数

アンサイクロペディア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) リストの部分を有限にすると値が出てきます。