【入門】CommonLisp【質問よろず】

【入門】CommonLisp【 ..

751:デフォルトの名無しさん
05/11/08 00:30:53
つうかやる気ねーんだろ？授業をちゃんと聞いてなかったみたいだし。「

いつも思うんだけどなんで～日までの宿題ですやる気ないんで教えてください、
って素直に言えないのかね？まさか宿題である事を隠してるつもりなのか？なら
人をナメすぎだな。ほらこれを提出してごらん。俺は親切だから罠をしかけたりしないよ。

(defun solve (a b c)
"ax^2 + bx + c = 0"
(let ((A (- b))
(B (sqrt (- (* b b) (* 4 a c))))
(C (* 2 a)))
(values
(/ (+ A B) C)
(/ (- A B) C))))

次ページ

続きを表示

1を表示