12/02/12 03:19:52.79
>>833
Common Lispで
(declaim (ftype (function (integer integer) integer) f))
(defun f (x y)
(+ x y))
(declaim (ftype (function ((real -1 1)) *) g))
(defun g (x)
(print x))
(g 1) => 1
となるが。
12/02/12 03:19:52.79
>>833
Common Lispで
(declaim (ftype (function (integer integer) integer) f))
(defun f (x y)
(+ x y))
(declaim (ftype (function ((real -1 1)) *) g))
(defun g (x)
(print x))
(g 1) => 1
となるが。