nydp 0.1.5 → 0.1.6

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 37191dabf60a754266ff7898dad970be1f0cedcd
-  data.tar.gz: fa74bdef9dff4ec5be87e23630064e6a9603ea13
+  metadata.gz: f2bdfc7b6cc359ea91871fc6ea2d46d454398e72
+  data.tar.gz: 8016a1174d6bbae50cded7bf9988ca50c5aefed9
 SHA512:
-  metadata.gz: d32cdb68d796ca1434fed7e1e5603e718f00dcadca3779e738e870308e9a4b66a64a5e0d6c5dedb2c09cb0e929fc7560f23b40e8aa32ed42ffbcb702164c3197
-  data.tar.gz: 762f0e8f0b52151b8e85d8b0e4221979207609587f96f061b58fb02c18d55e8a759a10642ffc67cfeb35a7fbea53b4fdd16d42c915606240059b22b4d1f4b01f
+  metadata.gz: 3f85114925c5bcdda72ae5f76db10229527a9e30ec8b96ce71b39dbf24138e1dc5f8544652556ae3c6ae6344c7fa54310e073c9f10a4c94c261521c43149b23d
+  data.tar.gz: b771be6e0e3be575c490179144b0db49983361a80687f374fa2e00805a263070789fdfdec829077d3c8831e634f7e7f1a050e7c9b0aab67db6d6c4579984ccf4

data/lib/lisp/core-040-utils.nydp

@@ -144,6 +144,8 @@
 (def empty? (things) (eq? (len things) 0))
 
 (mac each (var things code)
+  ; repeatedly assigns an element of 'things to 'var,
+  ; and executes 'code each time
   (w/uniq (xs c)
           `((rfn ,c (,xs)
                 (if (pair? ,xs)
@@ -216,3 +218,17 @@
       (cons start
             (range (+ start 1)
                    stop))))
+
+(def best (f things)
+  (if (no things)
+      nil
+      (let winner (car things)
+        (each thing (cdr things)
+              (if (f thing winner)
+                  (= winner thing)))
+        winner)))
+
+(def min things (best < things))
+(def max things (best > things))
+
+(def hash-cons (h k v)  (= h.,k (cons v h.,k)))

data/lib/lisp/core-090-hook.nydp

@@ -0,0 +1,18 @@
+(let hooks {}
+  (def hook-names ()
+    (hash-keys hooks))
+
+  (def hooks-for (hook-name)
+    hooks.,hook-name)
+
+  (def add-hook (hook-name f)
+    (hash-cons hooks hook-name f))
+
+  (def remove-hook (hook-name f)
+    (= hooks.,hook-name
+       (select (curry !eq? f)
+               hooks.,hook-name)))
+
+  (def run-hooks (hook-name . args)
+    (each hook (hooks-for hook-name)
+          (apply hook args))))

data/lib/lisp/tests/add-hook-examples.nydp

@@ -0,0 +1,20 @@
+(examples-for add-hook
+  ("registers a function to be run in response to a particular event"
+   (with (x nil y nil z nil)
+     (add-hook 'pile-it-up
+               (fn (thing)
+                   (= x (cons thing x))))
+     (add-hook 'why-not
+               (fn (thing)
+                   (= y (cons thing y))))
+     (add-hook 'pile-it-up
+               (fn (thing)
+                   (= z "~thing - ~z")))
+     (run-hooks 'pile-it-up 1)
+     (run-hooks 'pile-it-up 2)
+     (run-hooks 'why-not 'a)
+     (run-hooks 'pile-it-up 3)
+     (run-hooks 'why-not 'b)
+     (run-hooks 'why-not 'c)
+     (list x y z))
+   ((3 2 1) (c b a) "3 - 2 - 1 - ")))

data/lib/lisp/tests/best-examples.nydp

@@ -0,0 +1,18 @@
+(examples-for best
+  ("finds minimum of list"
+   (best < '(3 5 4 7 8 2))
+   2)
+
+  ("finds maximum of list"
+   (best > '(3 5 4 7 8 2))
+   8))
+
+(examples-for min
+  ("finds minimum of list"
+   (min 3 5 4 7 8 2)
+   2))
+
+(examples-for max
+  ("finds minimum of list"
+   (max 3 5 4 7 8 2)
+   8))

data/lib/lisp/tests/date-examples.nydp

@@ -16,6 +16,12 @@
  ("navigates to week start"        (let d (date 2015 11  6) (to-string d.beginning-of-week))   "2015-11-02" )
  ("navigates to week end"          (let d (date 2015 11  6) (to-string d.end-of-week))         "2015-11-08" )
 
+ ("can act as hash key"
+  (with (h {} d (date 2015 11 8))
+    (hash-set h d "on this day")
+    (to-string (hash-get h (date 2015 11 8))))
+  "on this day")
+
  ("returns its year"      (let d (date 1999 12 31) d.year)     1999)
  ("returns its month"     (let d (date 1999 12 31) d.month)    12  )
  ("returns its day"       (let d (date 1999 12 31) d.day)      31  )

data/lib/lisp/tests/hash-examples.nydp

@@ -18,6 +18,15 @@
    (hash-key? { foo 1 bar 2 } 'zed)
    nil))
 
+(examples-for hash-cons
+  ("is useful for storing a list in a hash"
+   (let h {}
+     (hash-cons h 'foo 1)
+     (hash-cons h 'foo 2)
+     (hash-cons h 'foo 3)
+     h.foo)
+   (3 2 1)))
+
 (examples-for brace-list
   ("with no args builds an empty hash"
    (let thing {}

data/lib/nydp/date.rb

@@ -29,6 +29,8 @@ module Nydp
     def > other   ; ruby_date > other.ruby_date           ; end
     def < other   ; ruby_date < other.ruby_date           ; end
     def == other  ; ruby_date == other.ruby_date          ; end
+    def eql? d    ; self == d                             ; end
+    def hash      ; ruby_date.hash                        ; end
 
     @@pass_through = %i{ monday? tuesday? wednesday? thursday? friday? saturday? sunday? }
     @@keys = Set.new %i{

data/lib/nydp/version.rb

@@ -1,3 +1,3 @@
 module Nydp
-  VERSION = "0.1.5"
+  VERSION = "0.1.6"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: nydp
 version: !ruby/object:Gem::Version
-  version: 0.1.5
+  version: 0.1.6
 platform: ruby
 authors:
 - Conan Dalton
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-11-08 00:00:00.000000000 Z
+date: 2015-11-09 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -95,6 +95,9 @@ files:
 - lib/lisp/core-060-benchmarking.nydp
 - lib/lisp/core-070-prefix-list.nydp
 - lib/lisp/core-080-pretty-print.nydp
+- lib/lisp/core-090-hook.nydp
+- lib/lisp/tests/add-hook-examples.nydp
+- lib/lisp/tests/best-examples.nydp
 - lib/lisp/tests/boot-tests.nydp
 - lib/lisp/tests/builtin-tests.nydp
 - lib/lisp/tests/car-examples.nydp