Convex hull: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,882: / Line 3,882: @@
                                 points
                                 (list->vector points)))
-             (sorted-points-vector (sort-points-vector
+             (sorted-points-vector
-                                    points-vector)))
+              (vector-delete-neighbor-dups
+               equal?
-        (construct-hull sorted-points-vector)))
+               (sort-points-vector points-vector))))
+        (if (<= (vector-length sorted-points-vector) 2)
+            sorted-points-vector
+            (construct-hull sorted-points-vector))))
     (define (list-convex-hull points)