:sparkles: (Janet) chapter 6 and 7

Janet/chapter6/hosts.janet

···
+(def hosts [
+	    {:name "claudius"
+	     :ip "45.63.9.183"
+	     :online true
+	     :services
+	       [{:name "janet.guide"}
+		{:name "bauble.studio"}
+		{:name "ianthehenry.com"}]}
+	    {:name "caligula"
+	     :ip "45.63.9.184"
+	     :online false
+	     :services [{:name "basilica.horse"}]}])
+
+(def services
+  (seq [host :in hosts
+	:when (host :online)
+	service :pairs (host :services)]
+       service))
+
+(pp services)

Janet/chapter6/loop.janet

···
+(def hosts [
+	    {:name "claudius"
+	     :ip "45.63.9.183"
+	     :online true
+	     :services
+	       [{:name "janet.guide"}
+		{:name "bauble.studio"}
+		{:name "ianthehenry.com"}]}
+	    {:name "caligula"
+	     :ip "45.63.9.184"
+	     :online false
+	     :services [{:name "basilica.horse"}]}])
+
+(each host hosts
+  (if (host :online)
+    (each service (host :services)
+      (print (service :name)))))
+
+(loop [host :in hosts
+       :when (host :online)
+       service :in (host :services)]
+  (print (service :name)))
+
+(print)
+
+(each host hosts
+  (if (host :online)
+    (let [ip (host :ip)]
+      (eachp [service-name available] (host :services)
+	     (if available
+	       (for instance 0 3
+		 (pp [ip service-name instance])))))))
+
+(loop [host :in hosts
+       :when (host :online)
+       :let [ip (host :ip)]
+       [service-name available] :pairs (host :services)
+       :when available
+       instance :range [0 3]]
+  (pp [ip service-name instance]))

Janet/chapter7/helpers.janet

···
+(def- upcase string/ascii-upper)
+
+(defn shout [x]
+  (printf "%s!"
+	  (upcase x)))

Janet/chapter7/main.janet

···
+(defn choose [rng selections]
+  (def index (math/rng-int rng (length selections)))
+  (in selections index))
+
+(defn verbosify [rng word]
+  (choose rng
+	  (case word
+	    "quick" ["alacritous" "expeditious"]
+	    "lazy"  ["indolent" "lackadaisical" "languorous"]
+	    "jumps" ["gambols"]
+	    [word])))
+
+(defn main [&]
+  (def rng (math/rng (os/time)))
+  (as-> stdin $
+	(file/read $ :all)
+	(string/split " " $)
+	(map (partial verbosify rng) $)
+	(string/join $ " ")
+	(prin $)))

Janet/chapter7/private.janet

···
+(print "this environment:")
+(pp (require "./helpers"))
+(print)
+(print "creates these bindings:")
+(use ./helpers)
+(pp (curenv))

Janet/chapter7/project.janet

···
+(declare-project
+ :name "cat-v"
+ :description "cat --verbose"
+ :dependencies [])
+
+(declare-executable
+ :name "cat-v"
+ :entry "main.janet"
+ :no-compile true)