VPF::макрос Setmacro - Форум программистов

alenka012

Дата 16.12.2009, 22:44 (ссылка)

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

Загрузка ...

Новичок

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

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

Необходимо построить макрос, который реализует инициализацию элементов одного списка элементами другого списка. Например, (Setmacro (q w e) (1 2 3))

списки в Setmacro идут без блокировки
результат
[code=nocolor]
>w
2
[/cde]

Ryukzak

Дата 16.12.2009, 23:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


(defmacro smc (vars values)
    `(progn 
         ,@(loop for var in vars
                         for value in values
                         collect `(setf ,var ,value))))

Как-то так...

Код


(smc (w s x) (1 2 3)) -> (PROGN (SETF W 1) (SETF S 2) (SETF X 3))

VH_

Дата 17.12.2009, 12:53 (ссылка)

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

Загрузка ...

Бывалый

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

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

Возвращает список значений

Код

(defmacro SETMACRO (Name Value)
 (if Name
  (list 'cons
   (set (car Name) (car value))
   (list 'SETMACRO (cdr Name) (cdr Value)))))

Возвращает nil

Код

(defmacro SETMACRO (Name Value)
 (if Name
  (progn
   (set (car Name) (car value))
   (list 'SETMACRO (cdr Name) (cdr Value)))))

Это сообщение отредактировал(а) VH_ - 17.12.2009, 12:58

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