to loesequadratischegleichung :a :b :c make "d (:b*:b-4*:a*:c) ifelse (:d<0) [ (print "nicht "loesbar, "da "Diskriminante :d "< 0) ] [ make "x1 ((-:b*:b - sqrt :d)/(2*:a)) (print "x1= :x1) make "x2 ((-:b*:b + sqrt :d)/(2*:a)) (print "x2= :x2) ] end