We use cookies to ensure you have the best browsing experience on our website. Please read our cookie policy for more information about how we use cookies.
--distance between 2 coordinate pointsd::[Float]->Floatd[x1,y1,x2,y2]=sqrt$(x2-x1)^2+(y2-y1)^2d_=0--0 if not 4 part list--takes cycle of f (x1,y1,x2,y2...), and list lengthperimeter'::[Float]->Float->Floatperimeter'[]acc=accperimeter'pointsacc=perimeter'(drop2points)(acc+(d(take4points)))perimeter::[Float]->Floatperimeterpoints=perimeter'(points++(take2points))0main::IO()main=do_<-getLinex<-getContentsletf=map(read::String->Float)$wordsxprint(perimeterf)
Compute the Perimeter of a Polygon
You are viewing a single comment's thread. Return to all comments →
Using tail recursing in Haskell: