(defun main (&rest args)
(defun factorial (n)
(if (= n 0)
1
(* n (factorial (- n 1))) ) )
(loop for i in *args* do (write (factorial (parse-integer i)))
(terpri))
(write "Hello World!")
(quit))
(EXT:SAVEINITMEM "main"
:QUIET t
:INIT-FUNCTION 'main
:EXECUTABLE t
:NORC t)
保存在文件main.lisp里面,然后运行命令
$ clisp main.lisp
运行main.exe会报错:libreadline6.dll找不到。
这个文件在clisp的base目录中,需要把这个目录配置到环境变量中,再次运行就可以了。