¥Ù¥ë¥¯¡¦¥«¥Ã¥Ä¥§
­¡¡¡­£¡¡­¥¡¡­§¡¡­©¡¡­ª
1¡¡2¡¡5¡¡13¡¡34
0¡¡1¡¡3¡¡8¡¡21¡¡34
0¡¡0¡¡0¡¡0¡¡0¡¡55
34+55¡á89
¿Þ¤ò½ñ¤¤¤Æµá¤á¤Þ¤·¤¿¡£
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 0:16:27¡¡¡¡ ¡¡¡¡54887
¥Ù¥ë¥¯¡¦¥«¥Ã¥Ä¥§
ÀÖ¤¬Â礭¤¤¤Î¤ò+1¡¢ÀĤ¬Â礭¤¤¤Î¤ò-1¡¢Æ±¤¸¤ò0¤È¤·¤Æ¡¢¾å¤«¤é+1¡¢0¡¢-1¤Ç¤¹¡£
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 0:18:08¡¡¡¡ ¡¡¡¡54888
¤ä¤Þ¤À
¥Õ¥£¥Ü¥Ê¥Ã¥Á¤«¤Ê¤¢
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 0:18:46¡¡¡¡ ¡¡¡¡54889
¤À¤¤¤¹¤±
2ËçÌܰʹߤÏ0¤âOK¤È¤·¤Æ¡¢
1, 3, 6, 14, 31, 70, 157, 353, 793, 1782
¤Ç1782Ä̤ê¤ÈÅú¤¨¤Æ¤·¤Þ¤Ã¤Æ¤¤¤Þ¤·¤¿¡¦¡¦¡¦
Á´¤Æ1°Ê¾å¤À¤Ã¤¿¤Î¤Ç¤·¤¿¡£¡£¡£
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 0:20:58¡¡¡¡ ¡¡¡¡54890
¥Ù¥ë¥¯¡¦¥«¥Ã¥Ä¥§
¡¡¡¡­¡¢ª­¢
+1¡¡¥¢¡¡¥¤
0¡¡¥¦¡¡¥¨
¥¢¢ª¥¤¤Ï2Ä̤ꡢ¥¢¢ª¥¨¡¢¥¦¢ª¥¤¡¢¥¦¢ª¥¨¤Ï1Ä̤ê
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 0:24:27¡¡¡¡ ¡¡¡¡54891
¥Ù¥ë¥¯¡¦¥«¥Ã¥Ä¥§
´Ö°ã¤¨¤¿¡¢­¡¢ª­£¤Ç¤¹¡£°Ê¹ß­©¤Þ¤ÇƱÍÍ¡£
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 0:25:19¡¡¡¡ ¡¡¡¡54892
º£Ç¯¤«¤é¹âÎð¼Ô
¥À¥¤¥¹¥±¤µ¤ó#54890¡²¤ÈƱ¤¸¤Ç2ËçÌܰʹߤÏ0¤â´Þ¤á¤Æ1782¤Ç²óÅú¤·¤ÆÊ¿Á³¤È¤·¤Æ¤¤¤Þ¤·¤¿¡£
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 0:38:47¡¡¡¡ ¡¡¡¡54893
¡Ö¿ô³Ø¡×¾®Î¹¹Ô
¥Õ¥£¥Ü¥Ê¥Ã¥Á¼°¤Ë¤·¤Þ¤·¤¿¡£
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 1:41:28¡¡¡¡ ¡¡¡¡54894
¥´¥ó¤È¤â
print time$
FOR a=1 TO 1
FOR b=1 TO 9
IF ABS(a-b)=>2 THEN GOTO 90
FOR c=1 TO 9
IF ABS(a+c-b)=>2 THEN GOTO 80
FOR d=1 TO 9
IF ABS(a+c-b-d)=>2 THEN GOTO 70
FOR e=1 TO 9
IF ABS(a+c+e-b-d)=>2 THEN GOTO 60
FOR f=1 TO 9
IF ABS(a+c+e-b-d-f)=>2 THEN GOTO 50
FOR g=1 TO 9
IF ABS(a+c+e+g-b-d-f)=>2 THEN GOTO 40
FOR h=1 TO 9
IF ABS(a+c+e+g-b-d-f-h)=>2 THEN GOTO 30
FOR i=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h)=>2 THEN GOTO 20
FOR j=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h-j)=>2 THEN GOTO 10
let s=s+1
10 NEXT j
20 NEXT i
30 NEXT h
40 NEXT g
50 NEXT f
60 NEXT e
70 NEXT d
80 NEXT c
90 NEXT b
100 NEXT a
print s
print time$
END

f9²¡¤·¤Æ¡¡

02:10:20
89 ¡¦¡¦¡¦¡¦¡¦¡¦(Åú¤¨)
02:10:20
Ë­Àî»Ô¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 2:13:45¡¡¡¡ ¡¡¡¡54895
¥´¥ó¤È¤â
#54895
½½¿ÊBasic ¤Ç

