我在 Haskell 中编写了一个函数,它在平面上取三个点,并检查它们是否在直线上,或者右转或左转。
这是代码:
detDirection :: Point -> Point -> Point -> Direction
detDirection a@(Point (x1, y1)) b@(Point (x2, y2)) c
= if (collinear1 a b c)
then Straight
else let
ab = Vector [x2 - x1, y2 - y1]
angleAbX = angle ab (Vector [1, 0])
(Point (x1, y1)) = turnAtP a b angleAbX
(Point (x2, y2)) = turnAtP a c angleAbX
in if (y1 > y2)
then Right
else Left
我已经在 GHCi 中测试了collinear1
, angle
,turnAtP
并且它们都立即终止。
detDirection
但是,它会一直运行下去。
有人能告诉我这里的问题出在哪里吗?