トップ «前の日記(2012-12-03(Mon)) 最新次の日記(2012-12-05(Wed))» 編集

屑俺日記

僕の備忘録(PC、UN*X、ネットワーク関連が中心)なんです。
自分の書いたところは適当(な時とか)に書き換えますので御了承を。

2012-12-04(Tue) まだ5日じゃない

☆ 非常に冗漫だけど

なんとか gst でfizzbuzz できた。
前のよりも(一応)すっきりしてる、はず。

fbarray := Array new: 100
 
1 to: 100 do:
  [: x | ( x \\ 3) == 0
    ifTrue: [ fbarray at: x put: 'fizz' ]].
1 to: 100 do:
  [: y | ( y \\ 5) == 0
    ifTrue: [ fbarray at: y put: 'buzz' ]].
1 to: 100 do:
  [: z | ( z \\ 15) == 0
    ifTrue: [ fbarray at: z put: 'fizzbuzz' ]].
 
1 to: 100 do: 
  [: i | (fbarray at: i) isNil
    ifTrue: [ Transcript show: i printString; cr. ]
    ifFalse: [Transcript show: (fbarray at: i); cr. ]]

ループは一度で済ませたいものだ。これは後でまた考えよう。

[ツッコミを入れる]

リンクはご自由にどうぞ。でもURLや内容が変った場合はあしからず。

index.htmlはここから。