reorg code

2 files changed, 0 insertions, 29 deletions

diff --git a/codewars/6-kyu/pyramid-array/solution.rkt b/codewars/6-kyu/pyramid-array/solution.rkt
deleted file mode 100644
index 0d6a00b..0000000
--- a/codewars/6-kyu/pyramid-array/solution.rkt
+++ /dev/null
@@ -1,14 +0,0 @@
-#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 '()))
-
diff --git a/codewars/7-kyu/a-rule-of-divisibility-by-7/solution.rkt b/codewars/7-kyu/a-rule-of-divisibility-by-7/solution.rkt
deleted file mode 100644
index 6859107..0000000
--- a/codewars/7-kyu/a-rule-of-divisibility-by-7/solution.rkt
+++ /dev/null
@@ -1,15 +0,0 @@
-#lang racket
-
-;; https://www.codewars.com/kata/55e6f5e58f7817808e00002e
-
-(provide seven)
-
-(define (seven m)
-  (define (impl cur steps)
-    (define x (quotient cur 10))
-    (define y (modulo cur 10))
-    (define next (- x (* 2 y)))
-    (if (< cur 100)
-        (cons cur steps)
-        (impl next (+ 1 steps))))
-  (impl m 0))