タイトルを変更しました。方法はひとつではない。
おはなし 「今日は皆さんにトロッコ問題をプログラムしてもらいます」
プログラム
表示できないキャラクタは ~16進数に変換されています。
RUNすると、トロッコが動き始めます。
↑↓キーでポイントが切り替わります。
問題 あなたはどうしますか?
ヒント:タイトル
「ルールなんて変えてやる」プログラマは世界を創る。
10 'トロッコ 20 CLS:?"トロッコモンダイ" 30 X=0:Y=10 40 LC0,10:?"~91~91~91~91~91~91~91~91~91~91~91~91~91~91~91" 50 LC15,9:?"~98~91~91~91~91~F9~91~F9~91~F9~91~F9~91~F9~91~91~94" 60 LC15,11:?"~9A~91~91~91~91~91~91~91~91~F9~91~91~91~91~91~91~94" 70 LC15,10:IFRND(2)?"~99"ELSE?"~9B" 80 M=SCR(X,Y) 90 LCX,Y:?"~F1" 100 @L 110 LCX,Y:?CHR$(M) 120 IFM=ASC("~94")LC0,3:END 130 IFM=ASC("~F4")X=X+1 140 IFM=ASC("~91")X=X+1 150 IFM=ASC("~99")Y=Y+1 160 IFM=ASC("~9B")Y=Y-1 170 IFM=ASC("~9A")X=X+1 180 IFM=ASC("~98")X=X+1 190 M=SCR(X,Y) 200 IFM=ASC("~F9")M=ASC("~F4") 210 LCX,Y:?"~F3" 220 K=INKEY() 230 LC15,10 240 IFK=30:?"~9B" 250 IFK=31:?"~99" 260 BEEP150:WAIT20 270 GOTO @L
なるほど、このアプローチは見事ですね! 世にトロッコ問題の誤解が多い中、答えのある学習にまで昇華させた例って、あまりないのではないでしょうか。