ludy 0.0.2 → 0.0.3

data/CHANGES

@@ -0,0 +1,26 @@
+
+==============================
+ludy 0.0.3, 2007.08
+
+ludy_ext:
+  added:
+    1. Proc#curry
+    2. Proc#compose
+    3. Proc#chain
+    4. Symbol#to_proc
+    5. Array#foldl
+    6. Array#foldr
+    7. Array#filter
+
+  removed:
+    1. Fixnum#collect # see tc_ludy_ext.rb#test_fixnum_collect for reason
+
+  info:
+    1. ruby2ruby has NilClass#method_missing return nil,
+       so i can't just make it return blackhole
+
+4. module Curry
+  see test/tc_curry.rb for usage
+
+see unit test for usage
+==============================

data/lib/ludy.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin�]a.k.a. godfat �u�`�^
 #

data/lib/ludy/callstack.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/lib/ludy/curry.rb

@@ -0,0 +1,44 @@
+#!/usr/bin/env 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.
+
+begin
+  require_ludy 'ludy_ext'
+rescue NameError
+  raise LoadError.new('please require "ludy" first')
+end
+
+module Ludy
+
+  module Curry
+    def self.included target
+      target.module_eval{
+        instance_methods.each{ |m|
+          next unless m =~ /^\w/
+          module_eval <<-END
+            def c#{m} *args, &block
+              if args.size == method(:#{m}).arity
+                self.__send__ :#{m}, *args, &block
+              else
+                method(:c#{m}).to_proc.curry *args
+              end
+            end
+          END
+        }
+      }
+    end
+  end
+
+end

data/lib/ludy/dice.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/lib/ludy/lazy.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/lib/ludy/ludy_ext.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #
@@ -14,6 +14,8 @@
 #    See the License for the specific language governing permissions and
 #    limitations under the License.
 
+require 'singleton'
+
 class Object
   def tap
     yield self
@@ -34,12 +36,23 @@ class Object
   end
 end
 
+=begin
+class Blackhole # < NilClass
+  include Singleton
+  def method_missing msg, *arg, &block; self; end
+  def nil?; true; end
+  def null?; true; end
+  def blackhole?; true; end
+  def to_bool; false; end
+end
+=end
+
+# module Kernel; def blackhole; Blackhole.instance; end; end
 class NilClass
-  def method_missing msg, *arg, &block
-    self
-  end
+  def method_missing msg, *arg, &block; self; end
 end
 
+=begin
 class Fixnum
   def collect
     result = []
@@ -47,3 +60,43 @@ class Fixnum
     result
   end
 end
+=end
+
+class Symbol
+  def to_proc; lambda{|*args| args.shift.__send__ self, *args }; end
+end
+
+class Array
+  alias_method :filter, :select
+  def foldl func, init; self.inject init, &func; end
+  def foldr func, init
+    self.reverse_each{ |i|
+      init = func[i, init]
+    }
+    init
+  end
+end
+
+class Proc
+  def curry *pre
+    lambda{ |*post| self[*(pre + post)] }
+  end
+  def chain *procs, &block
+    procs << block if block
+    lambda{ |*args|
+      result = []
+      ([self] + procs).each{ |i|
+        result += [i[*args]].flatten
+      }
+      result
+    }
+  end
+  def compose *procs, &block
+    procs << block if block
+    lambda{ |*args|
+      ([self] + procs).reverse.inject(args){ |val, fun|
+        fun[*val]
+      }
+    }
+  end
+end

data/lib/ludy/rambda.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/lib/ludy/this.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/lib/ludy/variable.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/lib/ludy/y_combinator.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/lib/ludy/z_combinator.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/ludy.gemspec

@@ -18,7 +18,7 @@ require 'rubygems'
 
 spec = Gem::Specification.new{|s|
   s.name     = 'ludy'
-  s.version  = '0.0.2'
+  s.version  = '0.0.3'
   s.author   = 'Lin Jen-Shin(a.k.a. godfat)'
   s.email    = 'strip number: 135godfat7911@246gmail.890com'
   s.homepage = 'http://ludy.rubyforge.org/'
@@ -27,7 +27,7 @@ spec = Gem::Specification.new{|s|
   candidates = Dir.glob '{bin,doc,lib,test}/**/*'
   candidates+= Dir.glob '*'
   s.files    = candidates.delete_if{|item|
-                 item.include?('CVS') || item.include?('rdoc') || File.extname(item) == '.gem'
+                 item.include?('rdoc') || File.extname(item) == '.gem'
                }
 
   s.require_path = 'lib'

data/test/tc_callstack.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/test/tc_curry.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env 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 'curry'
+require_ludy 'ludy_ext'
+include Ludy
+class Array
+  def test_curry a, b, c, d, e
+    [a, b, c, d, e]
+  end
+  include Curry
+end
+class TestCurry < Test::Unit::TestCase
+  def test_curry
+    func1 = [1,2,3].cfoldr[:-.to_proc]
+    assert_equal 2, func1[0]
+
+    assert_equal [8,10,12], [4,5,6].cmap(&:*.to_proc.curry(2))
+
+    result = [2,3,4,5,6]
+    func2 = result.ctest_curry[2]
+    func3 = func2[3]
+    func4 = func3[4]
+    func5 = func4[5]
+    func6 = func5[6]
+
+    assert_equal result, result.ctest_curry[2,3,4,5,6]
+    assert_equal result, func2[3,4,5,6]
+    assert_equal result, func3[4,5,6]
+    assert_equal result, func4[5,6]
+    assert_equal result, func5[6]
+    assert_equal result, func6
+  end
+end

data/test/tc_dice.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/test/tc_lazy.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/test/tc_ludy_ext.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #
@@ -21,16 +21,18 @@ class TestLudyExt < Test::Unit::TestCase
   def test_object_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
+  def test_blackhole
+    assert_equal nil, nil.XD.Orz.zzz
   end
   def test_fixnum_collect
-    a, b, c = 3.collect{|i| i}
+    # a, b, c = 3.collect{|i| i}
+    a, b, c = (0..2).to_a
     assert_equal 0, a
     assert_equal 1, b
     assert_equal 2, c
 
-    array = 5.collect{Array.new}
+    # array = 5.collect{Array.new}
+    array = Array.new(5).map{[]}
     assert_equal 5, array.size
     5.times{|y|
       5.times{|x|
@@ -42,12 +44,65 @@ class TestLudyExt < Test::Unit::TestCase
   end
   def test_if
     assert_equal  "XD", (true ).if{"XD"}
-    assert            ! (false).if{"XD"}
+    assert (false).if{"XD"}.nil?
     assert_equal "Orz", (false).if{"XD"}.else{"Orz"}
     assert_equal  "XD", (true ).if{"XD"}.else{"Orz"}
     assert_equal  "XD", (true ).if{"xd"}.upcase
-    assert            ! (false).if{"xd"}.upcase
+    assert (false).if{"xd"}.upcase.nil?
     assert_equal "OTL", (false).if{"xd"}.else{"otl"}.upcase
     assert_equal  "XD", (true ).if{"xd"}.else{"otl"}.upcase
   end
+  def test_filter
+    assert_equal [1,2,3], [1,18,29,9,4,3,2,1,3,7].filter{|i| i<=3}.sort.uniq
+  end
+  def test_folds
+    assert_equal  6, [1,2,3].foldl(:+.to_proc, 0)
+    assert_equal -6, [1,2,3].foldl(:-.to_proc, 0)
+    assert_equal  6, [1,2,3].foldr(:+.to_proc, 0)
+    assert_equal  2, [1,2,3].foldr(:-.to_proc, 0)
+  end
+  def test_proc_curry
+    multiply = lambda{|l,r| l*r}
+
+    double = multiply.curry 2
+    assert_equal 8, double[4]
+    assert_equal 6, double[3]
+
+    xd = multiply.curry 'XD', 5
+    assert_equal 'XDXDXDXDXD', xd.call
+
+    assert_equal 29, :+.to_proc.curry(18)[11]
+  end
+
+  def test_proc_chain
+    f1 = lambda{|v| v+1}
+    assert_equal 5, f1[4]
+
+    f2 = lambda{|v| v+2}
+    assert_equal 6, f2[4]
+
+    f3 = f1.chain f2
+    assert_equal [6,7], f3[5]
+
+    f4 = f3.chain f1
+    assert_equal [2,3,2], f4[1]
+
+    f5 = f4.chain{|v|[10,11,v]}
+    assert_equal [1,2,1,10,11,0], f5[0]
+  end
+
+  def test_proc_compose
+    f1 = lambda{|v| v+1}
+    f2 = lambda{|v| v*2}
+    f3 = f1.compose f2
+    assert_equal 21, f3[10]
+
+    f4 = lambda{|a,b| a*b}
+    f5 = lambda{|a,b| [a*b, a-b]}
+    f6 = f4.compose f5
+    assert_equal -30, f6[3,5]
+
+    f7 = lambda{|a| a*2}.compose f6.compose{|a,b| [b,a]}
+    assert_equal 60, f7[3,5]
+  end
 end

data/test/tc_rambda.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #
@@ -25,8 +25,6 @@ class TestRambda < Test::Unit::TestCase
       (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
-    }
+    assert_equal nil, rambda{v}.call
   end
 end

data/test/tc_this.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/test/tc_variable.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/test/tc_y_combinator.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/test/tc_z_combinator.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

data/test/ts_ludy.rb

@@ -1,4 +1,4 @@
-#!/usr/bin/ruby
+#!/usr/bin/env ruby
 
 #    Copyright (c) 2007, Lin Jen-Shin（a.k.a. godfat 真常）
 #

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.4
 specification_version: 1
 name: ludy
 version: !ruby/object:Gem::Version 
-  version: 0.0.2
-date: 2007-07-18 00:00:00 +08:00
+  version: 0.0.3
+date: 2007-08-07 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
@@ -35,6 +35,7 @@ files:
 - lib/lib/smulti.rb
 - lib/ludy
 - lib/ludy/callstack.rb
+- lib/ludy/curry.rb
 - lib/ludy/dice.rb
 - lib/ludy/lazy.rb
 - lib/ludy/ludy_ext.rb
@@ -45,6 +46,7 @@ files:
 - lib/ludy/z_combinator.rb
 - lib/ludy.rb
 - test/tc_callstack.rb
+- test/tc_curry.rb
 - test/tc_dice.rb
 - test/tc_lazy.rb
 - test/tc_ludy_ext.rb
@@ -54,6 +56,7 @@ files:
 - test/tc_y_combinator.rb
 - test/tc_z_combinator.rb
 - test/ts_ludy.rb
+- CHANGES
 - lib
 - LICENSE
 - ludy.gemspec