step 1 in transitioning to c++
This commit is contained in:
+12
-4
@@ -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 " ")
|
||||
|
||||
Reference in New Issue
Block a user