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-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Strip-comments-from-a-string/Refal/strip-comments-from-a-string.refal Normal file
View file

@ -0,0 +1,23 @@
$ENTRY Go {
= <Prout <StripComments 'apples, pears # and bananas'>>
<Prout <StripComments 'apples, pears ; and bananas'>>;
};
StripComments {
e.X = <Trim <StripAll (';#') e.X>>;
};
Trim {
e.X ' ' = <Trim e.X>;
e.X = e.X;
};
StripAll {
() e.X = e.X;
(s.C e.C) e.X = <StripAll (e.C) <Strip s.C e.X>>;
};
Strip {
s.C e.X s.C e.Y = e.X;
s.C e.X = e.X;
};