ludy 0.0.8 → 0.0.9

data/CHANGES

@@ -1,11 +1,15 @@
 
 ==============================
 ludy TODO
-  Proc#bind
   multi
   chain travel
   method hook
 
+==============================
+ludy 0.0.9, 2008.01.07
+
+Proc#bind added, see test/tc_bind.rb
+
 ==============================
 ludy 0.0.8, 2007.12.06
 

data/lib/ludy/bind.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+
+#    Copyright (c) 2008, 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.
+
+class Proc
+  def bind *args
+    lambda{ |*new_args|
+      self[*(args.map{ |arg|
+        if (arg.kind_of? Symbol) && arg.to_s =~ /^_(\d+)$/
+          # is placeholder
+          new_args[$1.to_i-1]
+        else
+          # is not placeholder
+          arg
+        end
+      } + new_args).first(self.arity)]
+    }
+  end
+end

data/ludy.gemspec

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #
@@ -17,8 +17,9 @@
 require 'rubygems'
 
 spec = Gem::Specification.new{|s|
+  s.rubyforge_project = 'ludy'
   s.name     = 'ludy'
-  s.version  = '0.0.8'
+  s.version  = '0.0.9'
   s.author   = 'Lin Jen-Shin(a.k.a. godfat)'
   s.email    = 'strip number: 135godfat7911@246godfat.890org'
   s.homepage = 'http://ludy.rubyforge.org/'
@@ -31,7 +32,6 @@ spec = Gem::Specification.new{|s|
                }
 
   s.require_path = 'lib'
-  s.autorequire  = 'ludy'
   s.test_file    = 'test/ts_ludy.rb'
   s.has_rdoc     = false
   # s.extra_rdoc_files = []

data/test/tc_bind.rb

@@ -0,0 +1,29 @@
+#!/usr/bin/env ruby
+
+#    Copyright (c) 2008, 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 'bind'
+
+class TestCppBind < Test::Unit::TestCase
+  def test_basic
+    assert_equal [9,8,7], ([1,2,3].map &(lambda{|lhs, rhs| lhs-rhs}.bind 10, :_1))
+    assert_equal [3,2,1], (lambda{|a,b,c| [a,b,c]}.bind :_3, :_2, :_1)[1,2,3]
+    assert_equal [1,9,3], (lambda{|a,b,c| [a,b,c]}.bind :_1, 9, :_3)[1,2,3]
+    assert_equal [9,2,3], (lambda{|a,b,c| [a,b,c]}.bind 9)[2,3]
+    assert_equal [9,4,2], (lambda{|a,b,c| [a,b,c]}.bind 9, :_3)[2,3,4]
+  end
+end

data/test/tc_ludy_ext.rb

@@ -135,14 +135,14 @@ class TestLudyExt < Test::Unit::TestCase
   def test_unzip_and_untranspose
     a = [1,2,3]
     b = %w{a b c}
-    assert_equal [a, b], a.zip(b).untranspose
+    assert_equal [a, b], a.zip(b).to_a.untranspose
     assert_equal [a, b], [a, b].transpose.untranspose
-    assert_equal a, a.zip(b).unzip
+    assert_equal a, a.zip(b).to_a.unzip
 
     c = [nil, false, true]
-    assert_equal [a, b, c], a.zip(b, c).untranspose
+    assert_equal [a, b, c], a.zip(b, c).to_a.untranspose
     assert_equal [a, b, c], [a, b, c].transpose.untranspose
-    assert_equal a, a.zip(b, c).unzip
+    assert_equal a, a.zip(b, c).to_a.unzip
   end
 
   def test_id_and_m

metadata

@@ -1,15 +1,15 @@
 --- !ruby/object:Gem::Specification 
 name: ludy
 version: !ruby/object:Gem::Version 
-  version: 0.0.8
+  version: 0.0.9
 platform: ruby
 authors: 
 - Lin Jen-Shin(a.k.a. godfat)
-autorequire: ludy
+autorequire: 
 bindir: bin
 cert_chain: []
 
-date: 2007-12-06 00:00:00 +08:00
+date: 2008-01-07 00:00:00 +08:00
 default_executable: 
 dependencies: []
 
@@ -28,6 +28,7 @@ files:
 - lib/lib/smulti.rb
 - lib/ludy
 - lib/ludy/aspect.rb
+- lib/ludy/bind.rb
 - lib/ludy/callstack.rb
 - lib/ludy/curry.rb
 - lib/ludy/dice.rb
@@ -47,6 +48,7 @@ files:
 - lib/puzzle_generator/misc.rb
 - lib/puzzle_generator/puzzle.rb
 - lib/puzzle_generator.rb
+- test/tc_bind.rb
 - test/tc_callstack.rb
 - test/tc_curry.rb
 - test/tc_dice.rb
@@ -87,8 +89,8 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   version: 
 requirements: []
 
-rubyforge_project: 
-rubygems_version: 0.9.5
+rubyforge_project: ludy
+rubygems_version: 1.0.1
 signing_key: 
 specification_version: 2
 summary: Aims to extend Ruby standard library, providing some useful tools that's not existed in the standard library.