Rosetta Code/Fix code tags: Difference between revisions
Add J
(Added PicoLisp) |
(Add J) |
||
Line 29:
FileAppend, % text, %2%
</lang>
=={{header|J}}==
'''Solution:'''
<pre>
patterns=: noun define
<%s>;<lang %s>
</%s>;</lang>
<code %s>;<lang %s>
</code>;</lang>
)</pre>
<lang j>require 'printf strings'
langs=: <;._1 LF -.~ noun define NB. replace with real lang strings
foo bar
baz
)
fixCodeTags=: rplc&(,; ([: <;._2 ,&';');._2 &.> patterns vbsprintf _5]\5#langs)</lang>
'''Example Usage:'''
<pre>SampleText=: noun define
Lorem ipsum <code foo>saepe audire</code> elaboraret ne quo, id equidem
atomorum inciderint usu. <foo>In sit inermis deleniti percipit</foo>,
ius ex tale civibus omittam. <barf>Vix ut doctus cetero invenire</barf>, his eu
altera electram. Tota adhuc altera te sea, <code bar>soluta appetere ut mel</bar>.
Quo quis graecis vivendo te, <baz>posse nullam lobortis ex usu</code>. Eam volumus perpetua
constituto id, mea an omittam fierent vituperatoribus.
)
fixCodeTags SampleText
Lorem ipsum <lang foo>saepe audire</lang> elaboraret ne quo, id equidem
atomorum inciderint usu. <lang foo>In sit inermis deleniti percipit</lang>,
ius ex tale civibus omittam. <barf>Vix ut doctus cetero invenire</barf>, his eu
altera electram. Tota adhuc altera te sea, <lang bar>soluta appetere ut mel</lang>.
Quo quis graecis vivendo te, <lang baz>posse nullam lobortis ex usu</lang>. Eam volumus perpetua
constituto id, mea an omittam fierent vituperatoribus.</pre>
=={{header|JavaScript}}==
| |||