Program post site for everyone
タイトルを変更しました。方法はひとつではない。
おはなし 「今日は皆さんにトロッコ問題をプログラムしてもらいます」
プログラム
表示できないキャラクタは ~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
なるほど、このアプローチは見事ですね！ 世にトロッコ問題の誤解が多い中、答えのある学習にまで昇華させた例って、あまりないのではないでしょうか。
