This is the interpreter of Devore Language, a dialect of Lisp, running on JVM platform.
Once a feature is finished and tested, and not considered harmful, I'll copy the codes here and publish releases.
(def (mysqrt x)
(def (good-enough guess)
(< (abs (- (pow guess 2) x)) 0.001))
(def (improve guess)
(average guess (/ x guess)))
(def (sqrt-iter guess)
(if (good-enough guess)
guess
(sqrt-iter (improve guess))))
(sqrt-iter 1.0))
(println (mysqrt 81))(def (myprime? n)
(def (divides? a b)
(= (mod b a) 0))
(def (find-divisor n test-divisor)
(cond [(> (sqrt test-divisor) n) n]
[(divides? test-divisor n) test-divisor]
[else (find-divisor n (+ test-divisor 1))]))
(def (smallest-divisor n)
(find-divisor n 2))
(= n (smallest-divisor n)))
(println (myprime? 17))(def (fib n)
(cond [(= n 0) 0]
[(= n 1) 1]
[else (+ (fib (- n 1)) (fib (- n 2)))]))
(println (fib 10))