【入門】CommonLisp【質問よろず】
■ このスレッドは過去ログ倉庫に格納されています
0751デフォルトの名無しさん
2005/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))))
■ このスレッドは過去ログ倉庫に格納されています