То ли янус глючит, то ли забанили... Но по веб ветка тоже какая-то не такая. В общем, в пример функциям Влада.
До сих пор хочется внятного объяснения, что макры лиспа слабее.
VD>VD>macro WithMathDefines()
VD>{
VD> <[ def (("pi" : usesite), ("pi" : usesite)) = (3.14, 2.72); ]>
VD>}
VD>
(defmacro my_if (cond iftrue iffalse)
`(cond (,cond ,iftrue)
(t ,iffalse)))
VD>VD>macro MyIf(cond, ifTrue, ifFalse)
VD> syntax ("my_if", cond, "then", ifTrue, "else" ifFalse)
VD>{
VD> <[ if ($cond) $ifTrue else $ifFalse ]>
VD>}
VD>
(defmacro with-math-defines (&rest body)
`(let ((pi 3.14) (e 2.7))
,@body))
... << RSDN@Home 1.2.0 alpha rev. 669>>
30.01.07 18:02: Перенесено модератором из 'Декларативное программирование' — IT