RosettaCodeData/Task/Strip-comments-from-a-string/Factor/strip-comments-from-a-strin...

4 lines
101 B
Factor

USE: sequences.extras
: strip-comments ( str -- str' )
[ "#;" member? not ] take-while "" like ;