「イスカンダルのトーフ屋」というのは、
津田伸秀(ntsuda@master.email.ne.jp)という人が考案&開発したゲームで、
1978年ごろ、月刊ASCII誌に載った。
津田伸秀氏の「イスカンダルのトーフ屋ゲーム」ページ
「主人公がイスカンダル星に1人取り残されて、トーフ屋さんを経営して地球までの帰還費用を稼ぐ」 という設定付きの、 シミュレーション・ゲームのはしりで、 計算機と競って、早く目標額を得た方が勝ち。

天気がランダムに決まり、天候によってトーフの売れ行きが影響を受ける。 天気予報が出るので、それをみて、どれだけトーフを仕込むか決める。

こういうシンプルなものだが、計算機と競う、とか、 経済シミュレーション的なゲームが、皆無な時代だったので、かなり人気があった。

僕は、計算機ではゲームはほとんどしない。
大学に入ったら、先輩たちが暇つぶしに、
この「イスカンダルのトーフ屋」をやっていた。
当然、このゲームは僕も知っていたが、一度もやらなかった。

最近、Webで「イスカンダルのトーフ屋」を発見し、すごくやりたくなった。
UNIX(Linux,BSD)だと、Perl版がありがたい。
でも、自分の好きなLispでやりたくなった。

というわけで、トーフ屋さんのPerl版を元に、Common Lisp (SBCL)へ、 書き直してみた。

遊んでみると、すごく楽しい。暇つぶしにちょうどいい。＼(^^)／


Common Lisp版 「イスカンダルのトーフ屋ゲーム」(ソース,文字コードはUTF-8です)

動作確認は、 SBCL で行っている。

オリジナルの考案&開発者の津田伸秀氏に感謝し、敬意を表したい。

Perl版を開発された永野圭一郎氏に感謝し、敬意を表したい。

このCommon Lisp版も完全なフリーソフトウェアです。

-- 遊び方 --
SBCLを起動後

* (load "tofu.lisp")

* (tofu)