6cc3401ce2eaed700d3cfdbfb9c70871bd229cae1dc8f3ec54127b031d174e19

Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 919

Preview (limited to 512 bytes)

"module Algo.Quickhull (quickhull) where\n\nimport Data.Vector.Unboxed as V\n\nquickhull :: (Vector Double, Vector Double) -> (Vector Double, Vector Double)\n{-# NOINLINE quickhull #-}\nquickhull (xs, ys) = xs' `seq` ys' `seq` (xs',ys')\n where\n (xs',ys') = V.unzip\n $ hsplit points pmin pmax V.++ hsplit points pmax pmin\n\n imin = V.minIndex xs\n imax = V.maxIndex xs\n\n points = V.zip xs ys\n pmin = points V.! imin\n pmax = points V.! imax\n\n\n hsplit points p1 p2\n "

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete