Skip to content

Instantly share code, notes, and snippets.

@lispnik

lispnik/position-all.lisp

Created October 25, 2023 18:07
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 lispnik/f7615fa8453c1e8c61d8ca965c94ec92 to your computer and use it in GitHub Desktop.
Save lispnik/f7615fa8453c1e8c61d8ca965c94ec92 to your computer and use it in GitHub Desktop.
Download ZIP
position-all
Raw
position-all.lisp
(defun position-all (item sequence)
(loop :for i := (position item sequence)
:then (position item sequence :start (1+ i))
:while i
:while (< (length sequence))
:collect i))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment