Guile Schemeでニュートン法を実行しようとしたが、エラーが出て実行できない。 Guile Scheme (define (deriv f dx) ;;; (lambda (x)(exact->inexact(/ (- (f (+ x dx)) (f x)) dx)))) (define (good-enough? g guess) ;;;guess (< (abs (g guess)) 0.0000001)) (define (improve g guess) ;;;guess (- guess (exact->inexact(/ (g guess) ((deriv g 0.0001) guess))))) (define (newton-iter2 g guess) ;;; (if (good-enough? g guess) guess (newton-iter2 g (improve g guess)))) (define (square x) (* x x)) (define (sqrt-base x) ;;; (lambda (t) (- (square t) x))) Emacsguileguile... (2) (define (sqrt3 x) (newton-iter2 (sqrt-base x) 1.0)) (sqrt3 2) ... <unnamed port>:11:0: In procedure sqrt3: In procedure module-lookup: Unbound variable: newton-iter2

Guile`load`REPL



(`load``(ice-9 popen)`)

## REPL`guile-user`


;;
(use-modules (guile-user))

(define (deriv f dx) ...



;; REPL
scheme@(guile-user)> (load "file.scm")
scheme@(guile-user)> (define (sqrt3 x) (newton-iter2 (sqrt-base x) 1.0))
scheme@(guile-user)> (sqrt3 2)
$1 = 1.4142135624530596


##


;;
(define-module (ja.stackoverflow.com/questions/59323)
#:export (newton-iter2 sqrt-base)) ; newton-iter2 sqrt-base

(define (deriv f dx) ...



;; REPL
(load "file.scm")

(define (sqrt3 x)
((@ (ja.stackoverflow.com/questions/59323) newton-iter2) ;ja.stackoverflow.com/questions/59323newton-iter2
((@ (ja.stackoverflow.com/questions/59323) sqrt-base) x) 1.0))
scheme@(guile-user)> (sqrt3 2)
$1 = 1.4142135624530596


##

* <