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