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

初めてのプログラミング 第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.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
  sorted_array = []
  a = Array.new(some_array)
  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
    sorted_array.push(min)
    a = tmp
  end
  sorted_array
end

a1 = [5,1,4,2,3]
a2 = %w[e a d b c]
a3 = [5, 'e', 1, 'a', 4, 'd', 2, 'b', 3, 'c']
[a1, a2, a3].each do |a|
  sorted_a = sort a
  puts "ソート前: #{a}"
  puts "ソート後: #{sorted_a}"
end

入出力結果(Terminal)

$ ./sample.rb
ソート前: [5, 1, 4, 2, 3]
ソート後: [1, 2, 3, 4, 5]
ソート前: ["e", "a", "d", "b", "c"]
ソート後: ["a", "b", "c", "d", "e"]
ソート前: [5, "e", 1, "a", 4, "d", 2, "b", 3, "c"]
ソート後: [1, 2, 3, 4, 5, "a", "b", "c", "d", "e"]
$

ちなみにJavaScriptの場合。

コード(BBEdit)

function sort(some_array){
  var sorted_array = [];
  var a = [];
  for(var i = 0; i < some_array.length; i++){
    a[i] = some_array[i];
  }
  while(a.length > 0){
    var min = a.pop();
    var tmp = [];
    for(var i = 0; i < a.length; i++){
      if(new String(min) < new String(a[i])){
        tmp.push(a[i]);
      } else {
        tmp.push(min);
        min = a[i];
      }
    }
    sorted_array.push(min);
    a = tmp;
  }
  return sorted_array;
}
var result = "";
var a1 = [5,1,4,2,3];
var a2 = "eadbc".split("");
var a3 = [5, 'e', 1, 'a', 4, 'd', 2, 'b', 3, 'c'];
var a = [a1, a2, a3];
for(var i = 0; i < a.length; i++){
  var sorted_a = sort(a[i]);
  result += "ソート前: " + a[i] + "\n" +
    "ソート後: " + sorted_a + "\n";
}
$('#pre0').text(result);

pythonの場合。

sample.py

コード(BBEdit)

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

def sort(some_list):
    sorted_list = []
    l = some_list[:]
    while len(l) > 0:
        min = l.pop()
        tmp = []
        for x in l:
            if str(min) < str(x):
                tmp.append(x)
            else:
                tmp.append(min)
                min = x
        sorted_list.append(min)
        l = tmp
    return sorted_list

l1 = [5,1,4,2,3]
l2 = ['e','a','d','b','c']
l3 = [5, 'e', 1, 'a', 4, 'd', 2, 'b', 3, 'c']

for l in [l1,l2,l3]:
    sorted_l = sort(l)
    print("ソート前: {0}".format(l))
    print("ソート後: {0}".format(sorted_l))

入出力結果(Terminal)

$ ./sample.py
ソート前: [5, 1, 4, 2, 3]
ソート後: [1, 2, 3, 4, 5]
ソート前: ['e', 'a', 'd', 'b', 'c']
ソート後: ['a', 'b', 'c', 'd', 'e']
ソート前: [5, 'e', 1, 'a', 4, 'd', 2, 'b', 3, 'c']
ソート後: [1, 2, 3, 4, 5, '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 sort{
  my $a = shift;
  my @sorted_array = ();
  while(length $a > 0){
    my $min = pop @$a;
    my @tmp = ();
    for(@$a){
      if($min < $_){
        push @tmp, $_;
      } else {
        push @tmp, $min;
        $min = $_;
      }
    }
    push @sorted_array, $min;
    $a = \@tmp;
  }
  @sorted_array;
}

my @a1 = (5,1,4,2,3);
my @a2 = qw(e a d b c);
my @a3 = (5, 'e', 1, 'a', 4, 'd', 2, 'b', 3, 'c');
for(\@a1, \@a2, \@a3){
  my @sorted_a = sort @$_;
  print "ソート前: @$_\n";
  print "ソート後: @sorted_a\n"
}

入出力結果(Terminal)

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