Convex hull: Difference between revisions
→{{header|Scheme}}
Line 3,882:
points
(list->vector points)))
(sorted
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)
| |||