Add Baklava in Koka (#4151)

TheRenegadeCoder · Dec 31, 2024 · f64d31a · f64d31a
1 parent ddcea9d
commit f64d31a
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/archive/k/koka/baklava.kk b/archive/k/koka/baklava.kk
@@ -0,0 +1,13 @@
+fun repeat_string(s : string, n : int) {
+    var result := ""
+    list(1, n).foreach(fn(_) { result := result + s })
+    result
+}
+
+fun main() {
+    list(-10, 10).foreach(fn(n) {
+        var num_spaces := abs(n)
+        var num_stars := 21 - 2 * num_spaces
+        println(repeat_string(" ", num_spaces) + repeat_string("*", num_stars))
+    })
+}