#!/usr/local/bin/gosh (use srfi-1) (print 10 ;10 (+ 5 3 4) ;12 (- 9 1) ;8 (/ 6 2) ;3 (+ (* 2 4) (- 4 6)) ;6 (define a 3) ; aを3と定義 (define b (+ a 1)) ;bを(+ a 1)と定義 (+ a b (* a b)) (= a b) (if (and (> b a) (< b (* a b))) a b) (cond ((= a 4) 6) ((= b 4) (+ 6 7 a)) (else 25 )) (+ 2 (if (> b a) b a)) (* (cond ((> a b) a) ((< a b) b) (else -1)) (+ a 1)) )