comprehensible 0.1.0

data/README.md

@@ -0,0 +1,66 @@
+# Comprehensible
+
+Comprehensible is a way to build list comprehensions in Ruby.
+
+### Is it a hack?
+
+Of course.
+
+### Ok, so what does it do?
+
+You pass in some source enumerables with labels along with some filtering and
+mapping lambdas, and you get an array back.
+
+### How is the result built?
+
+The filters are applied to their matching source in order, and the mappers are
+composed based on their arguments and applied to the output of the filters.
+
+If more than one enumerable is present prior to return, the results for each are
+zipped together.
+
+### Can I see a few examples?
+
+Sure.
+
+```ruby
+# Square the even xs
+Array.comprehension({x: 1..10}, [->(x) { x.even? }], [->(x) { x ** x }])
+=> [4, 256, 46656, 16777216, 10000000000]
+
+# Zip odd x and even y pairs
+Array.comprehension({x: 1..10, y: 1..10}, [->(x) { x.odd? }, ->(y) { y.even? }], [])
+=> [[1, 2], [3, 4], [5, 6], [7, 8], [9, 10]]
+
+# Solution to Euler 1 (http://projecteuler.net/problem=1)
+Array.comprehension({x: 1...1000}, [->(x) { x % 3 == 0 || x % 5 == 0 }], []).reduce(:+)
+=> 233168
+
+# log2 growth
+Hash[Array.comprehension({x: 1..1000, y: 1..1000}, [], [->(y) { Math.log2(y) }])]
+=> {1=>0.0,
+ 2=>1.0,
+ 3=>1.584962500721156,
+ [...]
+ 998=>9.96289600533726,
+ 999=>9.964340867792417,
+ 1000=>9.965784284662087}
+```
+
+### How can I play with this?
+
+`gem install comprehensible`
+
+Then you should be able to use it with
+
+`require comprehensible`
+
+### What are the limitations?
+
+There are some (lots):
+
+* Function argument names must match a key in the enums hash.
+* Lambdas can only have a single argument, otherwise execution ordering is a headache.
+* Filters are run before mappers, you can't filter using mappers either
+
+:(

data/Rakefile

@@ -0,0 +1,7 @@
+require 'rake'
+require 'rspec/core/rake_task'
+require 'bundler/gem_tasks'
+
+RSpec::Core::RakeTask.new(:spec)
+
+task :default => :spec

data/lib/comprehensible/comprehension.rb

@@ -0,0 +1,42 @@
+module Comprehensible
+  def comprehension(labeled_enums, filters=[], mappers=[])
+    filters = construct_filters(filters)
+    mappers = construct_mappers(mappers)
+
+    filtered = labeled_enums.reduce({}) do |accum, (key, values)|
+      values.each do |val|
+        inc = filters[key].map { |filter| filter[val] }.all?
+
+        (accum[key] ||= []) << val if inc
+      end
+      accum
+    end
+
+    mapped = filtered.reduce({}) do |accum, (key, values)|
+      mappers[key] ? accum[key] = values.map { |value| mappers[key][value] } : accum[key] = values
+      accum
+    end
+
+    self.new(mapped.keys.count >= 2 ? mapped.values.self_zip : mapped.values.flatten)
+  end
+
+  private
+
+  def construct_mappers(mappers)
+    grouped_mappers = mappers.group_by(&:extract_required_parameters)
+
+    composed_mappers = grouped_mappers.reduce({}) do |accum, (key, values)|
+      accum[key] = values.reduce(:*)
+      accum
+    end
+
+    composed_mappers
+  end
+
+  def construct_filters(filters)
+    grouped_filters = filters.group_by(&:extract_required_parameters)
+    grouped_filters.default = []
+
+    grouped_filters
+  end
+end

data/lib/comprehensible/core_extensions/array.rb

@@ -0,0 +1,8 @@
+class Array
+  extend Comprehensible
+
+  def self_zip
+    head, *tail = self.sort_by(&:length)
+    head.zip(*tail)
+  end
+end

data/lib/comprehensible/core_extensions/proc.rb

@@ -0,0 +1,13 @@
+class Proc
+  def self.compose(f, g)
+    lambda { |*args| f[g[*args]] }
+  end
+
+  def *(g)
+    Proc.compose(self, g)
+  end
+
+  def extract_required_parameters
+    Hash[self.parameters][:req]
+  end
+end

data/lib/comprehensible/version.rb

@@ -0,0 +1,7 @@
+module Comprehensible
+  MAJOR = 0
+  MINOR = 1
+  MICRO = 0
+
+  VERSION = [MAJOR, MINOR, MICRO].join('.')
+end

data/lib/comprehensible.rb

@@ -0,0 +1,18 @@
+module Comprehensible
+  class << self
+    def root
+      @@root ||= File.expand_path(File.dirname(__FILE__))
+    end
+
+    def require_all path
+      Dir[File.join(root, path, '*.rb')].each { |f| require f }
+    end
+
+    def load_all path
+      Dir[File.join(root, path, '*.rb')].each { |f| load f }
+    end
+  end
+end
+
+Comprehensible::require_all('comprehensible/')
+Comprehensible::load_all('comprehensible/core_extensions')

data/spec/comprehensible/comprehension_spec.rb

@@ -0,0 +1,23 @@
+require File.expand_path('../../../lib/comprehensible', __FILE__)
+
+describe :comprehension do
+  it "should return its input as a list without modifiers" do
+    Array.comprehension({x: 1..10}).should eq (1..10).to_a
+  end
+
+  it "should zip multiple enums correctly without modifiers" do
+    Array.comprehension({x: 1..10, y: 1..99}).should eq (1..10).to_a.zip((1..99).to_a)
+  end
+
+  it "should filter non-matching values using filters" do
+    Array.comprehension({x: 1..10}, [->(x) { x > 5 }, ->(x) { x < 7}]).should eq [6]
+  end
+
+  it "should modify applicable values with mapping operations" do
+    Array.comprehension({x: 1..3}, [], [->(x) { x ** x }, ->(x) { x ** x }]).should eq [1, 256, 443426488243037769948249630619149892803]
+  end
+
+  it "should apply mapping operations to filtered values" do
+    Array.comprehension({x: 1..10}, [->(x) { x.odd? }], [->(x) { x ** x }]).should eq [1, 27, 3125, 823543, 387420489]
+  end
+end

metadata

@@ -0,0 +1,86 @@
+--- !ruby/object:Gem::Specification
+name: comprehensible
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Matt Smith
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-09-14 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Map and filter enumerables into lists of your design
+email: matt@thunk.io
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/comprehensible/comprehension.rb
+- lib/comprehensible/core_extensions/array.rb
+- lib/comprehensible/core_extensions/proc.rb
+- lib/comprehensible/version.rb
+- lib/comprehensible.rb
+- spec/comprehensible/comprehension_spec.rb
+- README.md
+- Rakefile
+homepage: http://github.com/qbyt/comprehensible
+licenses:
+- MIT
+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: List comprehensions... ish
+test_files: []
+has_rdoc: false