Anonymous user
XML/Output: Difference between revisions
Added PicoLisp
(Added PicoLisp) |
|||
Line 703:
}
print $doc->toString();</lang>
=={{header|PicoLisp}}==
<lang PicoLisp>(load "@lib/xm.l")
(de characterRemarks (Names Remarks)
(xml
(cons
'CharacterRemarks
NIL
(mapcar
'((Name Remark)
(list 'Character (list (cons 'name Name)) Remark) )
Names
Remarks ) ) ) )
(characterRemarks
'("April" "Tam O'Shanter" "Emily")
(quote
"I'm > Tam and <= Emily"
"Burns: \"When chapman billies leave the street ..."
"Short & shrift" ) )</lang>
Output:
<pre><CharacterRemarks>
<Character name="April">I'm > Tam and <= Emily</Character>
<Character name="Tam O'Shanter">Burns: "When chapman billies leave the st
<Character name="Emily">Short & shrift</Character>
</CharacterRemarks></pre>
=={{header|Python}}==
| |||