print time$
FOR a=1 TO 1
let s0=s0+1
FOR b=1 TO 9
IF ABS(a-b)=>2 THEN GOTO 90
let s1=s1+1
FOR c=1 TO 9
IF ABS(a+c-b)=>2 THEN GOTO 80
let s2=s2+1
FOR d=1 TO 9
IF ABS(a+c-b-d)=>2 THEN GOTO 70
let s3=s3+1
FOR e=1 TO 9
IF ABS(a+c+e-b-d)=>2 THEN GOTO 60
let s4=s4+1
FOR f=1 TO 9
IF ABS(a+c+e-b-d-f)=>2 THEN GOTO 50
let s5=s5+1
FOR g=1 TO 9
IF ABS(a+c+e+g-b-d-f)=>2 THEN GOTO 40
let s6=s6+1
FOR h=1 TO 9
IF ABS(a+c+e+g-b-d-f-h)=>2 THEN GOTO 30
let s7=s7+1
FOR i=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h)=>2 THEN GOTO 20
let s8=s8+1
FOR j=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h-j)=>2 THEN GOTO 10
let s9=s9+1
let s=s+1
10 NEXT j
20 NEXT i
30 NEXT h
40 NEXT g
50 NEXT f
60 NEXT e
70 NEXT d
80 NEXT c
90 NEXT b
100 NEXT a
print s0;",";s1;",";s2;",";s3;",";s4;",";s5;",";s6;",";s7;",";s8;",";s9
print time$
END

f9²¡¤·¤Æ

02:22:29
1 , 2 , 3 , 5 , 8 , 13 , 21 , 34 , 55 , 89
02:22:29
Ë­Àî»Ô¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 2:23:45¡¡¡¡ ¡¡¡¡54896
¥´¥ó¤È¤â
#54896

1,2,3,5,8,13,21,34,55,89¤Ï
¥Õ¥£¥Ü¥Ê¥Ã¥Á¿ô:F(n)=F(n-1)+F(n-2)¤Ç,F(0)=0,F(1)=1(⤷n=>2)
Ë­Àî»Ô¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 2:33:45¡¡¡¡ ¡¡¡¡54897
¥´¥ó¤È¤â
#54896

¤¹¤ß¤Þ¤»¤ó¥³¡¼¥É¤¬1²Õ½ê;ʬ¤ÇÄûÀµ¤µ¤»¤Æ¤¯¤À¤µ¤¤!!

¥³¡¼¥É¤Ç¡¡
>IF ABS(a+c+e+g+i-b-d-f-h-j)=>2 THEN GOTO 10
>let s9=s9+1
>let s=s+1

ºÇ¸å¤Î let s=s+1 ¤òºï½ü¤·¤Æ
ºï½ü¤¹¤ëÁ°¤â·ë²Ì¤ÏƱ¤¸¤Ç¡¦¡¦¡¦

print time$
FOR a=1 TO 1
let s0=s0+1
FOR b=1 TO 9
IF ABS(a-b)=>2 THEN GOTO 90
let s1=s1+1
FOR c=1 TO 9
IF ABS(a+c-b)=>2 THEN GOTO 80
let s2=s2+1
FOR d=1 TO 9
IF ABS(a+c-b-d)=>2 THEN GOTO 70
let s3=s3+1
FOR e=1 TO 9
IF ABS(a+c+e-b-d)=>2 THEN GOTO 60
let s4=s4+1
FOR f=1 TO 9
IF ABS(a+c+e-b-d-f)=>2 THEN GOTO 50
let s5=s5+1
FOR g=1 TO 9
IF ABS(a+c+e+g-b-d-f)=>2 THEN GOTO 40
let s6=s6+1
FOR h=1 TO 9
IF ABS(a+c+e+g-b-d-f-h)=>2 THEN GOTO 30
let s7=s7+1
FOR i=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h)=>2 THEN GOTO 20
let s8=s8+1
FOR j=1 TO 9
IF ABS(a+c+e+g+i-b-d-f-h-j)=>2 THEN GOTO 10
let s9=s9+1
10 NEXT j
20 NEXT i
30 NEXT h
40 NEXT g
50 NEXT f
60 NEXT e
70 NEXT d
80 NEXT c
90 NEXT b
100 NEXT a
print s0;",";s1;",";s2;",";s3;",";s4;",";s5;",";s6;",";s7;",";s8;",";s9
print time$
end
Ë­Àî»Ô¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 2:51:34¡¡¡¡ ¡¡¡¡54898
¥´¥ó¤È¤â
#54897
¤³¤Î¥³¡¼¥É¤òŤ¯¤¹¤ë¤È999Ëç¤Ê¤ó¤«¤Ï¤Ç¤­¤½¤¦¤â¤Ê¤¤¤ó¤Ç
¼«Ê¬¤Ç¡¡Maxima ¤ÇÁ²²½¼°¤ò²ò¤¤¤Æ¡¡n=1¤«¤én=999¤Þ¤Ç¤Ç

