From 2f9a91b740a452276f1cde8fab1a56a2f71e4a23 Mon Sep 17 00:00:00 2001 From: David Suckstorff Date: Sun, 1 Feb 2015 20:11:29 -0500 Subject: [PATCH] Fix ray-casting-algorithm.rkt Fix incorrect usage of variables --- Task/Ray-casting-algorithm/Racket/ray-casting-algorithm.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Task/Ray-casting-algorithm/Racket/ray-casting-algorithm.rkt b/Task/Ray-casting-algorithm/Racket/ray-casting-algorithm.rkt index f7c3e63219..0014d9f084 100644 --- a/Task/Ray-casting-algorithm/Racket/ray-casting-algorithm.rkt +++ b/Task/Ray-casting-algorithm/Racket/ray-casting-algorithm.rkt @@ -27,11 +27,11 @@ [(> Px (max Ax Bx)) #f] [(< Px (min Ax Bx)) #t] [else - (let ([red (if (neq? Ax Px) + (let ([red (if (neq? Ax Bx) (/ (- By Ay) (- Bx Ax)) +inf.0)] [blue (if (neq? Ax Px) - (/ (- Py Ax) (- Px Ax)) + (/ (- Py Ay) (- Px Ax)) +inf.0)]) (if (>= blue red) #t #f))])))