pyper 1.0.0 → 1.0.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 86bd94959f7d92d97f3ae50b938bc4cc08bf2f3f
-  data.tar.gz: 3a7d993030ddd5084ee0df32892fb5ddac5873cb
+  metadata.gz: ae702106bdc8ca11192dccacd049c668d5fd7309
+  data.tar.gz: 2a73f2e591932e5f58894200553f48bfb3b53901
 SHA512:
-  metadata.gz: 747e5089a4095f008391f9215e0b467fc87b52561946116176b2b60f3c9fb9f60eb37affe191c5799fdfab659a8c02103e9699d30926fc8b33a48d8ac052ffc6
-  data.tar.gz: 51282f2e4f2eec7c4e91e09c3f7023a3926adf175a5070b7593829aebea8eb2b385b4c69eecc4cfba89dd1fc8214232af18aeaacbf9961d072369435045f5713
+  metadata.gz: fe04b4c64f4f53e6431da543938e8f8c6a7cbfe8a4751589a0352a94a9a30d5eeeac702e073ab670458022cef72831ba95217375a3850938a67c433889a7e745
+  data.tar.gz: 8ca38172287630003f181528d898bb4d2583132ad67f76ff8e80530ff139c99d11d7e1cb03e60b52b66128dcd271d2f96d196a6583b2ea44726f221fbb571d4e

data/lib/pyper/version.rb

@@ -1,3 +1,4 @@
 module Pyper
-  VERSION = "1.0.0"
+  VERSION = "1.0.1"
+  DEBUG = false
 end

data/lib/pyper.rb

@@ -5,7 +5,6 @@ require "pyper/version"
 # Pyper is an extension of the Lispy car/cdr idea.
 # 
 module Pyper
-  
   # Everybody knows Lispy functions #car, #cdr. In Ruby, these functions
   # can be defined for example as:
   def car; first end                                 # a: first
@@ -117,11 +116,11 @@ module Pyper
       mτ_string.gsub! /^alpha\nalpha\n/, "alpha\n"     # workaround
       mτ_string.gsub! /^alpha\nalpha =/, "alpha ="     # workaround
       mτ_string.gsub! /^alpha = alpha =/, 'alpha ='    # workaround
-      # puts mτ_string # DEBUG
+      puts mτ_string if Pyper::DEBUG
       self.class.module_eval( mτ_string )
       send( mτ_sym, *args, &block )
     }
-    # puts "received msg #{mτ_sym}" # DEBUG
+    puts "received msg #{mτ_sym}" if Pyper::DEBUG
     case mτ_sym.to_s
     when /^τ(.+)τ$/ then pyperλ.( op: 1, ret: 1 )
     when /^π(.+)τ$/ then pyperλ.( op: 2, ret: 1 )
@@ -827,39 +826,39 @@ module Pyper
     #
     # Greek characters corresponding to the internal variable names of the
     # Pyper method are used to manipulate the argument source stack:
-    
+
     # α pushes the primary pipeline (0) on the @argsrc stack:
     def α; @argsrc.alpha end
     # (Remark: Current pipe name is at the bottom of the @rr pipe stack)
-    
+
     # β pushes the secondary pipeline (1) on the @argsrc stack:
     def β; @argsrc.beta end
     # (Remark: SUCC hash tells us what the other pipe is, based on the
     # current pipe name, seen on the *bottom* of the pipe stack @rr)
-    
+
     # γ refers to the successor pipe (SUCC[@rr[0]]), but as there are only
     # two pipes, it is always the other pipe.
     def γ; @argsrc.var rSUCC( @rr[0] ) end
-    
+
     # δ pushes the in-block pipeline delta on the @argsrc stack:
     def δ; @argsrc.delta end
-    
+
     # ε, ζ push block arguments epsilon, resp. zeta on the @argsrc stack:
     def ε; @argsrc.epsilon end
     def ζ; @argsrc.zeta end
-    
+
     # ψ and ω respectively refer to the penultimate and last args element:
     def ψ; @argsrc.psi end
     def ω; @argsrc.omega end
-    
+
     # Lambda pushes onto the argument stack the default argument source, which
     # is the argument list indexed with write-time @arg_count index:
     def λ; @argsrc.args_counted end
