ludy 0.0.1

data/test/tc_dice.rb

@@ -0,0 +1,47 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'dice'
+include Ludy
+class TestDice < Test::Unit::TestCase
+  def test_dice
+    50.times{ assert((1..20).include?(1.roll)) }
+    50.times{ assert((2..40).include?(2.roll)) }
+    50.times{ assert((3..18).include?(3.roll(6))) }
+
+    _4d20 = 4.dice
+    assert_equal 4, _4d20.min
+    assert_equal 4*20, _4d20.max
+    50.times{ assert((4..80).include?(_4d20.roll)) }
+
+    _5d12 = 5.dice 12
+    assert_equal 5, _5d12.min
+    assert_equal 5*12, _5d12.max
+    50.times{ assert((5..60).include?(_5d12.roll)) }
+
+    ds = DiceSet.new _4d20, _5d12
+    assert_equal _4d20.min+_5d12.min, ds.min
+    assert_equal _4d20.max+_5d12.max, ds.max
+    50.times{ assert((ds.min..ds.max).include?(ds.roll)) }
+
+    du = DiceSet.new ds, 6.dice(6)
+    assert_equal ds.min+6, du.min
+    assert_equal ds.max+36, du.max
+    50.times{ assert((du.min..du.max).include?(du.roll)) }
+  end
+end

data/test/tc_lazy.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'lazy'
+include Ludy
+class TestLazy < Test::Unit::TestCase
+  def setup; @data = 0; end
+  def get; @data += 1; end
+  def test_lazy
+    assert_equal 0, @data
+    v = lazy{get}
+    assert_equal 0, @data
+    assert_equal 1, v
+    assert_equal '1', v.to_s
+    assert_equal 1, v
+    assert_equal '1', v.to_s
+  end
+end

data/test/tc_ludy_ext.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'ludy_ext'
+class TestLudyExt < Test::Unit::TestCase
+  def test_tap
+    assert_equal '11', 10.tap{|i| assert_equal '10', i.to_s}.succ.to_s
+  end
+  def test_nil
+    assert_nil nil.XD.Orz.zzz
+  end
+end

data/test/tc_rambda.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'rambda'
+include Ludy
+class TestRambda < Test::Unit::TestCase
+  def test_rambda
+    assert_equal(3628800, rambda{|n| n==1 ? 1 : n*this[n-1]}[10])
+    assert_equal([1,1,2,3,5,8,13,21,34,55],
+      (0...10).map(&rambda{|n| n<=1 ? 1 : this[n-2]+this[n-1]}))
+
+    v = "can't refer v"
+    assert_raise(NameError){
+      rambda{v}.call
+    }
+  end
+end

data/test/tc_this.rb

@@ -0,0 +1,84 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'this'
+include Ludy
+class TestThis < Test::Unit::TestCase
+  def test_fact
+    assert_equal(120, fact(5))
+    assert_equal(3628800, fact(10))
+    assert_equal(5040, lambda{|n| n==1 ? 1 : n*this[n-1]}[7])
+
+    # can't play with yielded method! that's a problem
+    assert_raise(ArgumentError){
+      (0...10).map(&lambda{|n| n<=1 ? 1 : this[n-2]+this[n-1]})
+    }
+  end
+  def fact n
+    return n*this[n-1] if n > 0
+    1
+  end
+##
+  def test_pass_around
+    assert_equal(method(:pass_around_forward), pass_around.call(lambda{|v| v}))
+  end
+  def pass_around mode = 'pass'
+    case mode
+      when 'pass'
+        pass_around_forward this
+      else
+        'value'
+    end
+  end
+  def pass_around_forward func
+    assert_equal('value', func['value'])
+    this
+  end
+##
+  def test_with_block
+    with_block{|b| assert_equal('value', b['value'])}
+  end
+  def with_block mode = 'pass', &block
+    case mode
+      when 'pass'
+        block[this]
+      else
+        'value'
+    end
+  end
+##
+  def test_more_args
+    more_args('get_this'){}.call('call', 1, 2, 3, 4, 5, &lambda{6})
+    more_args('get_this'){}.call('call', 1, 2, 3, 4, 5){6}
+  end
+  def more_args mode, a1=nil, a2=nil, a3=nil, *as, &block
+    case mode
+      when 'get_this'
+        this
+      else
+        assert_equal(1, a1)
+        assert_equal(2, a2)
+        assert_equal(3, a3)
+        assert_equal(4, as[0])
+        assert_equal(5, as[1])
+        assert_equal(nil, as[2])
+        assert_equal(6, yield)
+        assert_equal(6, block.call)
+    end
+  end
+end

