step 1 in transitioning to c++

This commit is contained in:
FelixBrendel
2018-12-27 13:09:16 +01:00
parent 82d12a7386
commit 9bc30d1569
21 changed files with 1561 additions and 1445 deletions
+12 -4
View File
@@ -1,4 +1,12 @@
(defun ! (n)
(ifs (< n 2)
1
(* n (! (- n 1)))))
(defun make-vector (x y z)
(let ((local-x x)
(local-y y)
(local-z z))
(lambda ()
local-x)))
(define v (make-vector 1 2 3))
(print (v))
(read " ")