From 883c52397c85b1432582c76a53e427b660612ef9 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Mon, 30 Jul 2018 22:10:32 -0300
Subject: [PATCH] Conserta erro em operador relacional.

---
 slides/01-revis-program.Rnw | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/slides/01-revis-program.Rnw b/slides/01-revis-program.Rnw
index 1a1218d..152710d 100644
--- a/slides/01-revis-program.Rnw
+++ b/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
-- 
GitLab