match.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(define f (x)
	(match x
		((1 2 3) "1-2-3")
		((1) "just 1")
		((1 ...) "1 something")
		((n ...) "number something")
		('v "something quoted")
		"dunno"))

(print (f '(1 2 3)))
(print (f '(1)))
(print (f '(1 2 3 4 5)))
(print (f '(2 3 4 5)))
(print (f ''"kaas"))
(print (f "kaas"))