Re: Newbie lisp problem: string to list of strings separated by space
- From: Dmitry Gorbatovsky <fincomus@xxxxxxxxx>
- Date: Thu, 30 Mar 2006 22:08:26 +0200
Yossarian wrote:
Hi,
I am trying to write a very simple function that accepts a string as
input, and that returns a list of strings as output, having a seperate
list item for every substring without a space.
Example:
input = "something very odd"
output = ("something" "very" "odd")
I tried to do this with the following function, but I can't understand
why it is not working.
(defun parse(a)
(setq pos (or (position #\space a) -1) )
(cond ((= pos -1) (list a))
((> pos -1) (append
(parse (subseq a 0 pos))
(parse (subseq a (+ pos 1) (length a)))))))
Any comment is welcome!
Regards,
Wouter
Or maybe like that:
(defun split-by-one-space (string)
"Returns a list of substrings of string
divided by ONE space each.
Note: Two consecutive spaces will be seen as if there were an empty string
between them."
(loop for i = 0 then (1+ j)
as j = (position #\Space string :start i)
collect (subseq string i j)
while j))
From cl-cookbook...
Cheers
--
*It is easy to lie with statistics, but it's a lot easier to lie without
them.
.
- References:
- Prev by Date: Re: learning lisp
- Next by Date: Re: What language will be used to write the first self aware program?
- Previous by thread: Re: Newbie lisp problem: string to list of strings separated by space
- Next by thread: Re: Newbie lisp problem: string to list of strings separated by space
- Index(es):
Relevant Pages
|
