d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated tests to match new registers

This commit is contained in:
Devine Lu Linvega 2024-04-17 10:56:51 -07:00
parent 6e0d3bb9e0
commit 44e809f092
3 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/string_join.modal
View File

@ -1,7 +1,7 @@
?(?-) (This example joins two tokens.)
<> (join (?a) (?*)) (join reverse (?a) List (?*))
<> (join List () List ?*) (?*)
<> (join List () List ?^) (?^)
<> (join List (?x ?y) List ?z) (join List ?y List (?x ?z))
<> (reverse List ()) (List)

2
examples/string_reverse.modal
View File

@ -1,6 +1,6 @@
?(?-) (This example reverses the string modal, into ladom.)
<> (reverse List () ?*) (?*)
<> (reverse List () ?^) (?^)
<> (reverse (?*)) (reverse List (?*) ())
<> (reverse List (?x ?y) ?z) (reverse List ?y (?x ?z))

6
examples/tests.modal
View File

@ -57,16 +57,18 @@ abc ?(?x) def = abc test
<> (explode ?*) ((?*) =)
explode cow (c (o (w ()))) test
explode (12 34 45) (12 (34 (45 ()))) test
?(?-) (Implode)
<> (implode ?*) (?* =)
<> (implode ?^) (?^ =)
implode (b (a (t ()))) bat test
implode (12 (34 (56 ()))) 123456 test
?(?-) (List reversal)
<> (reverse List () ?*) (?*)
<> (reverse List () ?^) (?^)
<> (reverse (?*)) (reverse List (?*) ())
<> (reverse List (?x ?y) ?z) (reverse List ?y (?x ?z))