Доброго времени суток!
Кто-нибудь встречался с подобной задачей на языке обработки списков (LISP)?
Реализовать стек в виде списка. Дана величина a строкового типа из четного количества символов (стек №1). Получить и напечатать величину b (стек №2), состоящую из символов первой половины величины a, записанных в обратном порядке, после которых идут символы второй половины величины a, также записанные в обратном порядке (используя промежуточный стек №3). Например, при а = "привет" b должно быть равно "ирптев".

(defun wtf (a)
(let ((b (reverse (subseq a 0 (/ (length a) 2))))
(c (reverse (subseq a (/ (length a) 2) (length a)))))
(format t "~s" (concatenate 'string b c))))

* (wtf "привет")
"ирптев"
NIL

(defun wtf (a &aux (m (/ (length a) 2)))

  (concatenate 'string

               (reverse (subseq a 0 m))

               (reverse (subseq a m))))

 

> (wtf "abcdef")

"cbafed"