Even or odd: Difference between revisions
→{{header|Racket}}
m (→{{header|RPL}}) |
Dr-neptune (talk | contribs) |
||
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}}==
| |||