140文字で円周率を計算 C=999DIM A(C)F=100 @1 E=D%F:D=E FOR B=C-1TO 1STEP -1G=B*2-1D=D*B+F*(A(B)+!P*20)A(B)=D%G D=0OR(D/G)NEXT P=0OR E+D/F?"0"*(P<10);P; C=C-9GOTO@1ちょうど140文字のプログラムで円周率222桁を出力することができました。 (エラー…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。