年末からどうも体の具合がおかしく，卒論の手直しが思うように進まない．
背中がゾクゾクするし風邪かと思うのだが，どうも花粉症的な症状に近い．
そういえばこのところ毎年正月前後に体の調子が悪くなる．
ようやく一息つけると，気持ちが油断するのかもしれない．
おまけに今年に限っては算数科研究ネタを急ピッチで作り上げねばならず，結構ピンチ．
で，年末に手に入れたネタ本が結構使えそう．
名門中学の算数入試問題をもとに数学とはなんぞや，を説いてくれる本だ．
- 作者: 小田敏弘
- 出版社/メーカー: 日本実業出版社
- 発売日: 2015/11/19
- メディア: 単行本
- この商品を含むブログを見る
その第一章はとにかくやってみなはれ，という内容．
第1章「考える力」よりも大事な「やってみる力」
うん，もうこの15年ほど手の動かない学生を見ていていつも思うことだ．
つべこべ言わず，まずあれこれやってみなはれ，だ．
ついでにいうと，数学なんて本当は最初から授業やテキストで学ぶものなんかじゃない，あれこれやってみての「どうして」がそもそも無いと，お経を唱えるのとさして変わらない，と思う．
で，何はともあれ算数科研究ネタ作成に脅されながら，初めの問題をみる．
1□2□3□4□5=2□3□4□5□6
の□には×か+が入ります．
この式が正しくなるような×と+の入れ方を2通り見つけなさい．
（2008年 麻布中学入試）
さて，こういう問題，下手に数学慣れしていると何か一般法則を見つけようとしてかえって手が動かなくなるかもしれない．
けれど，これは小学生の問題，とにかくあれこれやって探せ，という単純な問題と思ったほうが早く答えが見るかる．
いや，学生にやらせる前にまず自分で探さなきゃ，なのだけど，もう頭がぐぁんぐぁん，背中もゾクゾクの状態なので，一つ答えを見つけたところで10進BASICに解かせることにした．
ズルい，の極みである．
もちろんついでなので問題を
連続する1,2,...,nと2,3,...,n+1の間に×か+を入れて成り立つ等式を探す．
にして，ただし，n<9，つまり一桁の数で収まるように限定して作ることにした．
まず
1□2=2□3と1□2□3=2□3□4
には解がなかった．
1□2□3□4=2□3□4□5
の解は
の3つ．
1□2□3□4□5=2□3□4□5□6
の解は
の2つ．
1□2□3□4□5□6=2□3□4□5□6□7
の解は
の4つ．
1□2□3□4□5□6□7=2□3□4□5□6□7□8
の解は
の9つ．
そして
1□2□3□4□5□6□7□8=2□3□4□5□6□7□8□9
の解は19個らしい．
最後に10進BAISCのソース．
行き当たりばったりで作ったので汎用性ゼロ．
そしてこういうのを作ってるときは頭が痛くない．
LET lim=5 INPUT PROMPT "いくつの数で？(1,2,...,nと2,3,...,n+1)":lim FOR k=0 TO 2^(lim-1)-1 LET aa$="1" FOR i=0 TO lim-2 IF bitand(k,2^i)<>0 THEN LET aa$=aa$&"*"&STR$(i+2) ELSE LET aa$=aa$&"+"&STR$(i+2) END IF NEXT i FOR l=0 TO 2^(lim-1)-1 LET bb$="2" FOR i=0 TO lim-2 IF bitand(l,2^i)<>0 THEN LET bb$=bb$&"*"&STR$(i+3) ELSE LET bb$=bb$&"+"&STR$(i+3) END IF NEXT i LET aa=calc(aa$) LET bb=calc(bb$) IF aa=bb THEN PRINT STR$(aa)&"="&aa$&"="&bb$ NEXT l NEXT k FUNCTION calc(x$) DIM p$(1 TO 10) FOR i=1 TO 10 LET p$(i)="" NEXT i LET pp=1 LET i=2 LET j=1 DO IF X$(i:i)="+" THEN LET p$(pp)=X$(j:i-1) LET pp=pp+1 LET j=i+1 END IF LET i=i+1 LOOP UNTIL i>LEN(X$) LET p$(pp)=X$(j:i-1) LET pp=1 LET ans=0 DO UNTIL P$(pp)="" LET Y$=P$(pp) LET Z=1 DO LET z=z*VAL(Y$(1:1)) LET Y$(1:2)="" LOOP UNTIL Y$="" LET ans=ans+z LET pp=pp+1 LOOP LET calc = ans END FUNCTION END
