`(1 2 ,(+ 1 2))
(list 1 2 (+ 1 2))
(list 'lambda '(op reg ) (list 'let (list (list 'res (list 'member 'op ops))) (list 'if 'res '(cadar res) (list 'cadar ops) ) ) )
`(lambda (op reg) (let ((res (member op ,ops))) (if res (cadar res) (cadar ,ops) ) ) )
no subject
Date: 2014-08-05 03:16 pm (UTC)no subject
Date: 2014-08-05 03:23 pm (UTC)Ну кроме того, нетупая реализация может значительно быстрее делать quasiquote instantiation, чем звать толпу list-ов, вроде бы (not that it ever matters).
no subject
Date: 2014-08-05 04:49 pm (UTC)no subject
Date: 2014-08-05 05:02 pm (UTC)no subject
Date: 2014-08-05 05:08 pm (UTC)