; PRINT_FUNC - print function in range [-1; 1] with step 0.1
(define print_func (lambda (f)
(letrec
; list of lets
((print_line (lambda (x y) (begin (display x) (display " : ") (display y) (newline))))
(scan (lambda (x)
(if (>= x 1.0) #t
(begin (print_line x (f x)) (scan (+ x 0.1)))))))
; using of these lets
(scan -1.0))))
; OSCILLATOR
(define oscillator (lambda (x) (if (= x 0) 1 (/ (sin x) x) )))
; Using it
(display "Oscillator for [-1; 1]")
(print_func oscillator)
Под guile вроде работает, а umb-scheme - падает... Хочется понять -
почему...