Graph Dist

𝔸𝕝𝕘𝕖𝕣

module Maths.GraphDist where

-- calculates the distance from the origin
calcDistOrigin :: Floating a => a -> a -> a -> a
calcDistOrigin x y z = sqrt ((x ** 2) + (y ** 2) + (z ** 2))

-- calculates the distance between two points
calcDist :: Floating a => a -> a -> a -> a -> a -> a -> a
calcDist x1 x2 y1 y2 z1 z2 = sqrt ((x2 - x1) ** 2 + (y2 - y1) ** 2 + (z2 - z1) ** 2)

main :: IO ()
main = do
  print (calcDistOrigin 4 5 6)
  print (calcDist 4 6 5 9 6 10)

Try this Code

About us

We are a group of programmers helping each other build new things, whether it be writing complex encryption programs, or simple ciphers. Our goal is to work together to document and model beautiful, helpful and interesting algorithms using code. We are an open-source community - anyone can contribute. We check each other's work, communicate and collaborate to solve problems. We strive to be welcoming, respectful, yet make sure that our code follows the latest programming guidelines.