Ruby - 辞書順ソート(再帰)

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

開発環境

• OS X Lion - Apple(OS)
• BBEdit - Bare Bones Software, Inc.(Text Editor)
• Script言語:Ruby

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

その他参考書籍

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

辞書順ソート(再帰)

コード(BBEdit)

sample.rb

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

def dictionary_sort some_array
  recursive_sort some_array, []
end

def recursive_sort some_array, sorted_array
  return sorted_array if some_array.length == 0
  a = some_array[0, some_array.length]
  min = a.pop
  tmp = []
  a.each do |item|
    if item.to_s.downcase < min.to_s.downcase or (
      item.to_s.downcase == min.to_s.downcase and item < min)
      tmp.push min
      min = item
    else
      tmp.push item
    end
  end
  sorted_array.push min
  recursive_sort tmp, sorted_array
end

a = ['e','a','d','b','c','E','A','D','B','C',5,1,4,2,3]
sorted_a = dictionary_sort a
puts "辞書順ソート前: #{a.join(" ")}"
puts "辞書順ソート後: #{sorted_a.join(" ")}"

入出力結果(Terminal)

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

ちなみにJavaScriptの場合。

コード(BBEdit)

function recursiveSort( some_array, sorted_array ) {
    if (some_array.length === 0) {
        return sorted_array;
    }
    var a = some_array.slice(),
        tmp = [],
        min = a.pop(),
        s1,
        s2,
        i;
    for (i = 0, max = a.length; i < max; i += 1) {
        s1 = (min).toString();
        s2 = (some_array[i]).toString();
        if( (s2.toUpperCase() < s1.toUpperCase()) ||
            (s2.toUpperCase() === s1.toUpperCase() && s2 < s1) ) {
            tmp.push(min);
            min = some_array[i];        
        } else {
            tmp.push(some_array[i]);
        }
    }
    sorted_array.push(min);
    return recursiveSort(tmp, sorted_array);
}
function dictionarySort( some_array ) {
    return recursiveSort(some_array, []);
}
var a = ['e','a','d','b','c','E','A','D','B','C',5,1,4,2,3];
var sorted_a = dictionarySort(a);
var result = "辞書順ソート前: " + a + "\n" +
  "辞書順ソート後: " + sorted_a + "\n";
$('#pre0').text(result);

pythonの場合。

sample.py

コード(BBEdit)

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

def recursiveSort(some_list, sorted_list):
    if not len(some_list):
        return sorted_list
    l = some_list[:]
    tmp = []
    min = l.pop()
    for x in l:
        if str(x).upper() < str(min).upper() or ( 
            str(x).upper() == str(min).upper() and str(x) < str(min)):
            tmp.append(min)
            min = x
        else:
            tmp.append(x)
    sorted_list.append(min)
    return recursiveSort(tmp, sorted_list)
def dictionarySort(some_list):
    return recursiveSort(some_list, [])

l = ['e','a','d','b','c','E','A','D','B','C',5,1,4,2,3]
sorted_l = dictionarySort(l)
for i, j in [("辞書順ソート前", l), ("辞書順ソート後", sorted_l)]:
    print("{0}: {1}".format(i,j))

入出力結果(Terminal)

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

perlの場合。

sample.pl

コード(BBEdit)

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";

sub recursive_sort {
    my($some_l, $sorted_l) = @_;
    return @$sorted_l unless @$some_l;
    my @l = @$some_l;
    my @tmp = ();
    my $min = pop @l;
    for (@l) {
        if (uc $_ le uc $min || (uc $_ eq uc $min and $_ le $min)) {
            push @tmp, $min;
            $min = $_;
        } else {
            push @tmp, $_;
        }
    }
    push $sorted_l, $min;
    recursive_sort(\@tmp, $sorted_l);
}

sub dict_sort {    
    my $l = shift;
    recursive_sort($l, []);
}

my @l = (1, 2, 3, 4, 5, 'A','B','C','D','E', 'a','b','c','d','e');
my @sorted_l = dict_sort \@l;
print "辞書順ソート前: @l\n";
print "辞書順ソート後: @sorted_l\n";

入出力結果(Terminal)

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