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))])))