あみだくじ in Ruby DouKaku?

次のような書式で与えられた「あみだくじ」があります。
(あみだくじはコード中に埋め込んでも、標準入力や
外部ファイルから読み込んでも、書きやすい方法でかまいません)

A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |

このあみだくじをたどって
A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |
B D C A E
のように結果を表示させるプログラムを作ってください。

最初の行の状態を１行読む毎に書き換えてます。

def amida(prob)
  prob.split("\n").inject do |r,l|
    l.split(//).each_with_index do |e,i|
      next unless e=='-'
      r[i-1..i+1]=r[i-1..i+1].reverse
    end
    r
  end
end


prob=<<-EOD
A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |
EOD

puts prob
puts amida(prob)

普通にArrayの中身をswapしながら各行を読んでいます．

Ruby版なかったから作り始めたのだけど，できたら，もうあったorz

#!/usr/bin/ruby
amida = <<_EOD_
A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |
_EOD_

elem = nil
amida.split("\n").each do |line|
  elem.nil? and elem = line.split and next
  line.split('').grep(/-| /).each_with_index do |op, i|
    elem[i], elem[i+1] = elem[i+1], elem[i] if op == '-'
  end
end
puts amida, elem.join(' ')

__END__
% ./amida.rb
A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |
B D C A E

DouKaku?

あみだくじ

Posted feedbacks - Ruby

Index

Feed

Other

Link

Pathtraq