sample: Add sample programs from advent blog posts

Author: ingydotnet

sample/100-doors.ys

@@ -0,0 +1,15 @@
+!yamlscript/v0
+
+defn main():
+  say:
+    "Open doors after 100 passes:
+    $(apply str interpose(\", \" open-doors()))"
+
+defn open-doors():
+  for: .[[d n] map(vector doors() iterate(inc 1)) :when d] n
+
+defn doors():
+  reduce:
+    fn [doors idx]: assoc(doors idx true)
+    into []: repeat(100 false)
+    map \(dec (% * %)): 1..10

sample/factorial.ys

@@ -0,0 +1,7 @@
+#!/usr/bin/env ys-0
+
+defn main(n):
+  say: factorial(n)
+
+defn factorial(x):
+  apply *: 2..x

sample/hello-world.ys

@@ -0,0 +1,2 @@
+!yamlscript/v0
+say: "Hello, world!"

sample/pipeline.ys

@@ -0,0 +1,11 @@
+!yamlscript/v0
+->> (1..10):
+  www: "before map"
+  map: inc
+  www: "after map"
+  filter: \(= 0 (mod % 2))  # odd?
+  www: "after filter"
+  reduce: +
+  www: "after reduce"
+  =>: say
+  =>: www

sample/twas-a-bit

@@ -1,10 +1,8 @@
 #!/usr/bin/env ys-0
-# a-bit-before -- Generate a winter-holiday poem in the Mad Libs style
-
-declare: poem
+# twas-a-bit -- Generate a winter-holiday poem in the Mad Libs style
 
 defn main():
-  ->: poem() say
+  say: poem()
 
 data =: load("a-bit-of-data.ys")