読者です 読者をやめる 読者になる 読者になる

(define -ayalog '())

括弧に魅せられて道を外した名前のないプログラマ

お昼休みのlet

6. 局所変数

(define (quadric-equation a b c)
	(cond
	 ((zero? a) 'error)
	 (else
	  (let ((d (- (* b b)(* 4 a c))))
	    (cond
	     ((negative? d)'())
	     (else
	      (let ((e (/ b a -2)))
		(cond
		 ((zero? d)(list e))
		 (else
		  (let ((f (/ (sqrt d) a 2)))
		    (list (+ e f)(- e f))))))))))))

暇だからcondで書きなおしてました。
個人的にはcondが好き!

広告を非表示にする