ev(-2^(-n-1)*((sqrt(5)-1)^(n+1)*(-1)^(n+1)-(sqrt(5)+1)^(n+1))/sqrt(5),n=999)$expand(%);

¤Ç·ë²Ì¤ÏŤ¹¤®¤Çά¤¢¤È1000Ëç1000·å¤Ï¥¨¥é¡¼¤Ç¤Ç¤Þ¤»¤ó¤Ç¤·¤¿¤¬
¼«Ê¬¤Çºî¤é¤º¤È¤â¡¡
Maxima ¤Î fib¤È¤¤¤¦¥³¥Þ¥ó¥É¤Ç¡¡fib(200000);
Ť¤¤Î¤Ç·ë²Ì¤Ïά(4Ëü·å¤°¤é¤¤) 199999·å¤Ç¤Ç¤Þ¤·¤¿¤¬(¤½¤ì°Ê¾å¤¤¤±¤ë¤Î¤À¤¬¤³¤³¤Þ¤Ç¤Ç¡¦¡¦¡¦)
Mathematica ¤Î¡¡web¾å¤Ç¤Îwolfram/alpha ¾å¤Ç¤Î¥³¥Þ¥ó¥ÉFibonacci[200000]
¤Çɽ¼¨¤»¤º¡¡MathematicaËÜÂΤǤÏ;͵¤Ç¤Ç¤ë¤È»×¤¤¤Þ¤¹¡£
Ë­Àî»Ô¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 18:45:00¡¡¡¡ ¡¡¡¡54899
¡Ö¿ô³Ø¡×¾®Î¹¹Ô
Îã¤Ë¤è¤Ã¤Æ£Ò£õ£â£ù¤Ç¤¹¡£ºÆµ¯´Ø¿ô¤ò»È¤Ã¤Æ¤Þ¤¹¡£
$n=0
def f(so,se,c)
¡¡¡¡if c<=10 then
¡¡¡¡¡¡¡¡if c%2==0 then
¡¡¡¡¡¡¡¡¡¡¡¡f(so,se+1,c+1)
¡¡¡¡¡¡¡¡¡¡¡¡if so>se then f(so,se+2,c+1) end
¡¡¡¡¡¡¡¡else
¡¡¡¡¡¡¡¡¡¡¡¡f(so+1,se,c+1)
¡¡¡¡¡¡¡¡¡¡¡¡if so<se then f(so+2,se,c+1) end
¡¡¡¡¡¡¡¡end
¡¡¡¡else
¡¡¡¡$n+=1
¡¡¡¡end
end
f(0,0,1)
p $n
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 20:00:51¡¡¡¡ ¡¡¡¡54900
¡Ö¿ô³Ø¡×¾®Î¹¹Ô
Á²²½¼°¤ò¥×¥í¥°¥é¥à¤Ë¤·¤Æ¤ß¤ë¤È¡¢

def f(a,b,n)
¡¡¡¡if n<10 then
¡¡¡¡¡¡¡¡f(b,a+b,n+1)
¡¡¡¡else
¡¡¡¡¡¡¡¡p b
¡¡¡¡end
end
f(1,2,2)
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 20:12:53¡¡¡¡ ¡¡¡¡54901
¥¹¥â¡¼¥¯¥Þ¥ó
½ñ¤­½Ð¤·¤Æ¤ß¤ë¤È...
¥Õ¥£¥Ü¥Ê¥Ã¥Á¥¢¥ó¤Ç¤¹¤Í¡ª¡ª
ºÇ½é¥«¥¿¥é¥ó¿ô¤â¤É¤­¤«¤È»×¤¦¤âÆþ¤ì¤ºÄü¤á¤Æ¤Þ¤·¤¿...^^;
¡¡¡¡ 9·î10Æü¡ÊÌÚ¡Ë 21:13:57¡¡¡¡ ¡¡¡¡54902
N¤ÎÈá·à²ÈÄí¶µ»ÕÊԡʲÈÄí¶µ»Õ¤ÎNÀèÀ¸¡Ë
ɽ¤òÍøÍÑ¡£
ÀÖ¿¤¤¡¢ÀÄ¿¤¤¡¢Æ±¿ô¡¢¹ç·×¤È¤¤¤¦Íó¤ò½ÄÊý¸þ¤Ëºî¤Ã¤Æ¿ô»ú¤ò½ñ¤­¹þ¤ó¤Ç¤¤¤¯¤È¡¢¼êÁ°¤Î·ë²Ì¤ò2²Õ½êÍøÍѤ¹¤ë¥Õ¥£¥Ü¥Ê¥Ã¥Á¿ôÎó¤Ë¤Ê¤ë¡£
¡¡¡¡ 9·î11Æü¡Ê¶â¡Ë 1:47:28¡¡¡¡ ¡¡¡¡54903