RosettaCodeData/Task/FizzBuzz/Smalltalk/fizzbuzz-3.st

9 lines
300 B
Smalltalk
Raw Permalink Normal View History

2013-04-09 00:31:41 -07:00
fizzbuzz := Dictionary with: #(true true)->'FizzBuzz'
with: #(true false)->'Fizz'
with: #(false true)->'Buzz'.
1 to: 100 do:
[ :i | Transcript show:
(fizzbuzz at: {i isDivisibleBy: 3. i isDivisibleBy: 5}
ifAbsent: [ i ]); cr]