Вопрос по LISP

тэг добавь, быстрее будет

Не используй луп, используй http://common-lisp.net/project/iterate/

ничего не понятно, какой список нужно получить?

"((i 1) (o 1) (i 1) (o 1))" - откуда вообще взялась эта «o»?

А, ну и собственно

(iterate (for i from 1 to 2)
         (collect `(i 1))
         (collect `(o 1)))

Это пример,исходник намного сложнее

Спасибо!!!! Но в моей версии сработало вот так: (loop for i from 1 to 2 collect `(i 1) collect `(o 1))

(loop for i below 2 append '((i 1) (o 1)))
; ((I 1) (O 1) (I 1) (O 1))

(loop for i below 4
      for x in '#0=(i o . #0#)
      collect (list x 1))
; ((I 1) (O 1) (I 1) (O 1))

При чем тут макры?

Макры при том, что подобная конструкция будет в них использоваться

Кстати, а разве loop не макрос со своим псевдоязыком?

Макрос. Но для того, чтобы использовать loop, не нужно знать, что это макрос, да и про существование макросов вообще.

Кстати, в CL почти все конструкции языка являются макросами.

Он он.

Макры при том, что подобная конструкция будет в них использоваться

Любая конструкция может использоваться в макрах и где угодно.

Совсем нет это зависит от макроса. Например внутри лупа произвольный код на общелиспе использовать нельзя.

Совсем нет это зависит от макроса. Например внутри лупа произвольный код на общелиспе использовать нельзя.

Например?

(loop (yoba) i to 2 ...) (yoba) раскрывается в from

И? Ты путаешь теплое с мягким.

(loop for i upto 2 do произвольный код на общелиспе)

И?

Что и? Ты просил пример того, что не везде можно использовать обычный код на общелиспе - я привел пример.

(loop for i upto 2 do произвольный код на общелиспе)

Ну то есть понятно, что произвольный код можно писать _не везде_

Макры при том, что подобная конструкция будет в них использоваться

- Вы что, кого-то изнасиловали?

- Нет, но инструмент имеется.