funtools 0.6.1 → 0.7.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 85c1455381faf2166f294f26ce8b18012c1865e3
-  data.tar.gz: 1a36bf917be530c0081faff2d9c5dfa3890bf985
+  metadata.gz: 2e521d975280777a8df7fb3f67fdeff050745293
+  data.tar.gz: 297c3ca3cec5422c5e62452c561fbb1c4be70f03
 SHA512:
-  metadata.gz: dcb8af919e949195458d5481baa423b03434d05f12d05eb6ef6585066a680db4c7ce7f7bfc28e0bad684f9287ab920cf0959c7be9a9d7277ccff62361845719c
-  data.tar.gz: 0b7c58ed9c8e6f69e995dfaf9bf0d4120cdc4d64ab0f27506b9bf75af5b85ef7907f156cd7bebb0a97dd6b829ac7479aca995f26f5be090fe75dec4c5cfb794f
+  metadata.gz: fe6023fb759a731e2a5f54365c1d7d133936467f0264129b6664d64901b399e65fb495138acc8088115946af97f0c6bdb0866946b4008114b13cf5a830fa714f
+  data.tar.gz: 604c170f0f4b3e4df6a4dfad143c246a0ed3dbd09e917ab093f45d16e02fba52621ef2d4de8967ccf9ce695d9fe541d6f83e862f01aff49354ce2f3d74b9ea3e

data/lib/funtools/recursion.rb

@@ -1,3 +1,7 @@
+module Funtools
+  class RecurseArgs < Array; end
+end
+
 class Object
   # Public: Define a method in the current scope which will execute a given
   # block recursively until a fixpoint is reached.
@@ -6,7 +10,7 @@ class Object
   # block - Block containing the logic for the function to be created.
   #
   # Returns nothing.
-  def deftail(sym, &block)
+  def defix(sym, &block)
     message   = :define_method if respond_to?(:define_method, true)
     message ||= :define_singleton_method
     self.send(message, sym) do |*n|
@@ -18,4 +22,34 @@ class Object
       end
     end
   end
+
+  # Public: Define a method in the current scope which will execute a given
+  # block in such a manner that recursive calls are handled properly so long as
+  # the call constitutes tail recursion.
+  #
+  # sym   - Symbol defining the name of the method to be created.
+  # block - Block containing the logic for the function to be created.
+  #
+  # Returns nothing.
+  def deftail(sym, &block)
+    message   = :define_method if respond_to?(:define_method, true)
+    message ||= :define_singleton_method
+
+    self.send(message, sym) do |*n|
+      instance_exec { self.dup }.instance_exec do
+        class << self
+          self
+        end.class_eval do
+          define_method(sym) do |*a|
+            a.reduce(Funtools::RecurseArgs.new) { |c,e| c << e }
+          end
+        end
+
+        loop do
+          n = instance_exec(*n, &block)
+          return n unless n.is_a?(Funtools::RecurseArgs)
+        end
+      end
+    end
+  end
 end

data/lib/funtools.rb

@@ -5,5 +5,5 @@ require 'funtools/composition'
 require 'funtools/pattern-matching'
 
 module Funtools
-  VERSION = '0.6.1'
+  VERSION = '0.7.0'
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: funtools
 version: !ruby/object:Gem::Version
-  version: 0.6.1
+  version: 0.7.0
 platform: ruby
 authors:
 - Tina Wuest
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-11-05 00:00:00.000000000 Z
+date: 2014-11-13 00:00:00.000000000 Z
 dependencies: []
 description: Tools to assist in programming in a more functional style
 email: tina@wuest.me