Size: a a a
a
(push (pop source) target) это решение, которое легко записать, но если хочется переиспользовать консы, то можно писать shiftf:(let ((source (list 'e 'd 'c 'b 'a)) (target (list 'f)))
(loop while source do (shiftf (cdr source) target source (cdr source)))
(values source target))
a
rotatef(let ((source (list 'e 'd 'c 'b 'a)) (target (list 'f)))
(loop while source do (rotatef (cdr source) target source))
(values source target))
T
rotatef(let ((source (list 'e 'd 'c 'b 'a)) (target (list 'f)))
(loop while source do (rotatef (cdr source) target source))
(values source target))
a
while, но в CL нету встроенного while, а примеры лучше писать стандартом.MK
T
a
T
a
KS
a
KS
a
O
DP
DP
DP
DP
YK
