Even or odd: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,513: / Line 3,513: @@
 (define (my-odd? x)
   (= (modulo x 2) 1))</syntaxhighlight>
+With mutually recursive functions:
+<syntaxhighlight lang="racket">
+(define (even-or-odd? i)
+  (letrec ([even? (λ (n)
+                    (if (= n 0)
+                        'even
+                        (odd? (sub1 n))))]
+           [odd? (λ (n)
+                   (if (= n 0)
+                       'odd
+                       (even? (sub1 n))))])
+    (even? i)))
+(even-or-odd? 100)  ; => 'even
+(even-or-odd? 101)  ; => 'odd
+</syntaxhighlight>
 =={{header|Raku}}==