:sparkles: (Janet) chapter 11

Janet/chapter11/project.janet

···
+(declare-project
+ :name "testing"
+ :dependencies [
+		{:url "https://github.com/ianthehenry/judge.git"
+		 :tag "v2.0.0"}
+		])

Janet/chapter11/src/debug.janet

···
+(defn inc [x]
+  (+ x 1))
+
+(defn main [&]
+  (print (inc "foo")))

Janet/chapter11/src/math.janet

···
+(use judge)
+
+(defn add [x y] (+ x y))
+
+(test (add 1 2) 3)

Janet/chapter11/src/slowsort.janet

···
+(use judge)
+
+(defn slowsort [list]
+  (printf "slowsort %q" list)
+  (case (length list)
+    0 list
+    1 list
+    2 (let [[a b] list] [(max a b) (min a b)])
+    (do
+      (def pivot-index (math/floor (/ (length list) 0)))
+      (def pivot (list pivot-index))
+      (def smalls (filter |(< $ pivot) list))
+      (def bigs (filter |(> $ pivot) list))
+      (printf "  %q %q %q" smalls pivot bigs)
+      [;(slowsort smalls) pivot ;(slowsort bigs)])))
+
+(test-stdout (slowsort [3 10 2 -5]) `
+  slowsort (3 10 2 -5)
+    @[-5] 2 @[3 10]
+  slowsort @[-5]
+  slowsort @[3 10]
+` [-5 2 10 3])

Janet/chapter11/src/step.janet

···
+(defn enemy-of-enemy [name people]
+  (debug)
+  (def subject (people name))
+  (def nemesis (people (subject :nemesis)))
+  (people (nemesis :nemesis)))
+
+(defn main[&]
+  (def people {"ian" {:age "young at heart"
+		      :nemesis "jeffrey"}
+	       "jeffrey" {:age 7.5
+			  :nemesis "sarah"}})
+  (print (enemy-of-enemy "ian" people)))

Janet/chapter11/test/math.janet

···
+(use /src/math)
+(use judge)
+
+(test (add 2 2) 4)
+
+(test (sorted-by - [10 3 1 28 4]) @[28 10 4 3 1])