ベルク・カッツェ
� ´� �ァ´А´� ��
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