sicp

sicp sandbox.
git clone git://git.ricketyspace.net/sicp.git
Log | Files | Refs

commit 50b48911bdff2ee90c203b22baf3953d2b23b24a
parent fc933303d5b5c15e3f912f74dc1af6c1ba3118c5
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat,  8 Dec 2018 12:04:50 -0500

Add (net ricketyspace sicp two twenty).

Diffstat:
net/ricketyspace/sicp/two/twenty.scm | 14++++++++++++++
1 file changed, 14 insertions(+), 0 deletions(-)

diff --git a/net/ricketyspace/sicp/two/twenty.scm b/net/ricketyspace/sicp/two/twenty.scm @@ -0,0 +1,14 @@ +;;;; License: CC0-1.0 + +(define-module (net ricketyspace sicp two twenty) + #:export (same-parity)) + +(define (same-parity x . y) + (define x-parity (remainder x 2)) + (define (find nums) + (cond ((null? nums) '()) + ((= x-parity (remainder (car nums) 2)) + (cons (car nums) (find (cdr nums)))) + (else + (find (cdr nums))))) + (cons x (find y)))