プログラミング
〜テーマ【じゃんけん】〜

とにかく最初にいじったプログラム。
自分で考えたわけじゃない所がミソ。

でもこのプログラムのおかげで、Squeakにぐっと近づくことができた。
どこかの掲示板でこのサンプルが載っていた。もともとはホントにインスタンスメソッドだけのものだったが、インスタンスを生成するメソッドを入れたり、ちょっと自分なりに直しているうちにすっかり打ち解けることができた。

これまでいろいろなサンプルに出会ってきたのに、このサンプルはなぜかkunにピッタリきた感じだった。必ずしもすべての方の後押しをしてくれる物にはならないかもしれないけど、参考までに載せておきます。

ダウンロード：
KunEducation1.cs

Squeakのメニューで、
<Open...><File List>からダウンロードしたファイルを選んで、
[filein]ボタンをクリック。これでファイルイン完了。
→「Janken run」を「Do it」して下さい。

または、次のコードをワークスペースにコピペして「Do it」でも同じです。

| table player computer result |

table _ #((TIE WIN LOSE) (LOSE TIE WIN) (WIN LOSE TIE)).
player _ (PopUpMenu labelArray: #(GU CHOKI PAR) lines: #())
startUpWithCaption: 'What is your choice?'.
computer _ 3 atRandom.
result _ (table at: player) at: computer.

PopUpMenu inform: 'Computer: ', ( #(GU CHOKI PAR) at: computer ), '->', result.
コードの中のアンダーバー「_」はSqueakにコピペすると、Smalltalkの代入記号「←」(gets)になります。
「:=」でもいいんです。なんかModula-2をやってたころは好んで「:=」を使ってたんだけどSqueakでは「←」にしてます。