|
中村明海 |
|
UBASIC なら２００桁でも一瞬。
最後の８けた、ちゃんとあってるでしょ。 10 V5=1:V2=1 20 for I=1 to 200 30 if A@2=0 then A=A\2+V5 else A=(A+V5)\2 40 V5=V5*5:V2=V2*2:B=A*V2 60 next 70 print B 12111111 12121222 22122112 22122122 21211221 12212211 12222121 22121212 11211121 11222221 12222122 11211112 12121211 21121122 11212112 11121122 12221121 22211121 22111122 21211221 21211121 21121122 11111211 12111112 12122112 |
|
Muroran
10月24日（木） 17:17:21
MAIL:naka@sansu.org HomePage:naka's Home Page 17267 |