Add Baklava in Pinecone (#4066)

TheRenegadeCoder · Dec 2, 2024 · b16cbfc · b16cbfc
1 parent b89c61f
commit b16cbfc
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/archive/p/pinecone/baklava.pn b/archive/p/pinecone/baklava.pn
@@ -0,0 +1,16 @@
+repeatStr :: {n: Int, c: String} -> {String}: (
+    s: ""
+    i: 0 | i < in.n | i: i + 1 @ (
+        s: s + in.c
+    )
+
+    s
+)
+
+i: 0 - 10 | i <= 10 | i: i + 1 @ (
+    numSpaces: i
+    i < 0 ? (
+        numSpaces: 0 - i
+    )
+    print: (repeatStr: numSpaces, " ") + (repeatStr: 21 - 2 * numSpaces, "*")
+)