From 29d2e9037763f630d01851beb5508d2e9d6012db Mon Sep 17 00:00:00 2001 From: Ahoura Radpey Date: Wed, 21 Jun 2023 16:17:31 -0700 Subject: [PATCH] chore: testing --- src/koans/14_recursion.clj | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/src/koans/14_recursion.clj b/src/koans/14_recursion.clj index 0f35a4c..7faee78 100644 --- a/src/koans/14_recursion.clj +++ b/src/koans/14_recursion.clj @@ -3,25 +3,32 @@ (defn is-even? [n] (if (= n 0) - __ - (___ (is-even? (dec n))))) + true + (not (is-even? (dec n))))) (defn is-even-bigint? [n] (loop [n n acc true] (if (= n 0) - __ + acc (recur (dec n) (not acc))))) (defn recursive-reverse [coll] - __) + (if (empty? coll) + [] + (conj (recursive-reverse (rest coll)) (first coll))) + ) (defn factorial [n] - __) + (if (zero? n) + 1 + (if (false? (= c 1)) + ) + )) (meditations "Recursion ends with a base case" - (= true (is-even? 0)) + (= true (is-even? 4)) "And starts by moving toward that base case" (= false (is-even? 1))