Anonymous user
Write language name in 3D ASCII: Difference between revisions
m
→{{header|Perl}}: justified
(Perl created) |
m (→{{header|Perl}}: justified) |
||
Line 1,379:
=={{header|Perl}}==
<lang perl>%h=('+',' ','-',"\n");print+($h{$1}||$1)x$2 while('+2_1+1\1+11|1-1+1|1+3|1+1_'.
</lang>
{{out}}
| |||