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

1
Task/Strip-comments-from-a-string/APL/strip-comments-from-a-string.apl Normal file
View file

@ -0,0 +1 @@
strip ← {(~⌽∧\⌽' '=z)/z←(∧\~⍵∊⍺)/⍵}

5
Task/Strip-comments-from-a-string/Emacs-Lisp/strip-comments-from-a-string.l Normal file
View file

@ -0,0 +1,5 @@
(string-trim (string-trim-right " apples, pears # and bananas" "[#;].+"))
(string-trim (string-trim-right " apples, pears ; and bananas" "[#;].+"))
(string-trim (string-trim-right " apples, pears and bananas " "[#;].+"))

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;
};

13
Task/Strip-comments-from-a-string/SETL/strip-comments-from-a-string.setl Normal file
View file

@ -0,0 +1,13 @@
program strip_comments;
print(strip(";#", "apples, pears # and bananas"));
print(strip(";#", "apples, pears ; and bananas"));
print(strip(";#", "apples, pears"));
proc strip(comment_chars, s);
if exists c = s(i) | c in comment_chars then
s := s(..i-1);
end if;
rspan(s, "\n\t ");
return s;
end proc;
end program;