From 873d2e37aa6790c5b0f8809a4093c6c5f41c150a Mon Sep 17 00:00:00 2001 From: voidlizard Date: Mon, 3 Mar 2025 18:42:55 +0300 Subject: [PATCH] pm example / rt candidate --- miscellaneous/suckless-conf/examples/pm/m1.ss | 50 +++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 miscellaneous/suckless-conf/examples/pm/m1.ss diff --git a/miscellaneous/suckless-conf/examples/pm/m1.ss b/miscellaneous/suckless-conf/examples/pm/m1.ss new file mode 100644 index 00000000..5a90006b --- /dev/null +++ b/miscellaneous/suckless-conf/examples/pm/m1.ss @@ -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") ) +) +