From d5f96f998dad241c127c2ddc884dffd5b913f5ed Mon Sep 17 00:00:00 2001
From: Mistivia <i@mistivia.com>
Date: Tue, 6 Feb 2024 14:47:12 +0800
Subject: sovle codewars 6-kyu pyramid array

---
 codewars/6-kyu/pyramid-array/solution.rkt | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 codewars/6-kyu/pyramid-array/solution.rkt

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 '()))
+
-- 
cgit v1.0