[swkx]

Подскажите, как проще всего преобразовать строку "(10 20) (5 9)" в список ((10 20) (5 9)) ?

[mamuk]

тут посмотри может поможет http://forum.dwg.ru/showthread.php?t...EF%E8%F1%EE%EA

[swkx]

Самому написать функцию преобразования не проблема, тока лень.
Поэтому и хотел узнать, вдруг чего подзабыл и есть готовая штатная.

Тема закрыта.
Написал-таки функцию.

[Do$]

(read (strcat "(" "(10 20) (5 9)" ")"))

[swkx]

Do$,

где же ты раньше был!
чуяло моё сердце, что как-то просто решается(...

[mamuk]

да это же! это ваобще круто!! сам послал по ссылке и сам же с этим столкнулся! а оказывается есть решение проще!!!!

[Li6-D]

Код:

[Выделить все]

;;Преобразование перечня в список через рекурсию по Хювёнену (т.2 стр.191)
(defun readx ()
  ((lambda (x) (if x (cons x (readx))))
    (read (getstring))
) )

Перечень (вложенные списки к сожалению не воспринимаются) вводится с клавиатуры.
Прекращение ввода - два Space или Enter подряд.
Пример использования:
Команда: (readx)
1 2 3 4 5 6 7
8 9 A B C D
(1 2 3 4 5 6 7 8 9 A B C D)