6 lines
248 B
Text
6 lines
248 B
Text
n@(Integer traits) fizzbuzz
|
|
[
|
|
output ::= ((n \\ 3) isZero ifTrue: ['Fizz'] ifFalse: ['']) ; ((n \\ 5) isZero ifTrue: ['Buzz'] ifFalse: ['']).
|
|
output isEmpty ifTrue: [n printString] ifFalse: [output]
|
|
].
|
|
1 to: 100 do: [| :i | inform: i fizzbuzz]
|