diff options
Diffstat (limited to '7-kyu')
| -rw-r--r-- | 7-kyu/a-rule-of-divisibility-by-7.rkt | 15 | ||||
| -rw-r--r-- | 7-kyu/sum-of-odd-numbers.hs | 6 |
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 |