Added string_join example

This commit is contained in:
Devine Lu Linvega 2024-04-16 12:17:11 -07:00
parent 1fdda010eb
commit 84de156184
1 changed files with 11 additions and 0 deletions

View File

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