実用度の低いソートアルゴリズム

def sort(a)
  a.tap do |a|
    until a.each_cons(2).all? { |a, b| a <= b }
      a.shuffle!
    end
  end
end

a = 10.times.collect { rand(10) }  # => [8, 2, 5, 6, 5, 1, 3, 5, 2, 2]
sort(a)                            # => [1, 2, 2, 2, 3, 5, 5, 5, 6, 8]

def sort(a, l = 0, r = a.size.pred)
  if a[r] < a[l]                # 最後 > 先頭 なら
    a[l], a[r] = a[r], a[l]     # 入れ替え
  end
  n = r - l + 1                 # 部分列のサイズ
  if n < 3
    return
  end
  t = n / 3                     # t は全体の 1/3
  sort(a, l, r - t)             # 先頭 2/3 をソート
  sort(a, l + t, r)             # 末尾 2/3 をソート
  sort(a, l, r - t)             # 先頭 2/3 をソート (再度)
  a
end

a = 10.times.collect { rand(10) }  # => [2, 9, 4, 5, 3, 3, 6, 1, 1, 0]
sort(a)                            # => [0, 1, 1, 2, 3, 3, 4, 5, 6, 9]

def sort(a)
  [].tap do |values|
    a.collect { |e|
      Thread.start do
        sleep e * 0.001
        values << e
      end
    }.each(&:join)
  end
end

t = Time.now
a = 10.times.collect { rand(10) }  # => [7, 9, 9, 0, 6, 3, 7, 5, 8, 8]
sort(a)                            # => [0, 3, 5, 6, 7, 7, 8, 8, 9, 9]
Time.now - t                       # => 0.011513

def sort(a)
  width = a.max                 # 横幅
  height = a.size               # 縦幅

  field = {}                    # 二次元領域

  # ビーズを配置する
  a.each.with_index do |count, y|
    count.times do |x|
      field[[x, y]] = true
    end
  end

  # 落下させる
  loop do
    fall_down = false
    width.times.each do |x|
      (height - 2).downto(0) do |y| # 重ならないように地面に近い方から
        from = [x, y]               # ここに
        if field[from]              # ビーズがあって
          to = [x, y.next]          # 移動先が
          if !field[to]             # 空いていたら
            field[to] = field[from] # 移動する
            field.delete(from)
            fall_down = true
          end
        end
      end
    end
    # すべてのビーズが接着したら終わる
    unless fall_down
      break
    end
  end

  # 上の層からビーズを数える
  height.times.collect do |y|
    width.times.count { |x| field[[x, y]] }
  end
end

a = 10.times.collect { rand(10) }  # => [1, 9, 9, 8, 9, 4, 8, 7, 7, 2]
sort(a)                            # => [1, 2, 4, 7, 7, 8, 8, 9, 9, 9]