Try to simplify link code in roomRect

2025-10-27 15:10:19 +00:00
parent c88fc1c729
commit 0946ee1310
9 changed files with 95 additions and 105 deletions
@@ -165,6 +165,7 @@ grahamEliminate (x : y : z : xs)
    | not $ isLHS x y z = grahamEliminate (x : z : xs)
 grahamEliminate xs = xs

+-- this isn't the centroid of the polygon...
 centroid :: (Num (f a),Functor f, Fractional a,Foldable t) => t (f a) -> f a
 centroid = L.fold $ (^/) <$> L.Fold (+) 0 id <*> L.genericLength