lasp 0.5.0 → 0.6.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 9fca3af94104dd1dc67d77518aaf7453a42b109d
-  data.tar.gz: a2a3d7157ec4383687b5cefe14de7d0f643058e5
+  metadata.gz: d33419ed01e48e150efc416ec315d24df18ee6b9
+  data.tar.gz: 2c9c32ff5dad6abe4fab2f55fdeb0e9ab3cf36b2
 SHA512:
-  metadata.gz: 81b9f85741d98c4395246d241fcbe471ee9524247bb297a2fc9b1519494ac0db0ab0622fac4e47256191f756432ec64de867be555afbf4dbb1aef27f5a173eab
-  data.tar.gz: 54e9ac7f09dbb55fb2bb807df769c4040026cf0d7d2b8a4004182f439cd66c399eaf237344dbd1c68e90d08989b7889c264547dcdea09fdbf7b365269be66dfb
+  metadata.gz: 9c38c3f9008608f4bec13175e7e03fe545e6767d2292fa9f3d75eca7151068c520ffe2e0e4546fc15a438adc409223a369e11b9db43ed3ea386193d8de19cb07
+  data.tar.gz: efd637931a8d72b480384118186df5060e975e1bd1b60afac9e628060631204ddf4005f5cc0f76f93d15b5628030df1024c62130bb8cd8a58f2d4848bd693c5a

data/CHANGELOG.md

@@ -1,5 +1,11 @@
 # Läsp changelog
 
+## v0.6.0
+
+- `<` and `>` now return false when given a list of equal items, they all **have to** increase or decrease.
+- Add `<=` and `>=` to the core library.
+- Fix stack overflowing when using `range` with an upper bound less than the lower bound, this now returns an empty list.
+
 ## v0.5.0
 
 - Merge `lasp-repl` command into `lasp`, it starts when not provided with a filename.

data/lib/lasp/corelib.rb

@@ -1,22 +1,24 @@
 module Lasp
   CORELIB = {
-    :+          => -> (*args)         { args.reduce(:+)                 },
-    :-          => -> (*args)         { args.reduce(:-)                 },
-    :*          => -> (*args)         { args.reduce(:*)                 },
-    :/          => -> (*args)         { args.reduce(:/)                 },
-    :<          => -> (*args)         { args.sort == args               },
-    :>          => -> (*args)         { args.sort.reverse == args       },
-    :"="        => -> (*args)         { args.uniq.count == 1            },
-    :list       => -> (*args)         { args                            },
-    :head       => -> (list)          { list.first                      },
-    :tail       => -> (list)          { list.drop(1)                    },
-    :cons       => -> (item, list)    { [item] + list                   },
-    :"hash-map" => -> (*args)         { Hash[*args]                     },
-    :get        => -> (key, a)        { a[key]                          },
-    :assoc      => -> (a, key, val)   { a.dup.tap { |a| a[key]=val    } },
-    :dissoc     => -> (a, key)        { a.dup.tap { |a| a.delete(key) } },
-    :not        => -> (arg)           { !arg                            },
-    :println    => -> (output)        { puts output                     },
-    :"."        => -> (obj, m, *args) { obj.send(m, *args)              },
+    :+          => -> (*args)         { args.reduce(:+)                          },
+    :-          => -> (*args)         { args.reduce(:-)                          },
+    :*          => -> (*args)         { args.reduce(:*)                          },
+    :/          => -> (*args)         { args.reduce(:/)                          },
+    :<          => -> (*args)         { args.each_cons(2).all? { |a, b| a < b }  },
+    :>          => -> (*args)         { args.each_cons(2).all? { |a, b| a > b }  },
+    :<=         => -> (*args)         { args.each_cons(2).all? { |a, b| a <= b } },
+    :>=         => -> (*args)         { args.each_cons(2).all? { |a, b| a >= b } },
+    :"="        => -> (*args)         { args.uniq.count == 1                     },
+    :list       => -> (*args)         { args                                     },
+    :head       => -> (list)          { list.first                               },
+    :tail       => -> (list)          { list.drop(1)                             },
+    :cons       => -> (item, list)    { [item] + list                            },
+    :"hash-map" => -> (*args)         { Hash[*args]                              },
+    :get        => -> (key, a)        { a[key]                                   },
+    :assoc      => -> (a, key, val)   { a.dup.tap { |a| a[key] = val  }          },
+    :dissoc     => -> (a, key)        { a.dup.tap { |a| a.delete(key) }          },
+    :not        => -> (arg)           { !arg                                     },
+    :println    => -> (output)        { puts output                              },
+    :"."        => -> (obj, m, *args) { obj.send(m, *args)                       },
   }
 end

data/lib/lasp/eval.rb

@@ -17,20 +17,20 @@ module Lasp
 
     if head == :def
       key, value = tail
-      env[key] = eval(value, env)
+      env[key] = Lasp::eval(value, env)
     elsif head == :fn
       params, func = tail
-      -> (*args) { eval(func, env.merge(Hash[params.zip(args)])) }
+      -> (*args) { Lasp::eval(func, env.merge(Hash[params.zip(args)])) }
     elsif head == :do
-      tail.map { |form| eval(form, env) }.last
+      tail.map { |form| Lasp::eval(form, env) }.last
     elsif head == :if
       conditional, true_form, false_form = tail
-      eval(conditional, env) ? eval(true_form, env) : eval(false_form, env)
+      Lasp::eval(conditional, env) ? Lasp::eval(true_form, env) : Lasp::eval(false_form, env)
     elsif Proc === head
       head.(*tail)
     else
-      fn = eval(head, env)
-      fn.(*tail.map { |form| eval(form, env) })
+      fn = Lasp::eval(head, env)
+      fn.(*tail.map { |form| Lasp::eval(form, env) })
     end
   end
 end

data/lib/lasp/stdlib.lasp

@@ -99,7 +99,7 @@
 ; Exclusive range
 (def range
   (fn (from to)
-    (if (= from to)
+    (if (>= from to)
       (list)
       (cons from (range (inc from) to)))))
 

data/lib/lasp/version.rb

@@ -1,3 +1,3 @@
 module Lasp
-  VERSION = "0.5.0"
+  VERSION = "0.6.0"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: lasp
 version: !ruby/object:Gem::Version
-  version: 0.5.0
+  version: 0.6.0
 platform: ruby
 authors:
 - Jimmy Börjesson
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-09-24 00:00:00.000000000 Z
+date: 2016-01-17 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler