VPF::Lisp. Работа со списками - Форум программистов

BorlandStudio

Дата 19.12.2015, 21:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 13.6.2014

Репутация: нет
Всего: нет

У кого-нибудь есть идеи относительно следующей задачи на языке обработки списков (LISP)?

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

BorlandStudio

Дата 28.12.2015, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 13.6.2014

Репутация: нет
Всего: нет

(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

Что в коде не так? smile

_sg

Дата 10.1.2016, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

Код


(defun wtf (a &aux (m (/ (length a) 2)))
  (concatenate 'string
               (reverse (subseq a 0 m))
               (reverse (subseq a m))))

> (wtf "abcdef")
"cbafed"

--------------------

vk.com/ansicommonlisp

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »