Comment detail
アルファベットの繰り上がり (Nested Flatten)
別のアプローチで。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | | excelColumnName |
excelColumnName := [:n |
| rest digits |
rest := n - 1.
digits := OrderedCollection new.
[ digits addFirst: (($A to: $Z) at: rest \\ 26 - digits size sign + 1).
(rest := rest // 26) > 0
] whileTrue.
digits as: String].
World findATranscript: nil.
Transcript cr.
(1 to: 100)
do: [:i | Transcript show: (excelColumnName value: i)]
separatedBy: [Transcript show: ', ']
|
sumim
#788()
[
Smalltalk
]
Rating0/0=0.00
| n m collection | n := 100. m := 0. collection := OrderedCollection new. World findATranscript: nil. [($A to: $Z) asDigitsToPower: (m := m + 1) do: [:arry | (collection add: '', arry; size) = n ifTrue: [ ^collection asArray do: [:each | Transcript show: each] separatedBy: [Transcript show: ', ']]] ] repeatRating0/0=0.00-0+
1 reply [ reply ]