- Author: Jonathan Spingarn
- Source Code
- Manual
- Examples
- License: LLGPL, LGPL
(let* ((str " paper 16 -- stone 25 --- scissors 36 ")
(word #~"\w*")
(num #~"[0-9]+")
(test (compile-test (:& (:&0 word) #~"\s+" (:&1 num)))))
(with-test-split foo (#~"-+" test str :until (= foo-count 2) :tags (:map))
(cons (mref foo 0 :R) ; read the word as a symbol
(mref foo 1 :I))))
→ ((PAPER . 16) (STONE . 25))