Conserta erro em operador relacional.

slides/01-revis-program.Rnw

@@ -319,7 +319,7 @@ source("config/setup.R")
   baskara <- function(a, b, c) {
       stopifnot(a != 0)
       delta <- b^2 - 4 * a * c
-      if (delta > 0) {
+      if (delta >= 0) {
           den <- 2 * a
           sqrt_delta <- sqrt(delta)
           x1 <- (-b - sqrt_delta)/den