Skip to content

Instantly share code, notes, and snippets.

@lispm

lispm/test-centroids.lisp

Created October 16, 2017 22:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save lispm/7a8a0d6d62b95de73cc8a6ce5b36a341 to your computer and use it in GitHub Desktop.
Save lispm/7a8a0d6d62b95de73cc8a6ce5b36a341 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test-centroids.lisp
; https://github.com/inconvergent/snek/blob/master/utils/spline-script.lisp
(defun test-centroids (counts nc ncn)
(loop for i from 0 below nc
always (multiple-value-bind (val exists)
(gethash i counts)
(and exists (>= val ncn)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment