Shiro さん版を受けて、SequenceableCollection >> #combinations:atATimeAt: を改良してみました。 SequenceableCollection >> combinations: digits atATimeAt: target | size lastIndex | size _ self size. (size = target ifTrue: [(self first: 1), (s…

組み合わせの数を使うとこんな感じ？ (let loop ((chars (string->list *chars*)) (str '()) (num *value*)) (if (= (length str) 16) (list->string (reverse str)) (let ((x (c (- (length chars) 1) (- 15 (length str))))) (if (> x num) (loop (cdr cha…

ループを排除して、心持ち、すっきりとさせてみました。心持ち。ｗ SequenceableCollection >> combinations: digits atATimeAt: target | size sum ranges cursor digit | size _ self size. (size = target]. sum _ cursor > 1 ifTrue: [ranges at: cursor…

id:sumim:20041206#p1 の続き。c. も比較的、簡単そうなのでトライしてみました。 target chars target _ 99999999999999999. chars _ '!"#$%&''()*+,-./:;?@[\]^_`{|}~0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz'. ^ chars combinati…

Ruby と違って Smalltalk の文字列（a String）は要素がすべて文字（a Character）の特殊なコレクションです。ただ、文字のみからなる配列を文字列にしたいとき、 #($a $b $c) asStringだと、 "=> '#($a $b $c)' "というように、元の配列の文字列表現になっ…