質問編集履歴
1
プログラムを変えました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,8 +12,8 @@
|
|
|
12
12
|
>(niji-kai 1 1 1) JISSUUKAI-HA-NASHI
|
|
13
13
|
|
|
14
14
|
自分のプログラム
|
|
15
|
-
(defun niji-kai (a b c)
|
|
15
|
+
(defun niji-kai (a b c) (if< 0 (- (* b b) ( * 4 a c ) )) ((/ (+ (- b) (sqrt (* 4 a c))) (* 2 a) ) (/ (- (- b) (sqrt (* 4 a c))) (* 2 a)) )
|
|
16
|
-
if(= 0 (- (* b b) ( * 4 a c ) ) ) (JUUKAI (/ -b 2a) )
|
|
16
|
+
if(= 0 (- (* b b) ( * 4 a c ) ) ) (JUUKAI (/ -b 2a) ) (if> 0 (- (* b b) ( * 4 a c ) )) JISSUUKAI-HA-NASHI )
|
|
17
17
|
|
|
18
18
|
|
|
19
19
|
)
|