|
ベルク・カッツェ |
|
� ´� �ァ´А´� ��
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 |
|
「数学」小旅行 |
|
例によってRubyです。再起関数を使ってます。
$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 |