開発環境
- 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 a = some_array[0, some_array.length] result = [] while a.length > 0 min = a.pop tmp = [] a.each do |item| if item.to_s < min.to_s tmp.push min min = item else tmp.push item end end result.push min a = tmp end result end a = ['e','a','d','b','c', 5, 1, 4, 2, 3] sorted_a = sort a puts "ソート前: #{a}" puts "ソート後: #{sorted_a}"
入出力結果(Terminal)
$ ./sample.rb ソート前: ["e", "a", "d", "b", "c", 5, 1, 4, 2, 3] ソート後: [1, 2, 3, 4, 5, "a", "b", "c", "d", "e"] $
ちなみにJavaScriptの場合。
コード(BBEdit)
function sort(a){ var unsorted_a = a.slice(0); var result = []; var min, tmp, i; while ( unsorted_a.length > 0 ) { min = unsorted_a.pop(); tmp = []; for ( i = 0, max = unsorted_a.length ; i < max; i++ ) { if ( ( unsorted_a[i] ).toString() < ( min ).toString() ) { tmp.push( min ); min = unsorted_a[i]; } else { tmp.push( unsorted_a[i] ); } } result.push( min ); unsorted_a = tmp; } return result; } var a = ['e', 'a', 'd', 'b', 'c', 5, 1, 4, 2, 3]; var sorted_a = sort( a ); var result = "ソート前: " + a.join(" ") + "\n" + "ソート後: " + sorted_a.join(" ") + "\n"; $('#pre0').text(result);
pythonの場合。
sample.py
コード(BBEdit)
#!/usr/bin/env python3.3 #-*- coding: utf-8 -*- def sort( some_list ): l = some_list[0:] result = [] while len( l ) > 0: min = l.pop() tmp = [] for x in l: if str(x) < str(min): tmp.append(min) min = x else: tmp.append(x) result.append( min ) l = tmp return result l = ['e','a','d','b','c', 5, 1, 4, 2, 3] sorted_l = sort( l ) print("ソート前: {0}".format( l )) print("ソート後: {0}".format(sorted_l))
入出力結果(Terminal)
$ ./sample.py ソート前: ['e', 'a', 'd', 'b', 'c', 5, 1, 4, 2, 3] ソート後: [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 my_sort{ my $unsorted_a = shift; my @a = @$unsorted_a; my @result = (); while ( @a ) { my $min = pop @a; my @tmp = (); foreach my $item (@a) { if ($item le $min) { push @tmp, $min; $min = $item; } else { push @tmp, $item; } } push @result, $min; @a = @tmp; } return \@result; } my @a = (5, 1, 4, 2, 3, 'e', 'a', 'd','b','c'); my $sorted_a = my_sort( \@a ); print "ソート前: @a\n"; print "ソート後: @$sorted_a\n";
入出力結果(Terminal)
$ ./sample.pl ソート前: 5 1 4 2 3 e a d b c ソート後: 1 2 3 4 5 a b c d e $
0 コメント:
コメントを投稿