cons 1.0.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: f805721ecfb3bf54166c7b54683bdbf5381618c6
+  data.tar.gz: dcb41ae9a86ec64045f5327ee33cecc650ff01e3
+SHA512:
+  metadata.gz: 9c41095b955c9a93b94c6b2e76d970ba0fec7b1216d9f78f8da3ec287d7e3f3615a6f7c1207f04e3d82328f6cc88f5cd0052f113bc99729257d251a4f994c8f2
+  data.tar.gz: 79c1b01c1c8282d0fcb30d13bf064b706103855f99edd9a3d3d81c3c48aa347b6f8aec7cee6b8b86216440903d7ada17044b898c8cb69f840f40d9644b065da4

data/lib/cons.rb

@@ -0,0 +1,196 @@
+# -*- coding: utf-8 -*-
+# -*- mode: Ruby -*-
+
+# Copyright © 2016, Christopher Mark Gore,
+# Soli Deo Gloria,
+# All rights reserved.
+#
+# 2317 South River Road, Saint Charles, Missouri 63303 USA.
+# Web: http://cgore.com
+# Email: cgore@cgore.com
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#
+#   * Redistributions of source code must retain the above copyright
+#     notice, this list of conditions and the following disclaimer.
+#
+#   * Redistributions in binary form must reproduce the above copyright
+#     notice, this list of conditions and the following disclaimer in the
+#     documentation and/or other materials provided with the distribution.
+#
+#   * Neither the name of Christopher Mark Gore nor the names of other
+#     contributors may be used to endorse or promote products derived from
+#     this software without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+
+class Array
+  def to_cons
+    Cons.from_array self
+  end
+
+  class << self
+    def from_cons cons
+      cons.to_a
+    end
+  end
+end
+
+class Cons
+  attr_accessor :car, :cdr
+
+  def initialize car=nil, cdr=nil
+    @car, @cdr = car, cdr
+  end
+
+  def ==(rhs)
+    rhs.kind_of? Cons and car == rhs.car and cdr == rhs.cdr
+  end
+
+  alias first car
+  alias first= car=
+  alias rest cdr
+  alias rest= 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 == 1
+      self
+    elsif n > 1
+      if cdr.nil?
+        nil
+      else
+        cdr.nthcdr n-1
+      end
+    end
+  end
+
+  def nth n
+    i = nthcdr n
+    if i.nil?
+      nil
+    else
+      nthcdr(n).car
+    end
+  end
+
+  def nth_eq(n, value)
+    puts "nth= n=#{n} value=#{value}"
+    i = nthcdr(n)
+    if i.nil?
+      raise RuntimeError
+    else
+      nthcdr(n).car= value
+    end
+  end
+
+  def first
+    car
+  end
+
+  def first_eq value
+    @car = value
+  end
+
+  [[:second, 2],
+   [:third, 3],
+   [:fourth, 4],
+   [:fifth, 5],
+   [:sixth, 6],
+   [:seventh, 7],
+   [:eighth, 8],
+   [:ninth, 9],
+   [:tenth, 10]].each do |fname, i|
+    class_eval %{
+      def #{fname}
+        nth #{i}
+      end
+
+     def #{fname}=(value)
+       nth_eq(#{i}, value)
+     end
+    }
+  end
+
+  ["aa",
+   "ad",
+   "da",
+   "dd",
+   "aaa",
+   "aad",
+   "ada",
+   "add",
+   "daa",
+   "dad",
+   "dda",
+   "ddd",
+   "aaaa",
+   "aaad",
+   "aada",
+   "aadd",
+   "adaa",
+   "adad",
+   "adda",
+   "addd",
+   "daaa",
+   "daad",
+   "dada",
+   "dadd",
+   "ddaa",
+   "ddad",
+   "ddda",
+   "dddd"].each do |middle|
+    path = middle.split("").map {|i| "c#{i}r"}.join "."
+    fname = "c#{middle}r"
+    class_eval %{
+      def #{fname}
+        #{path}
+      end
+
+      def #{fname}= value
+        #{path}= value
+      end
+    }
+  end
+
+  def to_a
+    if not car or car.nil?
+      []
+    elsif not cdr or cdr.nil?
+      [car]
+    else
+      [car] + cdr.to_a
+    end
+  end
+
+  class << self
+    def from_array array, initial=true
+      car, *cdr = array
+      if car.nil?
+        if initial
+          self[nil, nil]
+        else
+          nil
+        end
+      else
+        self[car, from_array(cdr, false)]
+      end
+    end
+
+    def [] car=nil, cdr=nil
+      new car, cdr
+    end
+  end
+end

metadata

@@ -0,0 +1,57 @@
+--- !ruby/object:Gem::Specification
+name: cons
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+platform: ruby
+authors:
+- Christopher Mark Gore
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-08-18 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: pry
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: Teepee is a markup language, loosely based on Lisp and TeX, for ThinkingBicycle.com.
+email: cgore@cgore.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/cons.rb
+homepage: https://github.com/cgore/ruby-cons
+licenses: []
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.5.1
+signing_key: 
+specification_version: 4
+summary: Teepee is a markup language for ThinkingBicycle.com.
+test_files: []