Ruby - シャッフル(whileループ)

初めてのプログラミング 第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クックブック ―エキスパートのための応用レシピ集

シャッフル(whileループ)

コード(TextWrangler)

sample.rb

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

def shuffle some_array
  a = Array.new(some_array)
  result = []
  while a.length > 0
    l = a.length
    r = rand l
    tmp = []
    (0...l).each do |i|
      if r == i
        result.push a[i]
      else
        tmp.push a[i]
      end
    end
    a = tmp
  end
  result
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
シャッフル後: 5,10,6,2,1,7,4,8,3,9
シャッフル前: a,b,c,d,e,f,g,h,i,j
シャッフル後: b,i,g,c,d,j,e,f,h,a
$