Ruby - シャッフル(再帰)

初めてのプログラミング 第2版
Chris Pine (著) 長尾 高弘 (訳)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Ruby

『初めてのプログラミング 第2版』(Chris Pine　著、長尾 高弘　訳、オライリー・ジャパン、2010年、ISBN978-4-87311-469-9)の 10章(章全部で復習), 10.3(練習問題)シャッフルを解いてみる。

その他参考書籍

• 『プログラミング言語 Ruby』David Flanagan, まつもと ゆきひろ　著 、卜部 昌平　監訳、長尾 高弘　訳、オライリー・ジャパン、2009年、ISBN978-4-87311-394-4)
• Rubyクックブック ―エキスパートのための応用レシピ集

シャッフル(再帰)

コード(TextWrangler)

sample.rb

#!/usr/bin/env ruby1.9
#-*- coding: utf-8 -*-

def shuffle some_array
  recursive_shuffle some_array, []
end

def recursive_shuffle some_array, shuffled_array
  a = Array.new(some_array)
  return shuffled_array if a.length == 0
  l = a.length
  r = rand l
  tmp = []
  (0..(l-1)).each do |i|
    if r == i
      shuffled_array.push a[i]
    else
      tmp.push a[i]
    end
  end
  recursive_shuffle tmp, shuffled_array
end

a1 = [1,2,3,4,5,6,7,8,9,10]
a2 = %w[a b c d e f g h i j]
[a1,a2].each do |a|
  shuffled_a = shuffle a
  puts "シャッフル前: #{a.join(",")}"
  puts "シャッフル後: #{shuffled_a.join(",")}"
end

入出力結果(Terminal)

$ ./sample.rb
シャッフル前: 1,2,3,4,5,6,7,8,9,10
シャッフル後: 2,8,5,4,3,9,6,1,10,7
シャッフル前: a,b,c,d,e,f,g,h,i,j
シャッフル後: i,h,d,b,a,j,c,e,f,g
$