友人のisanoくんが「Rubyわかんねー」と言いながら頑張って解いたみたいなので、僕もRubyで書いてみる。

• 算数にチャレンジ！！ 第624回問題 - い～さねっと
• 算数にチャレンジ！！
• 算数にチャレンジ！！ 第624回問題 (← おそらく、後々見れるようになるかと)

問題内容を引用。

１～５１２の数の書かれたカードが１枚ずつ、左から小さい順に、「１，２，３，４，・・・，５１１，５１２」と並んでいます。いま、次のような作業を行うことにします。

ア. 前から奇数番目のカードをすべて取り除く

イ. 前から偶数番目のカードをすべて取り除く

　まず、この作業を、ア→イ→ア→イ→・・・の順に、カードが残り１枚になるまで繰り返して行うことにします。

　このとき、最後に残るカードに書かれた数字を答えてください。

isanoくんが後で見てもわかるように、丁寧にコメントまでつけちゃうぜ。

以下、僕の書いたコード

   1  #/usr/bin/env ruby
   2  
   3  # Integerクラスを拡張する
   4  class Integer
   5   
   6    # 値が偶数かどうかを調べる
   7    # 偶数 -> true
   8    # 奇数 -> false
   9    def even?
  10      return (self % 2).zero?
  11    end
  12  
  13  end
  14  
  15  numbers = (1..512).to_a  
  16  
  17  # 以下, 指定された通りにカードを取り除いていくコード
  18  # (ア) 奇数番目のカードを抜く = 添え字が偶数のカードを抜く
  19  # (イ) 偶数番目のカードを抜く = 添え字が奇数のカードを抜く
  20  
  21  flag = true    # (ア)のときtrue, (イ)のときfalse. 最初は(ア)
  22  
  23  # カードが1枚になるまで続ける
  24  while numbers.size > 1 do
  25  
  26    # Arrayで何かを取り除く操作をするのは、rejectが簡単
  27    # ここではrejectの破壊的メソッドreject!を使う
  28    numbers.reject!{|i| numbers.index(i).even? == flag }
  29  
  30    flag = !flag # (ア)/(イ)の入れ替え
  31  
  32  end
  33  
  34  puts numbers
  35  #=> 342

こんなもんでどうや！！

追記 (2008/12/02 16:35) 気づけばいろんな人がやってた。

• 算数にチャレンジ！ - はこべにっき@bkc - bkcグループ
• 算数にチャレンジの問題を解いてみた - まめ畑
• RubyとかPerlとかゆるふわで困る - UDONCHAN

Ritsなはてなーばっかで困る。