sicp

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

commit f8310270c46eac78e337d178964b98f186266427
parent edceb3f93561dab1c688e3748bc55aa357361639
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 10 Aug 2019 17:19:06 -0400

Add (net rickteyspace sicp two thirtyone).

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

diff --git a/net/ricketyspace/sicp/two/thirtyone.scm b/net/ricketyspace/sicp/two/thirtyone.scm @@ -0,0 +1,22 @@ +;;;; License: CC0-1.0 + +(define-module (net ricketyspace sicp two thirtyone) + #:export (tree-map + square-tree)) + +(define (tree-map fun tree) + (cond ((null? tree) '()) + ((not (pair? tree)) (fun tree)) + (else (cons (tree-map fun (car tree)) + (tree-map fun (cdr tree)))))) + +(define (square-tree tree) (tree-map (lambda (x) (* x x)) tree)) + +;;; Guile REPL +;;; +;;; scheme@(guile-user)> ,user (net ricketyspace sicp two thirtyone) +;;; scheme@(guile-user)> (square-tree +;;; (list 1 +;;; (list 2 (list 3 4) 5) +;;; (list 6 7))) +;;; $2 = (1 (4 (9 16) 25) (36 49))