Add Baklava in Racket (#3927)

TheRenegadeCoder · Oct 19, 2024 · 3f8ce54 · 3f8ce54
1 parent 4735ab7
commit 3f8ce54
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/archive/r/racket/baklava.rkt b/archive/r/racket/baklava.rkt
@@ -0,0 +1,8 @@
+#lang racket
+(for ([i (in-range -10 11)])
+    (define numSpaces (abs i))
+    (define numStars (- 21 (* numSpaces 2)))
+    (define s (make-string numSpaces #\ ))
+    (define t (make-string numStars #\*))
+    (printf "~a~a\n" s t)
+)