cons 1.1.2 → 1.1.3

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 03bf0fb5c5ddae8eb049455c8d4a66673563cdb9
-  data.tar.gz: 628c0f196d8fe9a0c819d7741969ff457c8f3d1d
+  metadata.gz: 6fc1264739f0ef0a44ae89584fe730894635a84e
+  data.tar.gz: aa2cd8cc42e95bfcf9b4b189d585dcaefa3ec2e1
 SHA512:
-  metadata.gz: 751c698c4b92cca312aa11abad0739ff10fdf20dc9a992fa86a35d4b7f70c04002a57044c19e32afa7cccd7ae6474833f1ac468a19e61cdd51efe45d59b0968e
-  data.tar.gz: 5ef764711df875cff7a415bc3c9a39045fdc40bcb4b47c0c41aada4841f3cd8110cc4cf18dc78ca5c5062dd019a6622bd56a2c918b0e09d36bd07ed666962c3c
+  metadata.gz: 7a4e3bfcb1e435c1eff543e655c111844c561e1bcf992b9cc0b9940a72e29ca743c1e56af65a5cf4b07f02be9278cc6e5682da1d01bb2359f3a865003f06772d
+  data.tar.gz: 0ff6132cc51d44f13e161beade6a40faf0a190cbc1aacf2578506eeb1f830b0da7ea7e7794460aa307164554d6517f8ed8999dcb0c026819d2c3e2b0e4f39e2e

data/lib/cons.rb

@@ -256,6 +256,29 @@ class Cons
     end
   end
 
+  # The pop method reads the value of place, remembers the car of the list which
+  # was retrieved, writes the cdr of the list back into the place, and finally
+  # yields the car of the originally retrieved list.
+  #
+  # Cf. <http://clhs.lisp.se/Body/m_pop.htm>
+  def pop
+    result = @car
+    n = @cdr
+    @car = n.car
+    @cdr = n.cdr
+    return result
+  end
+
+  # push prepends item to the list that is stored in place, stores the resulting
+  # list in place, and returns the list.
+  #
+  # Cf. <http://clhs.lisp.se/Body/m_push.htm>
+  def push value
+    @cdr = Cons[@car,@cdr]
+    @car = value
+    return self
+  end
+
   ## Lots of TODOs from the CLHS
 
   # TODO - (n)butlast - http://clhs.lisp.se/Body/f_butlas.htm
@@ -268,8 +291,6 @@ class Cons
   # TODO - member, member-if, member-if-not - http://clhs.lisp.se/Body/f_mem_m.htm
   # TODO - nconc - http://clhs.lisp.se/Body/f_nconc.htm
   # TODO - revappend, nreconc - http://clhs.lisp.se/Body/f_revapp.htm
-  # TODO - pop - http://clhs.lisp.se/Body/m_pop.htm
-  # TODO - push - http://clhs.lisp.se/Body/m_push.htm
   # TODO - pushnew - http://clhs.lisp.se/Body/m_pshnew.htm
   # TODO - (n)subst, (n)subst-if, (n)subst-if-not - http://clhs.lisp.se/Body/f_substc.htm
   # TODO - (n)sublis - http://clhs.lisp.se/Body/f_sublis.htm

metadata

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