shenanigans 1.0.0

data/lib/shenanigans/array.rb

@@ -0,0 +1,2 @@
+require_relative "array/random_subarray"
+require_relative "array/zip_with"

data/lib/shenanigans/kernel/fn.rb

@@ -0,0 +1,16 @@
+module Kernel
+  # Composes a list of functions.
+  # Functions can be specified as symbols or lambdas.
+  #   ["foo bar", "baz qux"].map &fn(:split, :last)
+  #   #=> ["bar", "qux"]
+  #
+  #   (1..3).map &fn(:next, -> x { x * x }, -> x { x.to_f / 2 } )
+  #   #=> [2.0, 4.5, 8.0]
+  def fn(*funs)
+    -> x do
+      funs.inject(x) do |v,f|
+        Proc === f ? f.call(v) : v.send(f)
+      end
+    end
+  end
+end

data/lib/shenanigans/kernel/prompt.rb

@@ -0,0 +1,23 @@
+module Kernel
+
+  # Currently only used by <tt>prompt</tt>:
+  # <tt>:to_i</tt>, <tt>:to_f</tt>, <tt>:to_r</tt>, <tt>:to_sym</tt>, <tt>:to_c</tt>
+  CONVERSIONS = [:to_i, :to_f, :to_r, :to_sym, :to_c]
+
+  # Displays a prompt and returns chomped input.
+  # Modelled after the Python method <tt>raw_input</tt>, but also can
+  # be supplied with an optional conversion method.
+  #   prompt("Prompt> ")
+  #   Prompt> 12
+  #   #=> "12"
+  #
+  #   prompt("Prompt> ", :to_f)
+  #   Prompt> 12
+  #   #=> 12.0
+  def prompt(text='', conversion=nil)
+    print text unless text.empty?
+    input = gets.chomp
+    CONVERSIONS.include?(conversion) ? input.send(conversion) : input
+  end
+
+end

data/lib/shenanigans/kernel/with.rb

@@ -0,0 +1,12 @@
+module Kernel
+  # A Pascal/ActionScript like <tt>with</tt> method. Yields its
+  # argument to the provided block and then returns it.
+  #   with([]) do |a|
+  #     a << "a"
+  #     a << "b"
+  #   end
+  #   #=> ["a", "b"]
+  def with(o, &blk)
+    o.tap(&blk)
+  end
+end

data/lib/shenanigans/kernel.rb

@@ -0,0 +1,3 @@
+require_relative "kernel/fn"
+require_relative "kernel/prompt"
+require_relative "kernel/with"

data/lib/shenanigans/object/identity.rb

@@ -0,0 +1,9 @@
+class Object
+  # An identity method that provides access to an object's
+  # <tt>self</tt>.
+  #  [1,2,3,4,5,1,2,2,3].group_by(&:identity)
+  #  #=> {1=>[1, 1], 2=>[2, 2, 2], 3=>[3, 3], 4=>[4], 5=>[5]}
+  def identity
+    self
+  end
+end

data/lib/shenanigans/object.rb

@@ -0,0 +1 @@
+require_relative "object/identity"

data/lib/shenanigans.rb

@@ -0,0 +1,3 @@
+require 'shenanigans/array'
+require 'shenanigans/kernel'
+require 'shenanigans/object'

data/test/array/test_random_subarray.rb

@@ -0,0 +1,10 @@
+require 'minitest/autorun'
+require 'shenanigans/array/random_subarray'
+
+class RandomSubarray < MiniTest::Unit::TestCase
+  def test_random_subarray
+    result = [*1..5].random_subarray(3)
+    assert result.size == 3
+    assert result.map { |a| a.all? { |x| x < 5 } }
+  end
+end

data/test/array/test_zip_with.rb

@@ -0,0 +1,14 @@
+require 'minitest/autorun'
+require 'shenanigans/array/zip_with'
+
+class ZipWith < MiniTest::Unit::TestCase
+  def test_zip_with_with_symbol
+    result = [*1..3].zip_with([*1..3], :+)
+    assert result == [2, 4, 6]
+  end
+
+  def test_zip_with_with_block
+    result = [*?a..?c].zip_with([*?a..?c]) { |a, b| a * 2 + b.upcase }
+    assert result == %w(aaA bbB ccC)
+  end
+end

data/test/kernel/test_fn.rb

