diff options
Diffstat (limited to 'sim.lsp')
-rw-r--r-- | sim.lsp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/sim.lsp b/sim.lsp deleted file mode 100644 index 80d6f0d..0000000 --- a/sim.lsp +++ /dev/null @@ -1,11 +0,0 @@ -;; TODO: air resistance, terminal velocity -(defconstant +G+ 9.81) -(defglobal *alt* 20000) -(defglobal *v* 0) -(defun step () - (setq *alt* (- *alt* *v*)) - (setq *v* (+ *v* +G+)) - (format (standard-output) "~A~%" *alt*)) -(defun main () - (while (> *alt* 0) - (step))) |