Advertisement
Guest User

Untitled

a guest
Jun 24th, 2018
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. (let ((string "123 456"))
  2. (remove nil (mapcar (lambda (item)
  3. (ignore-errors (parse-integer (coerce item 'string))))
  4. (nsplit-list-on-indicator (coerce string 'list)
  5. (lambda (a b) (not (equiv (digit-char-p a) (digit-char-p b))))))))
  6. --> (123 456)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement