mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Strip-comments-from-a-string/Prolog/strip-comments-from-a-strin...

2 lines
116 B
Prolog
Raw Permalink Blame History

strip_1comment(A,D) :- ((S1=0'#;S1=0';),append(B,[S1|C],A)), \+ ((S2=0'#;S2=0';),append(_X,[S2|_Y],B)) -> B=D; A=D.
Reference in New Issue View Git Blame Copy Permalink