cddddddddr

cddr.rb

class Array
  def car
    first
  end

  def cdr
    clone.tap { |r| r.delete_at 0 }
  end

  def method_missing(name, *args)
    if name.to_s =~ /:?c(d+)r/
      self.class.class_eval(<<DEFINE)
        def #{name}
          self[#{$1.length}..-1]
        end
DEFINE
      self.send(name)
      else
        super
    end
  end
end

require "test/unit"

class T < Test::Unit::TestCase
  def test_car
    assert_equal(0, [0,1,2,3].car)
  end

  def test_cdr
    assert_equal([1,2,3],[0,1,2,3].cdr)
  end

  def test_cdddr
    assert_equal([3],[0,1,2,3].cdddr)
  end
end

ruby久しぶり。テストとメソッドのキャッシュを追加してみた。
cadadrとかやろうとするとこのままじゃ辛いけど。

ああ、cdrの定義そのままだった。まーいいや。