[jackhill/mal.git] / tests / step3_env.mal

;; Testing REPL_ENV
(+ 1 2)
;=>3
(/ (- (+ 5 (* 2 3)) 3) 4)
;=>2


;; Testing def!
(def! x 3)
;=>3
x
;=>3
(def! x 4)
;=>4
x
;=>4
(def! y (+ 1 7))
;=>8
y
;=>8


;; Testing let*
(let* (z 9) z)
;=>9
(let* (x 9) x)
;=>9
x
;=>4
(let* (z (+ 2 3)) (+ 1 z))
;=>6
(let* (p (+ 2 3) q (+ 2 p)) (+ p q))
;=>12


;; Testing vector evaluation
(let* (a 5 b 6) [3 4 a [b 7] 8])
;=>[3 4 5 [6 7] 8]
Commit	Line	Data
31690700 JM	1	;; Testing REPL_ENV
	2	(+ 1 2)
	3	;=>3
	4	(/ (- (+ 5 (* 2 3)) 3) 4)
	5	;=>2
	6
	7
	8	;; Testing def!
	9	(def! x 3)
	10	;=>3
	11	x
	12	;=>3
	13	(def! x 4)
	14	;=>4
	15	x
	16	;=>4
	17	(def! y (+ 1 7))
	18	;=>8
	19	y
	20	;=>8
	21
	22
	23	;; Testing let*
	24	(let* (z 9) z)
	25	;=>9
	26	(let* (x 9) x)
	27	;=>9
	28	x
	29	;=>4
	30	(let* (z (+ 2 3)) (+ 1 z))
	31	;=>6
	32	(let* (p (+ 2 3) q (+ 2 p)) (+ p q))
	33	;=>12
	34
	35
	36	;; Testing vector evaluation
	37	(let* (a 5 b 6) [3 4 a [b 7] 8])
	38	;=>[3 4 5 [6 7] 8]