Ruby - 辞書順ソート(whileループ、数値にも対応)

初めてのプログラミング 第2版
Chris Pine (著) 長尾 高弘 (訳)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Ruby

『初めてのプログラミング 第2版』(Chris Pine　著、長尾 高弘　訳、オライリー・ジャパン、2010年、ISBN978-4-87311-469-9)の 10章(章全部で復習), 10.3(練習問題)辞書順ソートを解いてみる。

その他参考書籍

• 『プログラミング言語 Ruby』David Flanagan, まつもと ゆきひろ　著 、卜部 昌平　監訳、長尾 高弘　訳、オライリー・ジャパン、2009年、ISBN978-4-87311-394-4)
• Rubyクックブック ―エキスパートのための応用レシピ集

辞書順ソート(whileループ)

コード(TextWrangler)

sample.rb

#!/usr/bin/env ruby1.9
#-*- coding: utf-8 -*-

def sort some_array
  a = Array.new(some_array)
  sorted_a = []
  while a.length != 0
    min = a.pop
    tmp = []
    i = 1
    a.each do |item|
      if item.to_s.upcase < min.to_s.upcase
        tmp.push min
        min = item
      else
        tmp.push item
      end
    end
    sorted_a.push min
    a = tmp
  end
  sorted_a
end

a1 = %w[e E E e a A A a D d d D B b b B c C C c]
a2 = ['e', 5, 'a', 1, 'd', 4, 'b', 2, 'c', 3]
[a1, a2].each do |a|
  sorted_array = sort a
  puts "辞書順ソート前: #{a.join(",")}"
  puts "辞書順ソート後: #{sorted_array.join(",")}"
end

入出力結果(Terminal)

$ ./sample.rb
辞書順ソート前: e,E,E,e,a,A,A,a,D,d,d,D,B,b,b,B,c,C,C,c
辞書順ソート後: a,A,A,a,B,b,b,B,c,C,C,c,D,d,d,D,e,E,E,e
辞書順ソート前: e,5,a,1,d,4,b,2,c,3
辞書順ソート後: 1,2,3,4,5,a,b,c,d,e
$