エラーチェックはありません。0除算もチェックしていません。コマンドライン引数をそのままリストに変換しているので、変な入力を与えると危険です。 ; -*- compile-command: "C:/usr/clisp-2.41/clisp.exe a.l" -*- (defun op (f stack) (cons (funcall f (…

CLISPの場合、*args*でコマンドライン引数のリストが参照できるみたいです。 ; -*- compile-command: "C:/usr/clisp-2.41/clisp.exe a.l" -*- (defun echo () (loop for s in *args* do (format t "~A~%" s))) (echo) 実行例: $ clisp.exe echo.l a b c a b c

18:30ごろ帰りました。

初めてCommonLispのプログラムを書きました。使っている処理系はCLISPのバージョン2.41です。 早くもloopの機能詰め込みっぷりに唖然。。。formatの書式もわけわかりません。Schemeのiotaっぽい関数がわからなくて自作しました(loopで書くのが一般的なのかな…