Selective file copy: Difference between revisions
add PicoLisp
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: meh. another typo) |
(add PicoLisp) |
||
Line 789:
AAAA -00000004xxxxx
AAAAA-de49a705xxxxx</pre>
=={{header|PicoLisp}}==
<lang PicoLisp>(de record (F)
(in F
(until (eof)
(tab (5 5 5)
(make (do 5 (link (char))))
(and
(do 5
(char) )
(till "+-")
(format (conc (cons (peek)) @)) )
"XXXXX" )
(line) ) ) )
(record "selective.in")</lang>
{{out}}
<pre>A 1XXXXX
AA 2XXXXX
AAA 3XXXXX
AAAA -1XXXXX
AAAAA -2XXXXX</pre>
=={{header|PL/I}}==
| |||