「進捗・どう・です・か」を Squeak Smalltalk で

OOPL

タイトルにもあるように「進捗・どう・です・か」をランダムな順序で表示し、「進捗どうですか」が完成したところで適当にクエスチョンマークをつけて去っていくプログラムです。

特に意味もなく文字カウントします。おおよそ数十文字から1000文字程度で目的を成し遂げて去っていきます。

「進捗・どう・です・か」をランダムに表示し「進捗どうですか」が完成したら煽ってくるプログラム | ぞうさんの何でもノート 
| elems count tail |
elems := #(進捗 どう です か).
count := 0.
World findATranscript: nil.
Transcript cr.
tail := OrderedCollection new: elems size withAll: ''.
[  Transcript show: (tail removeFirst; add: elems atRandom).
   count := count + tail last size.
   tail asArray = elems
] whileFalse.
Transcript show: '???\' withCRs, count, '文字で煽られました。'