New test for non-linearity + ...
svn: r9869
This commit is contained in:
parent
87f8e830b6
commit
1d67f058fc
|
@ -556,6 +556,10 @@
|
||||||
[(list-no-order 1 2 3 rest ... e) rest]
|
[(list-no-order 1 2 3 rest ... e) rest]
|
||||||
[_ 'no])))
|
[_ 'no])))
|
||||||
'no))
|
'no))
|
||||||
|
(comp '((2 4) (2 1))
|
||||||
|
(match '(3 2 4 3 2 1)
|
||||||
|
[(list x y ... x z ...)
|
||||||
|
(list y z)]))
|
||||||
|
|
||||||
|
|
||||||
))
|
))
|
Loading…
Reference in New Issue
Block a user