DouKaku? 6653 baal: しまった。。。バケットソートというの...(比較しないソートの作成)

Comment detail

This comment is reply for 6651 baal: Mosh (Scheme) で書きました...(比較しないソートの作成). Go to thread root.

しまった。。。
バケットソートというのがあるんですね。
あんまり余裕がないので Gauche で書き直し。

(use gauche.sequence)

(define bucket-sort (lambda (range-min range-max data-len data)
  (let* ((range-len (+ 1 (- range-max range-min)))
         (bucket (make-vector range-len 0))
         (result '()))
    (for-each (lambda (i)
      (let ((j (- i range-min)))
        (vector-set! bucket j (+ 1 (vector-ref bucket j)))))
      data)
    (for-each-with-index
      (lambda (i count)
        (set! result (append result
          (make-list count (+ i range-min)))))
      bucket)
    result)))

(define main (lambda (args)
  (write (bucket-sort -1 10 10 '(-1 9 4 8 9 6 3 9 5 2)))
  (newline)
  0))

mc さんの #6658 を参考にして、だいぶすっきりしたコードになりました。
ありがとうございます。

(define bucket-sort (lambda (range-min range-max data-len data)
  (let ((bucket (make-vector (+ 1 (- range-max range-min)) '())))
    (for-each
      (lambda (i)
        (let ((j (- i range-min)))
          (vector-set! bucket j (cons i (vector-ref bucket j)))))
      data)
    (fold-right append '() (vector->list bucket)))))

DouKaku?

Comment detail

Index

Feed

Other

Link

Pathtraq