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

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

問題内容を引用。

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

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

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

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

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

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

以下、僕の書いたコード
ruby>>
#/usr/bin/env ruby

Integerクラスを拡張する

class Integer

値が偶数かどうかを調べる

偶数 -> true

奇数 -> false

def even?
return (self % 2).zero?
end

end

numbers = (1..512).to_a

以下, 指定された通りにカードを取り除いていくコード

(ア) 奇数番目のカードを抜く = 添え字が偶数のカードを抜く

(イ) 偶数番目のカードを抜く = 添え字が奇数のカードを抜く

flag = true # (ア)のときtrue, (イ)のときfalse. 最初は(ア)

カードが1枚になるまで続ける

while numbers.size > 1 do

Arrayで何かを取り除く操作をするのは、rejectが簡単

ここではrejectの破壊的メソッドreject!を使う

numbers.reject!{|i| numbers.index(i).even? == flag }

flag = !flag # (ア)/(イ)の入れ替え

end

puts numbers
#=> 342
<<ruby

こんなもんでどうや！！

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

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

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