Expanded tests

This commit is contained in:
Devine Lu Linvega 2024-04-15 20:39:25 -07:00
parent f25d35decf
commit 10aa9c8e46
1 changed files with 15 additions and 0 deletions

View File

@ -4,6 +4,13 @@
<> (?x = ?x test) (#ok) <> (?x = ?x test) (#ok)
<> (?x = ?y test) (#fail) <> (?x = ?y test) (#fail)
?(?-) (Inline rules)
<> ((?x -> ?y)) (<> ?x ?y)
(nap -> (tap =))
nap tap test
?(?-) (Empty replacements) ?(?-) (Empty replacements)
<> (?x pop-plain) <> (?x pop-plain)
@ -50,3 +57,11 @@ explode cow (c (o (w ()))) test
<> (implode ?*) (?* =) <> (implode ?*) (?* =)
implode (b (a (t ()))) bat test implode (b (a (t ()))) bat test
?(?-) (List reversal)
<> (reverse List () ?*) (?*)
<> (reverse (?*)) (reverse List (?*) ())
<> (reverse List (?x ?y) ?z) (reverse List ?y (?x ?z))
reverse (modal) = ladom test