ベル数 - 暇つぶし2ch

ベル数 at TECH

1:some one
23/08/03 17:41:58.16 r+lEYW0A.net
REM 最初の100個のベル数を出力します。十進basicを使っています。1000桁モードで実行してください。
OPTION BASE 0
DIM B(105)
LET B(0)=1
LET B(1)=1
LET s=0
FOR n=1 TO 100
FOR k=0 TO n
LET s=s+comb(n,k)*B(k)
NEXT K
PRINT n;s
LET B(n+1)=s
LET s=0
NEXT N
END

レスを読む