small sync

MIT/sqrt.scm

@@ -0,0 +1,14 @@
+(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

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

fixum/hello.scm

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