Rosetta Code/Fix code tags: Difference between revisions
Content added Content deleted
(Added PicoLisp) |
(Add J) |
||
Line 29: | Line 29: | ||
FileAppend, % text, %2% |
FileAppend, % text, %2% |
||
</lang> |
</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}}== |
=={{header|JavaScript}}== |