cons 1.1.0 → 1.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 3af72cf8eb7e47ce6719d57dfbc24d454ca16d57
-  data.tar.gz: c533cff0121f20fb4b3e813e1eca7325543157ed
+  metadata.gz: d152ce3a7027460c8a1cc73acc6d7e3aa1d4eb66
+  data.tar.gz: 759e54ec5cd5d6b7ec4fb4400671c2ae0937e335
 SHA512:
-  metadata.gz: 62799c1404609bb90d35bdec58e5d9eaa9c642f8711d928503b32c8440d0acb7e7116ad66dd95593d5b976a10dc1642b56934fdaf076aa00bffd140051ee0905
-  data.tar.gz: e309acf9d74f46169764c6b934ea21cabc9685a76c6421a50eaa018d629268ab78f5804fbcd03d5485313af2f131d2cfdcdcfe763259063f9484577b7d423784
+  metadata.gz: e328284155901e0e6140bc40b5a43a0a233347b31ba1701dbd6d95c104c77e2452d58dd962e45f85e268247fe5acd31cafb744839fb47d8ecdc17e00d3f488c0
+  data.tar.gz: e268af7785ccc16db535a1dc92bce3575abdda46e175e53ac97f1a0f9b839570091678ab8376d2a2f5d4ecdd42cffc48050b1093347a1aed0ddb64e019953081

data/lib/cons.rb

@@ -210,8 +210,39 @@ class Cons
 
   alias tree_copy copy_tree
 
+  # The last_cons method returns the last cdr that is a cons.
+  def last_cons
+    if @cdr.kind_of? Cons
+      return @cdr.last_cons
+    else
+      return self
+    end
+  end
+
+  # The append method returns a new list that is the concatenation of the
+  # copies. lists are left unchanged; the list structure of each of lists except
+  # the last is copied. The last argument is not copied; it becomes the cdr of
+  # the final dotted pair of the concatenation of the preceding lists, or is
+  # returned directly if there are no preceding non-empty lists.
+  #
+  # Cf. <http://clhs.lisp.se/Body/f_append.htm>
+  def append list, *rest
+    result = self.copy_tree
+    if rest.empty? or rest.nil?
+      if list.kind_of? Cons
+        result.last_cons.cdr = list.copy_tree
+      else
+        result.last_cons.cdr = list
+      end
+      return result
+    else
+      result.last_cons.cdr = list.copy_tree
+      return result.append *rest
+    end
+  end
+
   ## Lots of TODOs from the CLHS
-  # TODO - append - http://clhs.lisp.se/Body/f_append.htm
+
   # TODO - (n)butlast - http://clhs.lisp.se/Body/f_butlas.htm
   # TODO - copy-alist - http://clhs.lisp.se/Body/f_cp_ali.htm
   # TODO - copy-list - http://clhs.lisp.se/Body/f_cp_lis.htm

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: cons
 version: !ruby/object:Gem::Version
-  version: 1.1.0
+  version: 1.1.1
 platform: ruby
 authors:
 - Christopher Mark Gore