maximaの関数をlispで書く
;myldeltafile.lisp (defmfun $mydelta (x y) (if (equal (mfuncall '$ev x) (mfuncall '$ev y) ) 1 0))
%i load("path/myldeltafile.lisp"); %i mydelta(1, 2) %o 0 %i mydelta(1, 1) %o 1
;myldeltafile.lisp (defmfun $mydelta (x y) (if (equal (mfuncall '$ev x) (mfuncall '$ev y) ) 1 0))
%i load("path/myldeltafile.lisp"); %i mydelta(1, 2) %o 0 %i mydelta(1, 1) %o 1