Ruby - 自作ソート(非再帰)

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

開発環境

• OS X Lion - Apple(OS)
• BBEdit - Bare Bones Software, Inc.(Text Editor)
• プログラミング言語: Ruby

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

その他参考書籍

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

通過儀礼としてのソート(非再帰)

コード(BBEdit)

sample.rb

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

def sort some_array
    result = []
    a = some_array[0..some_array.length - 1]
    while a.length > 0
        min = a.pop
        tmp = []
        a.each do |item|
            if min.to_s <= item.to_s
                tmp.push item
            else
                tmp.push min
                min = item
            end
        end
        result.push min
        a = tmp
    end
    result
end

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

入出力結果(Terminal)

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

ちなみにJavaScriptの場合。

コード(BBEdit)

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

pythonの場合。

sample.py

コード(BBEdit)

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

def sort(a):
    result = []
    b = a[:]
    while len(b) > 0:
        min = b.pop()
        tmp = []
        for x in b:
            if str(min) <= str(x):
                tmp.append(x)
            else:
                tmp.append(min)
                min = x
        result.append(min)
        b = tmp
    return result
a = ['e','a','d','b','c',5,1,4,2,3,'E','A','D','B','C']
b = sort(a)
for x, y in [("ソート前", a), ("ソート後", b)]:
    print("{0}: {1}".format(x, y))

入出力結果(Terminal)

$ ./sample.py
ソート前: ['e', 'a', 'd', 'b', 'c', 5, 1, 4, 2, 3, 'E', 'A', 'D', 'B', 'C']
ソート後: [1, 2, 3, 4, 5, 'A', 'B', 'C', 'D', 'E', 'a', 'b', 'c', 'd', '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 mySort{
    my $some_array = shift;
    my @result = ();
    my @a = @$some_array;
    while (@a > 0) {
        my $min = pop @a;
        my @tmp = ();
        for (@a) {
            if ($min le $_) {
                push @tmp, $_;
            } else {
                push @tmp, $min;
                $min = $_;
            }
        }
        push @result , $min;
        @a = @tmp;
    }
    @result;
}
my @a = ('e','a','d','b','c',5,1,4,2,3,'E','A','D','B','C');
my @b = mySort \@a;
print "ソート前: @a\n";
print "ソート後: @b\n";

入出力結果(Terminal)

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