Comment detail

変形Fizz-Buzz問題 (Nested Flatten)
Squeak Smalltalk で。
1
2
3
4
5
6
7
8
9
| fizzs buzzs |
fizzs := #('' '' Fizz).
buzzs := #('' '' '' '' Buzz).
World findATranscript: nil.
1 to: 20 do: [:idx |
    | message |
    message := (fizzs atWrap: idx), (buzzs atWrap: idx).
    message ifEmpty: [message := #hoge].
    Transcript cr; show: idx; show: #:, message]

Index

Feed

Other

Link

Pathtraq

loading...