init

2 files changed, 21 insertions, 0 deletions

diff --git a/7-kyu/a-rule-of-divisibility-by-7.rkt b/7-kyu/a-rule-of-divisibility-by-7.rkt
new file mode 100644
index 0000000..6859107
--- /dev/null
+++ b/7-kyu/a-rule-of-divisibility-by-7.rkt
@@ -0,0 +1,15 @@
+#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))
diff --git a/7-kyu/sum-of-odd-numbers.hs b/7-kyu/sum-of-odd-numbers.hs
new file mode 100644
index 0000000..11bb86e
--- /dev/null
+++ b/7-kyu/sum-of-odd-numbers.hs
@@ -0,0 +1,6 @@
+-- https://www.codewars.com/kata/55fd2d567d94ac3bc9000064
+
+module Codewars.SumOddNumbers where
+
+rowSumOddNumbers :: Integer -> Integer
+rowSumOddNumbers x = x * x * x