Haskell function does not terminate -

-

I wrote a function in Haskell that takes three points in the plane, and checks whether they are on the straight line, Or turn right or left.

Here is the code: 

  detDirection :: point -> Point - & gt; Point - & gt; Direction @ detdirection a @ (dot (x1, y1)) b @ (dot (x2, y2)) c = if (collinear1 abc) then straight and ab = vector [x2 - x1, y2 - y1] angleAbX = angle ab ( Vector [1, 0]) (point (x1, y1) = turnAtP ambulabex (Point (x2, y2)) = turnAtP AC angle in ABX if (y1> y2) then left and right  < / Pre> 
 I have tested  collinear1 ,  angle ,  turnAtP  in GHCi, and they all end immediately.  detdiirection , however, is going on forever. 
 
 Can anyone tell me where is the problem here?

In Haskell, let is a recursive binding, that is, you Let's define the expression can be declared in the manifestation of other variables, when you type 

  two now = vector [x2 - x1, y2 - y1] angle ABX = Angle ab (vector [1, 0]) (point (x1, y1) = turnAtP abaabx (point (x2, y2)) = turnAtp ac angle abx

to X1 , x2 , y1 , and y2 function arguments ul Do not write, but later do not show it on the names declared in the let expression. 

  (dot (x3, y3)) = turnAtP ab angleAbX Change the two  point  lines to bind some different variables like (point (x4, y4)) = TurnAtP AC angle ABX

and accordingly modify your later calculation, and your endless looping will go away.


Comments

Post a Comment

Popular posts from this blog

oracle - The fastest way to check if some records in a database table? -

-
I have a big table to work with. I have to see that there are some records whose parent_id is equal to my passing value. Currently I do this by implementing "my_table using select count (*) where parent_id =: id"; If the result> 0, it means that they exist. Because this is a very large table, and I do not care what the actual number of records present, I just want to know if it exists, so I think count (*) Bit is disabled. How do I apply this requirement most quickly? I'm using Oracle 10. # Tips for Hibernation & amp; Tricks It suggests writing in such a way: Integer number = (integer) session .createQuery ("Select Count (*) to ...."). UniqueResult (); I do not know what is the magic of the unique rule? Why does it fast? To compare, select "1 from mytable where parent_id = passId and rowrum", which is more efficient? If you are not interested in the number of records, then there is an EXISTS query one: Select 'y'
Read more

php - multilevel menu with multilevel array -

-
Just ask someone to solve this problem? I want to create a multilevel menu I can not find the right solution generated with multilevel array, it always gets an array_push error My study came from the original idea But still my Can not match the need. This is my MySQL [code] ----- --------------------- --------------- | ID | PARENT_ID | Name | Link | Seq | 1 | 0 | Dashboad | Dashboard / | 1 | 2 | 0 | Menu 1 | Menu 1 / | 2 | 3 | 0 | Menu 2 | Menu 2 / | 3 | 4 | 0 | Menu 3 | Menu 3 / | 4 | 5 | 2 | Joint Add / | 1 | 6 | 3 | Joint Add / | 1 | 7 | 2 | Edit | Edit / | 2 | 8 | 4 | Joint Add / | 1 ------------------------------------------ [/ Code] I want to do something like this in my array array ('dashboard' = & gt; array ('id' = & gt; '' 'Dame' = & gt; 'Dashboard', 'Title' = & gt; 'Dashboard', 'MatchMin' = & gt; Base_URL (). 'Dashboard /', 'Active' => = & Gt; NULL), &
Read more

jQuery UI: Datepicker month format -

-
I am trying to change the format of the month that shows in the popup (not in the date that the picker actually I do not have any choice anywhere to do this, do I like to use a sub-string () or something else? What I normally display is Trying to change: Class = "ui-datepicker-title"> January & lt; / span & gt; ... & lt; / div & gt; Div>
Read more