ludy 0.0.6 → 0.0.7

data/CHANGES

@@ -1,4 +1,15 @@
 
+==============================
+ludy 0.0.7
+
+1. ludy_ext:
+  added:
+    1. Array#untranspose
+    2. Array#unzip
+    3. Array#combine!
+    4. Object#m
+    5. Kernel#id
+
 ==============================
 ludy 0.0.6, 2007.09.15
 

data/lib/ludy/ludy_ext.rb

@@ -17,6 +17,7 @@
 # require 'singleton'
 
 class Object
+  alias_method :m, :method
   def tap
     yield self
     self
@@ -75,6 +76,16 @@ class Array
     init
   end
   def combine *target; self.zip(*target).map &:'inject &:+'.to_msg; end
+  def combine! *target; replace combine(*target); end
+  def untranspose
+    result = ([nil]*self.first.size).map{[]}
+    self.each{ |zipped|
+      zipped = zipped.clone
+      result.each{ |r| r << zipped.shift }
+    }
+    result
+  end
+  def unzip; self.untranspose.first; end
 end
 
 class Proc
@@ -100,6 +111,7 @@ class Proc
 end
 
 module Kernel
+  def id a = nil; a.nil? ? self : a; end
   def curry
     class << self
       alias_method :orig_call, :call

data/ludy.gemspec

@@ -18,7 +18,7 @@ require 'rubygems'
 
 spec = Gem::Specification.new{|s|
   s.name     = 'ludy'
-  s.version  = '0.0.6'
+  s.version  = '0.0.7'
   s.author   = 'Lin Jen-Shin(a.k.a. godfat)'
   s.email    = 'strip number: 135godfat7911@246godfat.890org'
   s.homepage = 'http://ludy.rubyforge.org/'

data/test/tc_ludy_ext.rb

@@ -120,5 +120,29 @@ class TestLudyExt < Test::Unit::TestCase
     a = [[1,2],[3,4],[5,6]]
     assert_equal [9, 12], a.inject(&:combine)
     assert_equal [9, 12], a.shift.combine(*a)
+
+    a = [18,29]
+    a.combine! [12, 1]
+    assert_equal [30, 30], a
+  end
+
+  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, b].transpose.untranspose
+    assert_equal a, a.zip(b).unzip
+
+    c = [nil, false, true]
+    assert_equal [a, b, c], a.zip(b, c).untranspose
+    assert_equal [a, b, c], [a, b, c].transpose.untranspose
+    assert_equal a, a.zip(b, c).unzip
+  end
+
+  def test_id_and_m
+    assert_equal 'XD', id('XD')
+    assert_equal 'Orz', 'Orz'.id
+    assert_equal [1,3], [1,3].map(&m(:id))
+    assert_equal [2,4], [2,4].map(&:id)
   end
 end

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.4
 specification_version: 1
 name: ludy
 version: !ruby/object:Gem::Version 
-  version: 0.0.6
-date: 2007-09-15 00:00:00 +08:00
+  version: 0.0.7
+date: 2007-10-08 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