diff --git a/MIT/sqrt.scm b/MIT/sqrt.scm new file mode 100644 index 0000000..1bccffa --- /dev/null +++ b/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) + + diff --git a/Structure/test.scm b/Structure/test.scm new file mode 100644 index 0000000..2869d81 --- /dev/null +++ b/Structure/test.scm @@ -0,0 +1 @@ +(define add2(+ 2)) diff --git a/fixum/hello.scm b/fixum/hello.scm new file mode 100644 index 0000000..18623f6 --- /dev/null +++ b/fixum/hello.scm @@ -0,0 +1,5 @@ +; The first program + +(begin + (display "Hello, World!") + (newline)) diff --git a/tortoise/tortoise b/tortoise/tortoise index 9e9a088..6932034 100755 Binary files a/tortoise/tortoise and b/tortoise/tortoise differ