開発環境
- 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 a = some_array[0, some_array.length] result = [] while a.length > 0 min = a.pop tmp = [] a.each do |item| if item.to_s.upcase < min.to_s.upcase or ( item.to_s.upcase == min.to_s.upcase and item < min) 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','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 dictionarySort( some_array ) { var a = some_array.slice(), result = [], s1, s2, i; while (a.length > 0){ var min = a.pop(); var tmp = []; for (i = 0, max = a.length; i < max; i += 1) { s1 = (min).toString(); s2 = (a[i]).toString(); if (s2.toUpperCase() < s1.toUpperCase() || ( s2.toUpperCase() === s1.toUpperCase() && s2 < s1)) { tmp.push(min); min = a[i]; } else { tmp.push(a[i]); } } result.push(min); a = tmp; } return result; } 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 dictionarySort(some_list): l = some_list[:] result = [] while len(l): min = l.pop() tmp = [] 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) result.append(min) l = tmp return result 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 dict_sort { my $some_l = shift; my @result = (); my @l = @$some_l; my @tmp = (); my $min; while (@l) { $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 @result, $min; @l = splice @tmp, 0; } @result; } my @l = ('e', 'a', 'd', 'b', 'c', 'E', 'A', 'D', 'B', 'C', 5, 1, 4, 2, 3); my @sorted_l = dict_sort \@l; print "辞書順ソート前: @l\n"; print "辞書順ソート後: @sorted_l\n";
入出力結果(Terminal)
$ ./sample.pl 辞書順ソート前: 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 $
0 コメント:
コメントを投稿