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.
  1. Prepare
  2. Functional Programming
  3. Introduction
  4. Compute the Perimeter of a Polygon
  5. Discussions

Compute the Perimeter of a Polygon

  • mpaulo_santos05
     + 0 comments

    my haskell solution:

    import Control.Monad 

euclidean[x1,y1] [x2,y2] = sqrt $ (x2 - x1)**2 + (y2 - y1)**2

solve n points = sum $ zipWith euclidean pairs (tail pairs ++ [head pairs])
  where
    pairs = map ((\[a, b] -> [read a, read b]) . words) points :: [[Double]]

main = do
    n <- readLn :: IO Int 
    input <- replicateM n getLine
    print $ solve n input