data/test/tc_variable.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'variable'
+include Ludy
+class TestVariable < Test::Unit::TestCase
+  class Qoo
+    def cool
+      'cool ~~~~'
+    end
+  end
+
+  def test_variable
+    x = var Qoo.new
+    y = x
+
+    assert_equal x.__obj__, y.__obj__
+    assert_equal Qoo, x.__obj__.class
+    assert_equal Qoo, x.class
+
+    assert_equal 'cool ~~~~', x.cool
+    assert_equal 'cool ~~~~', y.cool
+
+    x.__obj__ = nil
+
+    assert x.nil?
+    assert y.nil?
+  end
+end

data/test/tc_y_combinator.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'y_combinator'
+include Ludy
+class TestYCombinator < Test::Unit::TestCase
+  def test_y_combinator
+    fact_ = lambda{|this|
+      lambda{|n| n==1 ? 1 : n*this[n-1]}
+    }
+    fact = Y[fact_]
+    assert_equal(3628800, fact[10])
+
+    fib_ = lambda{|this|
+      lambda{|n| n<=1 ? 1 : this[n-2]+this[n-1]}
+    }
+    fib = Y[fib_]
+    assert_equal([1,1,2,3,5,8,13,21,34,55], (0...10).map(&fib))
+  end
+end

data/test/tc_z_combinator.rb

@@ -0,0 +1,35 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require 'test/unit'
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_ludy 'z_combinator'
+include Ludy
+class TestZCombinator < Test::Unit::TestCase
+  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

data/test/ts_ludy.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/ruby
+
+#    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
+#
+#    Licensed under the Apache License, Version 2.0 (the "License");
+#    you may not use this file except in compliance with the License.
+#    You may obtain a copy of the License at
+#
+#        http://www.apache.org/licenses/LICENSE-2.0
+#
+#    Unless required by applicable law or agreed to in writing, software
+#    distributed under the License is distributed on an "AS IS" BASIS,
+#    WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+#    See the License for the specific language governing permissions and
+#    limitations under the License.
+
+require(File.join(File.dirname(__FILE__), '..', 'lib', 'ludy'))
+require_all_in_dir __FILE__

metadata

@@ -0,0 +1,76 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: ludy
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2007-04-30 00:00:00 +08:00
+summary: Aims to extend Ruby standard library, providing some useful tools that's not existed in the standard library.
+require_paths: 
+- lib
+email: "strip number: 135godfat7911@246gmail.890com"
+homepage: http://ludy.rubyforge.org/
+rubyforge_project: 
+description: 
+autorequire: ludy
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Lin Jen-Shin(a.k.a. godfat)
+files: 
+- lib/lib
+- lib/ludy
+- lib/ludy.rb
+- lib/lib/amulti.rb
+- lib/lib/multi.rb
+- lib/lib/smulti.rb
+- lib/ludy/callstack.rb
+- lib/ludy/dice.rb
+- lib/ludy/lazy.rb
+- lib/ludy/ludy_ext.rb
+- lib/ludy/rambda.rb
+- lib/ludy/this.rb
+- lib/ludy/variable.rb
+- lib/ludy/y_combinator.rb
+- lib/ludy/z_combinator.rb
+- test/tc_callstack.rb
+- test/tc_dice.rb
+- test/tc_lazy.rb
+- test/tc_ludy_ext.rb
+- test/tc_rambda.rb
+- test/tc_this.rb
+- test/tc_variable.rb
+- test/tc_y_combinator.rb
+- test/tc_z_combinator.rb
+- test/ts_ludy.rb
+- lib
+- LICENSE
+- ludy.gemspec
+- NOTICE
+- README
+- test
+test_files: 
+- test/ts_ludy.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+