sumim #4030(2007/11/14 15:53 GMT) [ Smalltalk ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11 12 13
| gFizzBuzz | gFizzBuzz := [:ints :specPairs | | cycles | cycles := specPairs pairsCollect: [:size :label | (Array new: size withAll: '') atLast: 1 put: label; yourself]. World findATranscript: nil. ints do: [:int | | fizzBuzzStr | fizzBuzzStr := cycles inject: '' into: [:str :cyc | str, (cyc atWrap: int)]. fizzBuzzStr ifEmpty: [fizzBuzzStr := #hoge]. Transcript cr; show: int printString, ': ', fizzBuzzStr]]. gFizzBuzz value: (101 to: 120) value: #(3 Pizz 5 Quzz 7 Razz)
Rating0/0=0.00-0+
[ reply ]
sumim
#4030()
[
Smalltalk
]
Rating0/0=0.00
| gFizzBuzz | gFizzBuzz := [:ints :specPairs | | cycles | cycles := specPairs pairsCollect: [:size :label | (Array new: size withAll: '') atLast: 1 put: label; yourself]. World findATranscript: nil. ints do: [:int | | fizzBuzzStr | fizzBuzzStr := cycles inject: '' into: [:str :cyc | str, (cyc atWrap: int)]. fizzBuzzStr ifEmpty: [fizzBuzzStr := #hoge]. Transcript cr; show: int printString, ': ', fizzBuzzStr]]. gFizzBuzz value: (101 to: 120) value: #(3 Pizz 5 Quzz 7 Razz)Rating0/0=0.00-0+
[ reply ]