Contents

require File.join(File.dirname(__FILE__), '..', 'lib', 'ludy/test/helper')
require 'ludy/z_combinator'

class TestZCombinator < Test::Unit::TestCase
  include Ludy
  def test_z_combinator
    fact_ = lambda{|this|
      lambda{|n| n==1 ? 1 : n*this[n-1]}
    }
    fact = Z[fact_]
    assert_equal(3628800, fact[10])

    fib_ = lambda{|this|
      lambda{|n| n<=1 ? 1 : this[n-2]+this[n-1]}
    }
    fib = Z[fib_]
    assert_equal([1,1,2,3,5,8,13,21,34,55], (0...10).map(&fib))
  end
end

Version data entries

9 entries across 9 versions & 1 rubygems

Version	Path
ludy-0.1.1	test/test_z_combinator.rb
ludy-0.1.0	test/test_z_combinator.rb
ludy-0.1.2	test/test_z_combinator.rb
ludy-0.1.3	test/test_z_combinator.rb
ludy-0.1.4	test/test_z_combinator.rb
ludy-0.1.5	test/test_z_combinator.rb
ludy-0.1.6	test/test_z_combinator.rb
ludy-0.1.7	test/test_z_combinator.rb
ludy-0.1.8	test/test_z_combinator.rb