voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

pm example / rt candidate

This commit is contained in:
voidlizard 2025-03-03 18:42:55 +03:00
parent 655b252cea
commit 873d2e37aa
1 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
miscellaneous/suckless-conf/examples/pm/m1.ss Normal file
View File

@ -0,0 +1,50 @@
(define foo1 '[1 2 yeah])
(define foo2 '[a b [2 33] 45])
(define p1 (list? _ _ [list? _ e ...] [? n [int? [rcurry gt? 20]]] ...))
(define p2 (list? _ _ [list? _ e ...] [? n [int? [rcurry eq? 45]]] ...))
(define p3 (list? _ _ [list? _ e ...] [? n [int? _]] ...))
(define p4 (list? _ _ [list? _ e ...] [? n [int? 45]] ...))
(define p5 (list? _ _ [list? _ e ...] [? n [int? 26]] ...))
(match foo1
( (list? _ _ k) (print "3-list" space k) )
( _ (print "whatever") )
)
(newline)
(match foo2
( p1 (print "found something" space e space n) )
( _ (print "whatever") )
)
(newline)
(match foo2
( p2 (print "found something" space e space n) )
( _ (print "whatever") )
)
(newline)
(match foo2
( p3 (print "found something" space e space n) )
( _ (print "whatever") )
)
(newline)
(match foo2
( p4 (print "found something" space e space n) )
( _ (print "whatever") )
)
(newline)
(match foo2
( p5 (print "found something" space e space n) )
( _ (print "whatever") )
)