[scheme] - пример практической программы

0

0

После изучения теоритической части scheme хочется посмотреь примеры готовых open-source программ на этом языке программирования. Желательно, чтобы программа была не очень большая (иначе мне сложно будет разобраться) и желательно, чтобы она решала законченную прикладную задачу (иначе мне будет неинтересно).

Хотелось бы, чтобы это было с каким-нибудь интерфейсом пользователя или с работой с базами данных.

Что посоветуете?

Ссылка

←	Фаза проектирования и тех-доки

Есть спецы по gtk2-perl? Прозрачность окна

→

(define gcd (lambda (a b)
	(if (> a b) (gcd (- a b) b)
		(if (< a b) (gcd a (- b a))
			a))
))

(gcd 4 12)




(begin

(define V 1.0)
(define r 0.01)
(define g 9.8)

(define x1 0.0)
(define x2 0.4)
(define n 30)

(define dx (/ (- x2 x1) n))

(define 4rt
 (lambda (x)
  (sqrt (sqrt x)
   )))

(define y
 (lambda (x)
  (/ r (4rt (+ 1.0 (* 2.0 g x (/ 1.0 V V))))
   )))


(do ((x x1 (+ x dx))) ((> x x2))
 (begin
  (display x) (display " ") (display (y x)) (newline)
   ))

)

~~ip1981~~ ☆☆
(05.02.09 00:17:29 MSK)