-    
+
     # Capital omega pushes onto the argument stack whole 'args' variable
     # (whole argument list), with 'shift' mode turned on by default:
     def Ω; @argsrc.args end
-    
+
     # When inverted exclamation mark '¡' is used a prefix to the source
     # selector, then rather then being pushed on the @argsrc stack, the new
     # argument source replaces the topmost element of the stack. When the
@@ -876,20 +875,20 @@ module Pyper
     def ¡ω; @argsrc.omega! end
     def ¡λ; @argsrc.args_counted! end
     def ¡Ω; @argsrc.args! end
-    
+
     # Small pi sets the 'dup' grab mode for the top @argsrc element:
-    def π; @argsrc.shift! end
+    def π; @argsrc.dup! end
 
     # Small sigma sets the 'shift' grab mode for the top @argsrc element:
     def σ; @argsrc.shift! end
-    
+
     # Small pi prefixed with inverted exclamation mark sets the 'ref'
     # (default) grab mode for the top@argsrc element (naturally, turning off
     # 'shift' or 'dup' mode).
     def ¡π; @argsrc.ref! end
     # Same for small sigma prefixed with inverted exclamation mark:
     alias :¡σ :¡π
-    
+
     # Iota decrements the @arg_count index. If iota is used once, it causes
     # that same argument is used twice. If iota is used repeatedly, pointer
     # goes further back in the arg. ᴀ.
@@ -907,7 +906,16 @@ module Pyper
     def j; chain "join" end   # nullary join
     # k:
     # l:
-    def m; nullary_m_with_block "map" end # All-important #map method
+    # def m; nullary_m_with_block "map" end # All-important #map method
+
+    # '9' - [-1st] (ie. an array with only the last collection element)
+    def m
+      pipe_2_variable
+      start "if #@r.is_a? String then #@r = #@r.each_char end\n"
+      start
+      nullary_m_with_block "map"
+    end
+
     # n:
     # o: prefix character
     # p: ? recursive piper method, begin
@@ -919,6 +927,7 @@ module Pyper
     # Latin capital letters
     # ********************************************************************
     def A; pipe_2_variable; start "Array(#@r)" end # Array( pipe )
+    alias Α A # Greek Α, looks the same, different char
     def B; @take_block = true unless @take_block == :taken end # eat block
     def C; paren end # explicit parenthesize
     def D; exe "#@r = #@r.dup" end # self.dup

data/test/pyper_test.rb

@@ -3,8 +3,8 @@
 
 require 'test/unit'
 require 'shoulda'
-# require_relative './../lib/pyper'
-require 'pyper'
+require_relative './../lib/pyper'
+# require 'pyper'
 
 include Pyper
 
@@ -105,5 +105,18 @@ class YPiperTest < ::Test::Unit::TestCase
     assert_equal ['x'], ['x'].τmß_mςτ
     assert_equal [[['y']]], [[[:y]]].τmmmςτ
     assert_equal [[:x, :y], [:v, :w]], [[?x, ?y], [?v, ?w]].τmmßτ
+    
+    assert_equal [1, 1, 1], "abc".τm∅₁τ
+    require 'y_support/all'
+    @a = ["a", "b", "c"]
+    exp = [[["a"], ["b"], ["c"]],
+           [["a", "b"], ["c"]],
+           [["a"], ["b", "c"]],
+           [["a", "b", "c"]]]
+    rslt = ( 0...2**( @a.size - 1 ) )
+      .τm«_M﹪_mτ( "%0#{@a.size - 1}b", &[:τmᴇ⁇τ, ?0, ?+,  ?,] )
+      .τm→ι←J_m﹪τ( '', "[@a[%s]]", [*0...@a.size] )
+      .τm→←_mτ( '[', ']', &method( :eval ) )
+    assert_equal exp.sort, rslt.sort
   end
 end # class

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: pyper
 version: !ruby/object:Gem::Version
-  version: 1.0.0
+  version: 1.0.1
 platform: ruby
 authors:
 - boris
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-04-16 00:00:00.000000000 Z
+date: 2013-07-21 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: shoulda
@@ -59,7 +59,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements: []
 rubyforge_project: 
-rubygems_version: 2.0.0
+rubygems_version: 2.0.3
 signing_key: 
 specification_version: 4
 summary: 'Methods car, cdr, caar, cadr, cdar, caaar, caadr, ... are well known from