開発環境
- 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 $
0 コメント:
コメントを投稿