sicp

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

commit e41fe7ced52fca41f3968b97df9572e4011025de
parent 884d25827772806000fc640aa339a5190704e8ac
Author: rsiddharth <s@ricketyspace.net>
Date:   Sat, 18 Feb 2017 05:13:20 +0000

net: Fix `fast-*` function.

* net/ricketyspace/sicp/one/seventeen.scm (fast-*): Update function.

Diffstat:
net/ricketyspace/sicp/one/seventeen.scm | 2+-
1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/net/ricketyspace/sicp/one/seventeen.scm b/net/ricketyspace/sicp/one/seventeen.scm @@ -41,6 +41,6 @@ B must be an even number." (define (fast-* a b) "Return A * B." - (cond ((= b 1) a) + (cond ((= b 0) 0) ((even? b) (double (fast-* a (halve b)))) (else (+ a (fast-* a (- b 1))))))