Hime Language
About
This is the interpreter of Hime 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.
Examples
Sqrt
(def (sqrt 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 (sqrt 81))
Prime?
(def (prime? 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 (prime? 17))
Fibonacci
(def (fib n)
(cond ((= n 0) 0)
((= n 1) 1)
(else (+ (fib (- n 1)) (fib (- n 2))))))
(println (fib 10))
1 Oct 25, 2021
0 Dec 4, 2021
7 Dec 21, 2022
7 Apr 12, 2022
10 Dec 15, 2022
985 Jan 1, 2023
4 Oct 11, 2022
24 Aug 20, 2022
2 Dec 14, 2022
2 Jul 5, 2022
31 Aug 9, 2022
1 Nov 22, 2021
0 Dec 7, 2021
48 Jan 1, 2023
85 Jan 1, 2023
94 Dec 22, 2022
1.9k Dec 23, 2022
192 Dec 1, 2022
18 Jun 17, 2022