aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Fix ray-casting-algorithm.rkt

Browse source 
Fix incorrect usage of variables
This commit is contained in:
David Suckstorff 2015-02-01 20:11:29 -05:00
parent a25938f123
commit 2f9a91b740
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Ray-casting-algorithm/Racket/ray-casting-algorithm.rkt
View file

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