sovle codewars 6-kyu pyramid array

1 files changed, 14 insertions, 0 deletions

diff --git a/codewars/6-kyu/pyramid-array/solution.rkt b/codewars/6-kyu/pyramid-array/solution.rkt
new file mode 100644
index 0000000..0d6a00b
--- /dev/null
+++ b/codewars/6-kyu/pyramid-array/solution.rkt
@@ -0,0 +1,14 @@
+#lang racket
+
+;; https://www.codewars.com/kata/515f51d438015969f7000013
+
+(provide pyramid)
+
+(define (pyramid n)
+  (define (loop ret level cur)
+    (define next (cons 1 cur))
+    (if (= level n)
+        (reverse ret)
+        (loop (cons next ret) (+ level 1) next)))
+  (loop '() 0 '()))
+