aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Task/Tokenize-a-string/Refal/tokenize-a-string.refal Normal file
View file

@ -0,0 +1,15 @@
$ENTRY Go {
= <Prout <Join ('. ') <Split (',') 'Hello,How,Are,You,Today'>>>;
};
Split {
(e.S) = ;
(e.S) e.1 e.S e.2 = (e.1) <Split (e.S) e.2>;
(e.S) e.1 = (e.1);
};
Join {
(e.J) = ;
(e.J) (e.1) = e.1;
(e.J) (e.1) e.2 = e.1 e.J <Join (e.J) e.2>;
};