Я пытаюсь взять пользовательский ввод и сохранить его в списке, только вместо списка, состоящего из одной строки, я хочу, чтобы каждое сканированное слово было собственной строкой. Пример:
> (input)
This is my input. Hopefully this works
вернется:
("this" "is" "my" "input" "hopefully" "this" "works")
Принимая во внимание, что я не хочу никаких пробелов или знаков препинания в моем конечном списке.
Приветствуется любой ввод.
split-sequence - это готовое решение.
вы также можете использовать свой собственный:
(defun my-split (string &key (delimiterp #'delimiterp))
(loop :for beg = (position-if-not delimiterp string)
:then (position-if-not delimiterp string :start (1+ end))
:for end = (and beg (position-if delimiterp string :start beg))
:when beg :collect (subseq string beg end)
:while end))
где delimiterp проверяет, хотите ли вы разбить этот символ, например
(defun delimiterp (c) (or (char= c #\Space) (char= c #\,)))
или
(defun delimiterp (c) (position c " ,.;/"))
PS. глядя на ожидаемое возвращаемое значение, вы, кажется, хотите называть string-downcase до my-split.
ПФС. вы можете легко изменить my-split, чтобы принять :start, :end, :delimiterp & c.
PPPS. Извините за ошибки в первых двух версиях my-split. Пожалуйста, учтите, что индикатор, который нельзя сбрасывать с помощью собственной версии этой функции, но используйте готовое решение.
Там cl-ppcre:split:
* (split "\\s+" "foo bar baz
frob")
("foo" "bar" "baz" "frob")
* (split "\\s*" "foo bar baz")
("f" "o" "o" "b" "a" "r" "b" "a" "z")
* (split "(\\s+)" "foo bar baz")
("foo" "bar" "baz")
* (split "(\\s+)" "foo bar baz" :with-registers-p t)
("foo" " " "bar" " " "baz")
* (split "(\\s)(\\s*)" "foo bar baz" :with-registers-p t)
("foo" " " "" "bar" " " " " "baz")
* (split "(,)|(;)" "foo,bar;baz" :with-registers-p t)
("foo" "," NIL "bar" NIL ";" "baz")
* (split "(,)|(;)" "foo,bar;baz" :with-registers-p t :omit-unmatched-p t)
("foo" "," "bar" ";" "baz")
* (split ":" "a:b:c:d:e:f:g::")
("a" "b" "c" "d" "e" "f" "g")
* (split ":" "a:b:c:d:e:f:g::" :limit 1)
("a:b:c:d:e:f:g::")
* (split ":" "a:b:c:d:e:f:g::" :limit 2)
("a" "b:c:d:e:f:g::")
* (split ":" "a:b:c:d:e:f:g::" :limit 3)
("a" "b" "c:d:e:f:g::")
* (split ":" "a:b:c:d:e:f:g::" :limit 1000)
("a" "b" "c" "d" "e" "f" "g" "" "")
http://weitz.de/cl-ppcre/#split
Для обычных случаев существует (новая, "современная и последовательная" ) cl-str библиотека управления строкой:
(str:words "a sentence with spaces") ; cut with spaces, returns words
(str:replace-all "," "sentence") ; to easily replace characters, and not treat them as regexps (cl-ppcr treats them as regexps)
У вас есть cl-slug, чтобы удалить символы не ascii, а также знаки препинания:
(asciify "Eu André!") ; => "Eu Andre!"
; in AutoLisp usage (splitStr "get off of my cloud" " ") returns (get off of my cloud)
(defun splitStr (src delim / word letter)
(setq wordlist (list))
(setq cnt 1)
(while (<= cnt (strlen src))
(setq word "")
(setq letter (substr src cnt 1))
(while (and (/= letter delim) (<= cnt (strlen src)) ) ; endless loop if hits NUL
(setq word (strcat word letter))
(setq cnt (+ cnt 1))
(setq letter (substr src cnt 1))
) ; while
(setq cnt (+ cnt 1))
(setq wordlist (append wordlist (list word)))
)
(princ wordlist)
(princ)
) ;defun
Для этой задачи в Common-Lisp я нашел полезным (uiop:split-string str :separator " ") и пакет uiop, в общем, имеет много утилит, взгляните на документы https://common-lisp. net/project/asdf/uiop.html # index-split_002dstring.
(defun splitStr (src pat /)
(setq wordlist (list))
(setq len (strlen pat))
(setq cnt 0)
(setq letter cnt)
(while (setq cnt (vl-string-search pat src letter))
(setq word (substr src (1+ letter) (- cnt letter)))
(setq letter (+ cnt len))
(setq wordlist (append wordlist (list word)))
)
(setq wordlist (append wordlist (list (substr src (1+ letter)))))
)