13 lines
377 B
Common Lisp
13 lines
377 B
Common Lisp
|
(let ((string "0123456789")
|
||
|
|
(n 2)
|
||
|
|
(m 3)
|
||
|
|
(start #\5)
|
||
|
|
(substring "34"))
|
||
|
|
(list (subseq string n (+ n m))
|
||
|
|
(subseq string n)
|
||
|
|
(subseq string 0 (1- (length string)))
|
||
|
|
(let ((pos (position start string)))
|
||
|
|
(subseq string pos (+ pos m)))
|
||
|
|
(let ((pos (search substring string)))
|
||
|
|
(subseq string pos (+ pos m)))))
|