Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
m (→{{header|Perl}}: justified) |
(→{{header|Perl}}: Removed as needlessly obfuscated.) |
||
| Line 1,377: | Line 1,377: | ||
<<<> <<<<<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> |
<<<> <<<<<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> |
||
<<<> <<<> <<<<<<<<<<<<<<<> <<<> <<<> <<<> <<<> <<<<<<<<<<<<> <<<<<<<<<<<<</pre> |
<<<> <<<> <<<<<<<<<<<<<<<> <<<> <<<> <<<> <<<> <<<<<<<<<<<<> <<<<<<<<<<<<</pre> |
||
=={{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_'. |
|||
'1+1\1+2_2|1+1|1-1+1_3/1+2_2/1+1|1+4|1-1_1|1+3\1_3|1_1|1+3_1|1-1')=~/(.)(\d+)/g |
|||
</lang> |
|||
{{out}} |
|||
<pre> _ \ | |
|||
| | _ \ __| | |
|||
___/ __/ | | |
|||
_| \___|_| _|</pre> |
|||
Font from http://www.network-science.de/ascii/. |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||