View difference between Paste ID: h61E3gE1 and HZrUN02k

 #!/usr/bin/gcl -f
 
-(defun printResult ( a b c x)
+(defun read-int (text)
 	(format t text)
 	(read)
 )
 
 (defun print-result ( a b c x)
 	(let
 		(
 			(bSign "+")
 			(cSign "+")
 		)
 		(if (< b 0) (setf bSign "") ())
 		(if (< c 0) (setf cSign "") ())
 		(format t
 			"For ~A*x^2 ~A ~A*x ~A ~A = 0 You can find ~A.~%"
 			a
 			bSign b
 			cSign c
-(defun calcX (a b c)
+
 		)
 	)
 )
 
 (defun calc-double-x (a b d)
 	(list
 		( / (+ b (sqrt d)) (* 2 a))
-			(setq x
+		( / (- b (sqrt d)) (* 2 a))
-				(list
+
-					( /
+
-						(+ b (sqrt d))
+
-						(* 2 a)
+(defun calc-single-x (a b)
-					)
+	(list
-					( /
+		(/ (- b) (* 2 a))
-						(- b (sqrt d))
+
-						(* 2 a)
+
-					)
+
-				)
+(defun calc-x (a b c)
 	(let
 		(
-				(setq x
+
-					(list
+
-						(/
+
-							(- b)
+
-							(* 2 a)
+
-						)
+			(calc-double-x a b d)
-					)
+
-				)
+				(calc-single-x a b)
-				(setq x () )
+				nil
 			)
 		)
-		x
+
 )
 
 (defun square ()
 	(format t "a*x^2 + b*x + c = 0~%")
 
 	(let
 		(
 			(a 0)
 			(b 0)
 			(c 0)
 			(x 0)
 		)
 		(setf a (read-int "a="))
-		(format t "a=")
+		(setf b (read-int "b="))
-		(setf a (read))
+		(setf c (read-int "c="))
-		(format t "b=")
+		(print-result a b c (calc-x a b c))
-		(setf b (read))
+
-		(format t "c=")
+
-		(setf c (read))
+
-		(setf x (calcX a b c))
+
-		(printResult a b c x)
+
 (bye)