Add Baklava in Gerbil (#4166)

TheRenegadeCoder · Jan 1, 2025 · 35553f3 · 35553f3
1 parent a7e8da2
commit 35553f3
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/archive/g/gerbil/baklava.ss b/archive/g/gerbil/baklava.ss
@@ -0,0 +1,16 @@
+(import :std/iter)
+(import :std/misc/func)
+
+(export main)
+
+(def (string-repeat n str)
+    (string-join (repeat str n) "")
+)
+
+(def (main . args)
+  (for (i (in-range -10 11))
+    (def num-spaces (abs i))
+    (def num-stars (- 21 (* 2 num-spaces)))
+    (displayln (string-repeat num-spaces " ") (string-repeat num-stars "*"))
+  )
+)