《Smalltalkでオブジェクト指向プログラミング》

フリーのSmalltalk “Squeak” をきっかけに、Cincom社のVisualWorksを通して

オブジェクト指向のプログラム設計や実装をやってく日々を記録してゆきます。
まずはSmalltalkの『心意気』をずっと追いかけて行きたいと思います。これから

SqueakやSmalltalkを始める人にも、なんかちょっとしたことでも参考になれば…

play
“Janken new play”

| table player computer result |
table := #(#(#TIE #WIN #LOSE) #(#LOSE #TIE #WIN) #(#WIN #LOSE #TIE)).
player := Dialog
choose: ‘What is your choice?’
fromList: #(#GU #CHOKI #PAR)
values: #(1 2 3)
lines: 3
cancel: [#noChoice].
computer := (Random new next * 3) ceiling.
result := (table at: player) at: computer.
Dialog
warn: ‘Computer: ‘ , (#(#GU #CHOKI #PAR) at: computer) , ‘-> You ‘ , result

～このサイトのアイコン（絶品！）は 「webヤギの目」からいただいたものです～