- Lisp Scheme Part39
311 ：デフォルトの名無しさん[sage]：2014/11/14(金) 17:31:14.47 ID:i/qlCtxO - (make-counter)、lisp(sbcl)で書いてみたんだが、こんなんでええの？
(setf (symbol-function 'counter)
(let ((count 0))
(lambda () (incf count))))
sbcl には fset が無いみたいなのでマクロ？を使ってみたのがこれ↓
(defmacro fset (sym clj)
`(setf (symbol-function ',sym) ,clj))
(fset counter
(let ((count 0))
(lambda () (incf count))))
lisp は初めてなんで、よーワカらん…
|