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

ジョセフの日記

Haskellのこととか日常のこととか

ふぃっしゅ数バージョン1

またも巨大数研究wikiから練習になりそうな関数を拝借させて頂きました。
ふぃっしゅ数バージョン1については以下のリンクを参照してください。
ja.googology.wikia.com
ふぃっしゅ数バージョン1の肝は(おそらく)SS変換なのですが、数が大きすぎてそこまで計算の確認が出来てないです。

プログラムは続きを読むからどうぞ

リストをいじるような関数ではないので、定義そのままを写経しました。
S変換にて変換された幾つかの数についての結果は次のようになりました。

S[0,x+1]=[1,\_], \qquad S^2[0,x+1]=[61,\_]
S[1,x+1]=[3,\_], \qquad S[2,x+1]=[7,\_], \qquad S[3,x+1]=[61,\_]

以下プログラムです。せめてもの可読性向上の為、関数の説明を入れました。