cons 1.1.1 → 1.1.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: d152ce3a7027460c8a1cc73acc6d7e3aa1d4eb66
-  data.tar.gz: 759e54ec5cd5d6b7ec4fb4400671c2ae0937e335
+  metadata.gz: 03bf0fb5c5ddae8eb049455c8d4a66673563cdb9
+  data.tar.gz: 628c0f196d8fe9a0c819d7741969ff457c8f3d1d
 SHA512:
-  metadata.gz: e328284155901e0e6140bc40b5a43a0a233347b31ba1701dbd6d95c104c77e2452d58dd962e45f85e268247fe5acd31cafb744839fb47d8ecdc17e00d3f488c0
-  data.tar.gz: e268af7785ccc16db535a1dc92bce3575abdda46e175e53ac97f1a0f9b839570091678ab8376d2a2f5d4ecdd42cffc48050b1093347a1aed0ddb64e019953081
+  metadata.gz: 751c698c4b92cca312aa11abad0739ff10fdf20dc9a992fa86a35d4b7f70c04002a57044c19e32afa7cccd7ae6474833f1ac468a19e61cdd51efe45d59b0968e
+  data.tar.gz: 5ef764711df875cff7a415bc3c9a39045fdc40bcb4b47c0c41aada4841f3cd8110cc4cf18dc78ca5c5062dd019a6622bd56a2c918b0e09d36bd07ed666962c3c

data/lib/cons.rb

@@ -76,9 +76,9 @@ class Cons
   alias rplacd cdr=
 
   def nthcdr n
-    if not n.kind_of? Integer or n < 0
-      raise ArgumentError, "n for nthcdr must be a non-negative integer"
-    elsif n == 0
+    if not n.kind_of? Integer
+      raise ArgumentError, "n for nthcdr must be an integer"
+    elsif n <= 0
       self
     elsif n > 0
       if cdr.nil?
@@ -210,15 +210,30 @@ class Cons
 
   alias tree_copy copy_tree
 
-  # The last_cons method returns the last cdr that is a cons.
-  def last_cons
+  # The the_last method returns the last cdr that is a cons.
+  def the_last
     if @cdr.kind_of? Cons
-      return @cdr.last_cons
+      return @cdr.last
     else
       return self
     end
   end
 
+  # last returns the last n conses (not the last n elements) of list).  If n is
+  # zero, the atom that terminates list is returned. If n is greater than or
+  # equal to the number of cons cells in list, the result is list.
+  #
+  # Cf. <http://clhs.lisp.se/Body/f_last.htm>
+  def last n=nil
+    if n.nil? or n == 1
+      return the_last
+    elsif n <= 0
+      return Cons[]
+    else
+      return nthcdr length-n
+    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
@@ -230,13 +245,13 @@ class Cons
     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
+        result.the_last.cdr = list.copy_tree
+      else # list is not a list
+        result.the_last.cdr = list
       end
       return result
     else
-      result.last_cons.cdr = list.copy_tree
+      result.the_last.cdr = list.copy_tree
       return result.append *rest
     end
   end
@@ -247,7 +262,6 @@ class Cons
   # TODO - copy-alist - http://clhs.lisp.se/Body/f_cp_ali.htm
   # TODO - copy-list - http://clhs.lisp.se/Body/f_cp_lis.htm
   # TODO - endp - http://clhs.lisp.se/Body/f_endp.htm
-  # TODO - last - http://clhs.lisp.se/Body/f_last.htm
   # TODO - ldiff, tailp - http://clhs.lisp.se/Body/f_ldiffc.htm
   # TODO - list* - http://clhs.lisp.se/Body/f_list_.htm
   # TODO - list-length - http://clhs.lisp.se/Body/f_list_l.htm

metadata

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