@@ -0,0 +1,14 @@
+require 'minitest/autorun'
+require 'shenanigans/kernel/fn'
+
+class Fn < MiniTest::Unit::TestCase
+  def test_with_symbols
+    result = ["foo bar", "baz qux"].map &fn(:split, :last)
+    assert result == ["bar", "qux"]
+  end
+
+  def test_with_symbols_and_lambdas
+    result = (1..3).map &fn(:next, -> x { x * x }, -> x { x.to_f / 2 } )
+    assert result == [2.0, 4.5, 8.0]
+  end
+end

data/test/kernel/test_prompt.rb

@@ -0,0 +1,27 @@
+require 'minitest/autorun'
+require 'shenanigans/kernel/prompt'
+require 'stringio'
+
+class Prompt < MiniTest::Unit::TestCase
+  def setup
+    @orig_stdin = $stderr
+    @orig_stdout = $stdout
+    $stdin = StringIO.new("42\n")
+    $stdout = StringIO.new
+  end
+
+  def teardown
+    $stdin = @orig_stdin
+    $stdout = @orig_stdout
+  end
+
+  def test_prompt
+    result = prompt("Foo> ")
+    assert result == "42"
+  end
+
+  def test_prompt_with_conversion
+    result = prompt("Foo> ", :to_f)
+    assert result == 42.0
+  end
+end

data/test/kernel/test_with.rb

@@ -0,0 +1,12 @@
+require 'minitest/autorun'
+require 'shenanigans/kernel/with'
+
+class With < MiniTest::Unit::TestCase
+  def test_with
+    result = with([]) do |a|
+      a << "a"
+      a << "b"
+    end
+    assert result == %w(a b)
+  end
+end

data/test/object/test_identity.rb

@@ -0,0 +1,9 @@
+require 'minitest/autorun'
+require 'shenanigans/object/identity'
+
+class Identity < MiniTest::Unit::TestCase
+  def test_identity
+    arr = [1, "2", :tree]
+    assert arr.map(&:identity) == arr
+  end
+end

metadata

@@ -0,0 +1,103 @@
+--- !ruby/object:Gem::Specification
+name: shenanigans
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Michael Kohl
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-05-17 00:00:00.000000000 Z
+dependencies: []
+description: 
+email: citizen428@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- Gemfile
+- LICENSE
+- README.rdoc
+- doc/Array.html
+- doc/created.rid
+- doc/images/add.png
+- doc/images/brick.png
+- doc/images/brick_link.png
+- doc/images/bug.png
+- doc/images/bullet_black.png
+- doc/images/bullet_toggle_minus.png
+- doc/images/bullet_toggle_plus.png
+- doc/images/date.png
+- doc/images/delete.png
+- doc/images/find.png
+- doc/images/loadingAnimation.gif
+- doc/images/macFFBgHack.png
+- doc/images/package.png
+- doc/images/page_green.png
+- doc/images/page_white_text.png
+- doc/images/page_white_width.png
+- doc/images/plugin.png
+- doc/images/ruby.png
+- doc/images/tag_blue.png
+- doc/images/tag_green.png
+- doc/images/transparent.png
+- doc/images/wrench.png
+- doc/images/wrench_orange.png
+- doc/images/zoom.png
+- doc/index.html
+- doc/js/darkfish.js
+- doc/js/jquery.js
+- doc/js/navigation.js
+- doc/js/search.js
+- doc/js/search_index.js
+- doc/js/searcher.js
+- doc/Kernel.html
+- doc/Object.html
+- doc/rdoc.css
+- doc/README_rdoc.html
+- doc/table_of_contents.html
+- lib/shenanigans/array/random_subarray.rb
+- lib/shenanigans/array/zip_with.rb
+- lib/shenanigans/array.rb
+- lib/shenanigans/kernel/fn.rb
+- lib/shenanigans/kernel/prompt.rb
+- lib/shenanigans/kernel/with.rb
+- lib/shenanigans/kernel.rb
+- lib/shenanigans/object/identity.rb
+- lib/shenanigans/object.rb
+- lib/shenanigans/README.mdown
+- lib/shenanigans/shenanigans-0.0.1.gem
+- lib/shenanigans.rb
+- test/array/test_random_subarray.rb
+- test/array/test_zip_with.rb
+- test/kernel/test_fn.rb
+- test/kernel/test_prompt.rb
+- test/kernel/test_with.rb
+- test/object/test_identity.rb
+homepage: https://github.com/citizen428/shenanigans
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Think Facets, just less useful
+test_files: []