開発環境
- OS X Lion - Apple(OS)
- Emacs、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 ruby2.0
#-*- coding: utf-8 -*-
def sort some_array
recursive_sort some_array, []
end
def recursive_sort unsorted_array, sorted_array
return sorted_array if unsorted_array.length == 0
unsorted = unsorted_array.slice(0, unsorted_array.length)
min = unsorted.pop
tmp = []
unsorted.each do |item|
if item < min
tmp.push min
min = item
elsif
tmp.push item
end
end
sorted_array.push min
recursive_sort tmp, sorted_array
end
langs = %w[ruby python dart haskell c scheme lisp csharp cpp perl]
sorted_langs = sort langs
puts "ソート前: #{langs}"
puts "ソート後: #{sorted_langs}"
入出力結果(Terminal)
$ ./sample.rb ソート前: ["ruby", "python", "dart", "haskell", "c", "scheme", "lisp", "csharp", "cpp", "perl"] ソート後: ["c", "cpp", "csharp", "dart", "haskell", "lisp", "perl", "python", "ruby", "scheme"] $
ちなみにpython3.3の場合。
コード(BBEdit)
sample.py
#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-
def sort(some_list):
return recursiveSort(some_list, [])
def recursiveSort(unsorted_list, sorted_list):
if len(unsorted_list) == 0:
return sorted_list
unsorted = unsorted_list[:]
min = unsorted.pop()
tmp = []
for x in unsorted:
if x < min:
tmp.append(min)
min = x
else:
tmp.append(x)
sorted_list.append(min)
return recursiveSort(tmp, sorted_list)
some_list = ["ruby", "python", "dart", "haskell", "c",
"scheme", "lisp", "csharp", "cpp", "perl"]
sorted_list = sort(some_list)
print('ソート前: {}'.format(some_list))
print('ソート後: {}'.format(sorted_list))
入出力結果(Terminal)
$ ./sample.py ソート前: ['ruby', 'python', 'dart', 'haskell', 'c', 'scheme', 'lisp', 'csharp', 'cpp', 'perl'] ソート後: ['c', 'cpp', 'csharp', 'dart', 'haskell', 'lisp', 'perl', 'python', 'ruby', 'scheme'] $
0 コメント:
コメントを投稿