Anonymous user
Strip comments from a string: Difference between revisions
no edit summary
No edit summary |
|||
Line 477:
<lang clojure>> (apply str (take-while #(not (#{\# \;} %)) "apples # comment"))
"apples "</lang>
=={{header|COBOL}}==
<lang cobol>> identification division.
program-id. StripComments.
data division.
working-storage section.
01 line-text pic x(64).
procedure division.
main.
move "apples, pears # and bananas" to line-text
perform show-striped-text
move "apples, pears ; and bananas" to line-text
perform show-striped-text
stop run
.
show-striped-text.
unstring line-text delimited by "#" into line-text
unstring line-text delimited by ";" into line-text
display quote, function trim(line-text), quote
.</lang>
{{out}}
<pre>
"apples, pears" "apples, pears"
</pre>
=={{header|Common Lisp}}==
| |||