pyper 1.0.0

data/lib/pyper/version.rb

@@ -0,0 +1,3 @@
+module Pyper
+  VERSION = "1.0.0"
+end

data/pyper.gemspec

@@ -0,0 +1,25 @@
+# -*- encoding: utf-8 -*-
+require File.expand_path('../lib/pyper/version', __FILE__)
+
+Gem::Specification.new do |gem|
+  gem.authors       = ["boris"]
+  gem.email         = ["\"boris@iis.sinica.edu.tw\""]
+  gem.description   = %q{Ruby extension of Lispy #car/#cdr methods.}
+  gem.summary       = %q{Methods car, cdr, caar, cadr, cdar, caaar, caadr, ... are well known from Lisp.
+  Here, 'a' means first element of a collection, 'd' means rest of the collection. Now, imagine that there
+  would also be 'b' and 'c', meaning 2nd and 3rd element, 'e', 'f', meaning rest minus first 2, resp. first
+  3 elements. Imagine that instead of starting 'c' and ending 'r', Greek letter τ would be used: τaτ, τdτ, ...
+  to distinguish Pyper methods in the namespace. Imagine more more letters for more methods, imagine that
+  these methods can have arity higher than 0, imagine double-barrel pipeline instead of just single-barrel,
+  and you are getting to the spirit of Pyper (and APL).}
+  gem.homepage      = ""
+
+  gem.files         = `git ls-files`.split($\)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^(test|spec|features)/})
+  gem.name          = "pyper"
+  gem.require_paths = ["lib"]
+  gem.version       = Pyper::VERSION
+  
+  gem.add_development_dependency "shoulda"
+end

data/test/pyper_test.rb

