From a275c6178fc7a4b16ead9b1a38dff69052cb2996 Mon Sep 17 00:00:00 2001 From: Jordan Orelli Date: Mon, 17 Jun 2013 11:21:48 -0400 Subject: [PATCH] right, you can write (fact) now --- input.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/input.scm b/input.scm index ef56f19..881da71 100644 --- a/input.scm +++ b/input.scm @@ -104,13 +104,13 @@ x (area 3) ; <= isn't defined yet -; (define fact (lambda (n) (if (<= n 1) 1 (* n (fact (- n 1)))))) -; (fact 10) +(define fact (lambda (n) (if (<= n 1) 1 (* n (fact (- n 1)))))) +(fact 10) ; this one is an overflow error :( ; (fact 100) -; (area (fact 10)) +(area (fact 10)) ; (define first car) ; (define rest cdr)