Anonymous user
Write language name in 3D ASCII: Difference between revisions
non obfuscated Perl
(→{{header|Perl}}: Removed as needlessly obfuscated.) |
(non obfuscated Perl) |
||
Line 1,377:
<<<> <<<<<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<> <<<>
<<<> <<<> <<<<<<<<<<<<<<<> <<<> <<<> <<<> <<<> <<<<<<<<<<<<> <<<<<<<<<<<<</pre>
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict;
use warnings;
for my $tuple ([" ", 2], ["_", 1], [" ", 1], ["\\", 1], [" ", 11], ["|", 1], ["\n", 1],
[" ", 1], ["|", 1], [" ", 3], ["|", 1], [" ", 1], ["_", 1], [" ", 1], ["\\", 1], [" ", 2], ["_", 2], ["|", 1], [" ", 1], ["|", 1], ["\n", 1],
[" ", 1], ["_", 3], ["/", 1], [" ", 2], ["_", 2], ["/", 1], [" ", 1], ["|", 1], [" ", 4], ["|", 1], ["\n", 1],
["_", 1], ["|", 1], [" ", 3], ["\\", 1], ["_", 3], ["|", 1], ["_", 1], ["|", 1], [" ", 3], ["_", 1], ["|", 1], ["\n", 1]
) {
print $tuple->[0] x $tuple->[1];
}</lang>
{{out}}
<pre> _ \ |
| | _ \ __| |
___/ __/ | |
_| \___|_| _|</pre>
Font taken from http://www.network-science.de/ascii/.
=={{header|Perl 6}}==
|