@@ -0,0 +1,109 @@
+#! /usr/bin/ruby
+#encoding: utf-8
+
+require 'test/unit'
+require 'shoulda'
+# require_relative './../lib/pyper'
+require 'pyper'
+
+include Pyper
+
+class YPiperTest < ::Test::Unit::TestCase
+  should "define basic methods" do
+
+    assert_equal 1, [1, 2, 3].car
+    assert_equal [2, 3], [1, 2, 3].cdr
+    assert_equal :a, {a: 1}.caar
+    assert_equal [1], {a: 1}.cdar
+    assert_equal [:b, 2], {a: 1, b: 2}.cadr
+    assert_equal [[:c, 3]], {a: 1, b: 2, c: 3}.cddr
+    assert_equal 1, [1, 2].τaτ
+    assert_equal 2, [*(1..10)].τbτ
+    assert_equal 3, [*(1..10)].τcτ
+    assert_equal [*(2..10)], [*(1..10)].τdτ
+    assert_equal [*(3..10)], [*(1..10)].τeτ
+    assert_equal [*(4..10)], [*(1..10)].τfτ
+    
+    assert_equal [:a, :b, :c], [[:a, 1], [:b, 2], [:c, 3]].τmaτ
+    assert_equal ["a", "b", "c"], [[:a, 1], [:b, 2], [:c, 3]].τmaςτ
+    
+    assert_equal [*(1..7)], [*(1..10)].τuτ
+    assert_equal [*(1..8)], [*(1..10)].τvτ
+    assert_equal [*(1..9)], [*(1..10)].τwτ
+    assert_equal 8, [*(1..10)].τxτ
+    assert_equal 9, [*(1..10)].τyτ
+    assert_equal 10, [*(1..10)].τzτ
+
+
+    assert_equal 7, 7.τCτ
+    assert_equal 7, 7.τχτ( 8 )
+    assert_equal 8, [7, 8].χCτ
+    assert_equal 8, 7.τ«τ( 8 )
+    
+    assert_equal [0, 1, 6, 9], [:x.τ∅₀τ, 0.τ∅₁τ, Object.new.τ∅₆τ, "a".τ∅₉τ]
+    
+    assert_equal [:hello], :hello.τAτ
+    assert_equal [[:a, 1], [:b, 2]], ( {a: 1, b: 2}.τAτ )
+    assert_equal [1, 2], [1, 2].τAτ
+    
+    assert_equal 1, "+1.000000".τ›iτ
+    assert_equal "hello", [:h, ?e, :l, :l, :o].τjτ
+    
+    assert_equal "la", :la.τςτ
+    
+    assert_equal :hello, "hello".τßτ
+
+    assert_equal [[1, 2]], [1, 2].τ›Aτ
+
+    assert_equal [1], [*(1..10)].τ0τ
+    assert_equal [1, 2], [*(1..10)].τ1τ
+    assert_equal [1, 2, 3], [*(1..10)].τ2τ
+    assert_equal [1, 2, 3, 4], [*(1..10)].τ3τ
+    assert_equal [1, 2, 3, 4, 5], [*(1..10)].τ4τ
+    assert_equal [6, 7, 8, 9, 10], [*(1..10)].τ5τ
+    assert_equal [7, 8, 9, 10], [*(1..10)].τ6τ
+    assert_equal [8, 9, 10], [*(1..10)].τ7τ
+    assert_equal [9, 10], [*(1..10)].τ8τ
+    assert_equal [10], [*(1..10)].τ9τ
+
+    assert_equal "lligator", ["See", "you", "later", "alligator"].τdeadτ
+    assert_equal ?g, ["See", "you", "later", "alligator"].τdeafbτ
+
+    assert_equal 7, 4.τ₊τ( 3 )
+    assert_equal 15, 3.τ★τ( 5 )
+    assert_equal 2, 17.τ﹪τ( 5 )
+    assert_equal 17 / 5, 17.τ÷τ( 5 )
+    assert_equal true, 7.τᴇτ( 7 )
+    assert_equal [true, false, false], [-1, 0, 1].τm﹤τ( 0, 0, 0 )
+    assert_equal [false, false, true], [-1, 0, 1].τm﹥τ( 0, 0, 0 )
+    assert_equal [true, true, false], [-1, 0, 1].τm≤τ( 0, 0, 0 )
+    assert_equal [false, true, true], [-1, 0, 1].τm≥τ( 0, 0, 0 )
+    assert_equal [5, 10, 15], (1..3).τm★τ( 5 )
+    assert_equal [1, 4, 9], [*(1..3)].τ»Dσm★τ
+    assert_equal [1, 4, 9], (1..3).τm﹡﹡τ( 2 )
+    assert_equal [1, 4, 9], (1..3).τM★τ
+    assert_equal [?a, nil, ?a, nil], (1..4).τm﹪ᴇτ( 2, 1 ).τm⁇τ( ?a, nil )
+    assert_equal ["a", nil, "a", nil], (1..4).τm﹪ᴇ⁇τ( 2, 1, ?a, nil )
+    assert_equal [nil, "b", "b", nil], nil.τ«mᴇ⁇τ( [0, 1, 1, 0], 1, ?b, nil )
+    assert_equal [["a", nil], [nil, "b"], ["a", "b"], [nil, nil]],
+                 (1..4).τm﹪ᴇ⁇χ( 2, 1, ?a, nil ).π«mᴇ⁇π( [0, 1, 1, 0], 1, ?b, nil ).χγZτ
+    assert_equal true, [:a, :b, :c].τ¿iτ( :b )
+    assert_equal( [[:c], [:a]], [[:b, :c, :d], [:a, :b, :d]].
+                  χ»βm«ε¿i‹﹗ε⁈﹕n_●χm«ε¿i‹﹗ε⁈﹕n_●π )
+    assert_equal( "d yada yada, a, c blah blah",
+                  "%s yada yada, %s blah blah" %
+                  [[:d], [:a, :c]].χJχJπ( ", " ) )
+    assert_equal "fizzbuzz", (1..100).τm﹪ᴇ⁇χ( 3, 0, "fizz", nil ).πm﹪ᴇ⁇χ( 5, 0, "buzz", nil ).πZmjτ[14]
+    assert_equal ["ax", "bx"], ["a", "b"].τmτ { |o| o + "x" }
+    assert_equal ["ax", "bx"], ["a", "b"].τBmτ { |o| o + "x" }
+    assert_equal [-1, -2], [[1, 1], [2, 3]].πM₋τ
+    assert_equal [1, 2], [[1, 1], [2, 3]].πW₋τ
+    a, b = [Object.new, Object.new].each { |o| o.define_singleton_method :xxx do "xxx" end }
+    hsh = { a => "xxx", b => "xxx" }
+    assert_equal hsh, [a, b].τBmχHτ( &:xxx )
+    assert_equal [:x], 'x'.τABmτ( &:to_sym )
+    assert_equal ['x'], ['x'].τmß_mςτ
+    assert_equal [[['y']]], [[[:y]]].τmmmςτ
+    assert_equal [[:x, :y], [:v, :w]], [[?x, ?y], [?v, ?w]].τmmßτ
+  end
+end # class

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification
+name: pyper
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- boris
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-04-16 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: shoulda
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: 'Ruby extension of Lispy #car/#cdr methods.'
+email:
+- '"boris@iis.sinica.edu.tw"'
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE
+- README.md
+- Rakefile
+- lib/pyper.rb
+- lib/pyper/version.rb
+- pyper.gemspec
+- test/pyper_test.rb
+homepage: ''
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.0
+signing_key: 
+specification_version: 4
+summary: 'Methods car, cdr, caar, cadr, cdar, caaar, caadr, ... are well known from
+  Lisp. Here, ''a'' means first element of a collection, ''d'' means rest of the collection.
+  Now, imagine that there would also be ''b'' and ''c'', meaning 2nd and 3rd element,
+  ''e'', ''f'', meaning rest minus first 2, resp. first 3 elements. Imagine that instead
+  of starting ''c'' and ending ''r'', Greek letter τ would be used: τaτ, τdτ, ...
+  to distinguish Pyper methods in the namespace. Imagine more more letters for more
+  methods, imagine that these methods can have arity higher than 0, imagine double-barrel
+  pipeline instead of just single-barrel, and you are getting to the spirit of Pyper
+  (and APL).'
+test_files:
+- test/pyper_test.rb