snap/parse.snap at master · mpenick/snap · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
; vi: filetype=scheme

; (1 2 (1))
;[quote 2 3 4 5 6 7 8 [1 2 3]]
;(println '[[[[]]] 1])
;(+ 1 1)

;(define a)
;(define a 2)

;(if a 1 2)

;(fn [] 1 2)

;(+ 1 2)

;(< 1 2 3)
;(println (and (< 1 2) 5))

;(println (not false))

;(println (or true 1))
;(println (or false 2))
;(println (or 2 false true false 1))
;(println (or 1 2))
;
;(println (and true 1))
;(println (and false 2))
;
;(println (and true 1))
;(println (and false 1))

;(println (and (< 1 2) (< 2 3)))

;(if (or (< 1 2) (< 2 3)) (println "it's true") (println "it's false"))

;(println (< 1 2 3))

;(println ((fn [] 1 2 3)))

;(println (begin 1 2 3))

;(let [[1 1]] (println 1))

;(not 1)

;(println (and))
;(println (or))

'(123)