Ruby - シャッフル(乱数(rand))

初めてのプログラミング 第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
  array = Array.new(some_array)
  shuffled_array = []
  while array.length > 0
    l = array.length
    r = rand l
    tmp = []
    i = 0
    l.times do
      if i == r
        shuffled_array.push array[i]
      else
        tmp.push array[i]
      end
      i += 1
    end
    array = tmp
  end
  shuffled_array
end

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

入出力結果(Terminal)

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

入出力結果の先頭に戻る

ちなみにJavaScriptの場合。

コード(TextWrangler)

function shuffle(some_array){
  var array = some_array.slice();
  var shuffled_array = [];
  while(array.length > 0){
    tmp = [];
    r = Math.floor(Math.random() * array.length);
    for(var i = 0; i < array.length; i++){
      if(i == r){
        shuffled_array.push(array[i]);
      } else {
        tmp.push(array[i]);
      }
    }
    array = tmp;
  }
  return shuffled_array;
}

var a1 = [0,1,2,3,4,5,6,7,8,9];
var a2 = ['a','b','c','d','e','f','g','h','i','j']
var arrays = [a1, a2];
var result = "";
var shuffled_a;
for(var i = 0; i < arrays.length; i++){
  shuffled_a = shuffle(arrays[i]);
  result += 
    "シャッフル前: " + arrays[i] + "\n" +
    "シャッフル後: " + shuffled_a + "\n";
}
$('#pre0').text(result);

pythonの場合。

sample.py

コード(TextWrangler)

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

import random

def shuffle(some_array):
  array = some_array[:]
  shuffled_array = []
  while len(array) > 0:
    r = random.randint(0, len(array) - 1)
    tmp = []
    i = 0
    for x in array:
      if r == i:
        shuffled_array.append(x)
      else:
        tmp.append(x)
      i += 1
    array = tmp
  return shuffled_array

a1 = [0,1,2,3,4,5,6,7,8,9]
a2 = ['a','b','c','d','e','f','g','h','i','j']

for a in [a1, a2]:
  shuffled_a = shuffle(a)
  print("シャッフル前: {0}\nシャッフル後: {1}".format(a, shuffled_a))

入出力結果(Terminal)

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

入出力結果の先頭に戻る