Select Code to Download

(defun f (a b c)
    (let ((t (sqrt (- (* b b) (* 4 a c))))
      (values (/ (+ (- b) t)) (* 2 a)))
              (/ (- (- b) t)  (* 2 a))))

sub f { 
    my( $a, $b, $c ) = @_; 
...
        ( -$b + $t ) / 2*$a 
    );
}