JavaScript
■Scheme版 (define (GCD a b) (define (GCD-temp a b n p) (define (smaller x y) (if ( (if ( p (if (and (= (remainder a n) 0) (= (remainder b n) 0)) (GCD-temp a b (+ n 1) n) (GCD-temp a b (+ n 1) p)))) (GCD-temp a b 1 1))■JavaScript版 var gcd …