skeem 0.1.02 → 0.1.03

checksums.yaml

@@ -1,7 +1,7 @@
 ---
-SHA1:
-  metadata.gz: d94f383bc1d7de65f89a238b842b70e2c33d82c6
-  data.tar.gz: a2f2c7ee6140a51f3a5ea060d4211076c7f4b61e
+SHA256:
+  metadata.gz: 378523b0249fe580ce581ba771a6fb89e1b9e8845489629b81930adecccf2907
+  data.tar.gz: de3a44c40bb82810c3dbaa7b97d70de40d8d0149c157bc97fdd7e74c8e4e44cb
 SHA512:
-  metadata.gz: ca7c1d2590e6f3dec7a02345e36c8d8fe01df89aa601727e490ead32099c76e858f23a7e6caa49dd37dc144d07cc70a7a1bbe7559efdfb04437ac2e3e8fa0a81
-  data.tar.gz: 8cc56c1209d30ce0470f5281bad9b17cabdd8515f4126881c5bf7815f1fb94e73fc2d73ce33f84826291f0b0c8f2ac7498adfd1c7da8b879519fb0ed20b41e05
+  metadata.gz: 6189770ed0e2cd852d30a80d87ff9947c43a7c43afa64f4673ca1ce7208d5967b864a6e62dc9a20fd9ad0ca3115e6f31e77058038bf7c4f523f110dcae50a162
+  data.tar.gz: 6fe2efbf1e8618df9af68c08ea62abbb4cb66d52a45019be4f6e5961be418044a60091e41e1c7fad4da27d1d396e23ae4bb2e6fb6b52dca89b8db0f1f395c748

data/CHANGELOG.md

@@ -1,3 +1,11 @@
+## [0.1.03] - 2019-01-15
+### Added
+- File `base.skm` implementation of list procedures: `caar`, `cadr`, `cdar`, `cddr`
+
+### Changed
+- File `interpreter_spec.rb` added spec examples to test the new procedures.
+- File `README.md` added allusion to new procedures?
+
 ## [0.1.02] - 2019-01-13
 ### Added
 - File `primitive_builder.rb` implementation of: `equal?`, `make-vector`, `symbol->string` procedures.

data/README.md

@@ -178,7 +178,7 @@ This section lists the implemented standard procedures
 * Integer-level: `even?`, `odd?`
 
 #### List procedures
-* `list?`, `null?`, `pair?`, `car`, `cdr`, `cons`,  `length`, `list`, `list->vector`, `set-car!`, `set-cdr!`
+* `list?`, `null?`, `pair?`, `car`, `cdr`, `caar`, `cadr`, `cdar`, `cddr`,  `cons`,  `length`, `list`, `list->vector`, `set-car!`, `set-cdr!`
 
 #### String procedures
 * `string?`, `string=?`,  `string-append`, `string-length`, `string->symbol`

data/appveyor.yml

@@ -1,5 +1,5 @@
 version: '{build}'
-max_jobs: 5
+max_jobs: 3
 environment:
   matrix:
   - Ruby_version: 25-x64

data/lib/skeem/standard/base.skm

@@ -73,21 +73,21 @@
 (define list
   (lambda args args))
  
-; (define caar 
-  ; (lambda (x)
-    ; (car (car x))))
+(define caar 
+  (lambda (x)
+    (car (car x))))
 
-; (define cadr 
-  ; (lambda (x) 
-    ; (car (cdr x))))
+(define cadr 
+  (lambda (x) 
+    (car (cdr x))))
 
-;(define cdar 
-;  (lambda(x)
-;    (cdr (car x))))
+(define cdar 
+ (lambda(x)
+   (cdr (car x))))
 
-;(define cddr 
-;  (lambda (x) 
-;    (cdr (cdr x))))
+(define cddr 
+ (lambda (x) 
+   (cdr (cdr x))))
 
 ;; (list-ref list n)    
 ;; Return the nth (sero-based) element of list

data/lib/skeem/version.rb

@@ -1,3 +1,3 @@
 module Skeem
-  VERSION = '0.1.02'.freeze
+  VERSION = '0.1.03'.freeze
 end

data/skeem.gemspec

@@ -63,6 +63,6 @@ if RUBY_VERSION <= '2.2'
 else
   spec.add_development_dependency 'bundler', '~> 2.0'
 end
-  spec.add_development_dependency 'rake', '~> 10.0'
+  spec.add_development_dependency 'rake', '~> 12.0'
   spec.add_development_dependency 'rspec', '~> 3.0'
 end

data/spec/skeem/interpreter_spec.rb

@@ -600,6 +600,48 @@ SKEEM
         end
       end
 
+      it 'should implement the caar procedure' do
+        checks = [
+          ["(caar '((a)))", 'a'],
+          ["(caar '((1 2) 3 4))", 1]
+        ]
+        checks.each do |(skeem_expr, expectation)|
+          result = subject.run(skeem_expr)
+          expect(result).to eq(expectation)
+        end
+      end
+
+      it 'should implement the cadr procedure' do
+        checks = [
+          ["(cadr '(a b c))", 'b'],
+          ["(cadr '((1 2) 3 4))", 3]
+        ]
+        checks.each do |(skeem_expr, expectation)|
+          result = subject.run(skeem_expr)
+          expect(result).to eq(expectation)
+        end
+      end
+
+      it 'should implement the cdar procedure' do
+        checks = [
+          ["(cdar '((7 6 5 4 3 2 1) 8 9))", [6, 5, 4, 3, 2, 1]]
+        ]
+        checks.each do |(skeem_expr, expectation)|
+          result = subject.run(skeem_expr)
+          expect(result.to_a).to eq(expectation)
+        end
+      end
+      
+      it 'should implement the cddr procedure' do
+        checks = [
+          ["(cddr '(2 1))", []]
+        ]
+        checks.each do |(skeem_expr, expectation)|
+          result = subject.run(skeem_expr)
+          expect(result.to_a).to eq(expectation)
+        end
+      end      
+
       it 'should implement the symbol=? procedure' do
         checks = [
           ["(symbol=? 'a 'a)", true],

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: skeem
 version: !ruby/object:Gem::Version
-  version: 0.1.02
+  version: 0.1.03
 platform: ruby
 authors:
 - Dimitri Geshef
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2019-01-13 00:00:00.000000000 Z
+date: 2019-01-15 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: rley
@@ -44,14 +44,14 @@ dependencies:
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '10.0'
+        version: '12.0'
   type: :development
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '10.0'
+        version: '12.0'
 - !ruby/object:Gem::Dependency
   name: rspec
   requirement: !ruby/object:Gem::Requirement
@@ -66,8 +66,7 @@ dependencies:
     - - "~>"
       - !ruby/object:Gem::Version
         version: '3.0'
-description: |2
-    Skeem is a Scheme language interpreter implemented in Ruby.
+description: "  Skeem is a Scheme language interpreter implemented in Ruby.\n"
 email:
 - famished.tiger@yahoo.com
 executables: []
@@ -145,8 +144,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubyforge_project: 
-rubygems_version: 2.6.13
+rubygems_version: 3.0.2
 signing_key: 
 specification_version: 4
 summary: Skeem is an interpreter of a subset of the Scheme programming language. Scheme