MIT/sqrt.scm

@@ -1,14 +0,0 @@
-(define (sqrt x)
-  (define tolerance 0.00001)
-  (define (good-enough? y)
-    (< (abs (- (* y y) x)) tolerance))
-  (define (improve y)
-    (average (/ x y) y))
-  (define (try y)
-    (if (good-enough? y)
-	y
-	(try (improve y))))
-  (try 1))
-(sqrt 13)
-    
-    

Structure/test.scm

@@ -1 +0,0 @@
-(define add2(+ 2))

fixum/hello.scm

@@ -0,0 +1,6 @@
+; The first program
+
+
+(begin
+  (display "Hello, World!")
+  (newline))