Write language name in 3D ASCII: Difference between revisions
Content added Content deleted
(non obfuscated Perl) |
(→{{header|Perl 6}}: Removed obfuscated code.) |
||
Line 1,396: | Line 1,396: | ||
_| \___|_| _|</pre> |
_| \___|_| _|</pre> |
||
Font taken from http://www.network-science.de/ascii/. |
Font taken from http://www.network-science.de/ascii/. |
||
=={{header|Perl 6}}== |
|||
<lang perl6>print <T,cc^,cc^,cc^,^,,1ccTA,^/A,c_A,^/A-,,@1c:@6;666;`,6;6666,A-c^U-,c`-,c_ |
|||
-,,`--,661,N66;`66;`,6,/66;_--_-U-_,--cc_-_O_-cc_CccD6@@,6@,,@@B,@@,.@@,D8`,, |
|||
8cc`8`E`8cc@Lc`X>>>.ords>>.comb.map({(" |/\\\n_".comb)[$_-4]});</lang> |
|||
{{out}} |
|||
<pre> |
|||
_____ _____ _____ _ _____ |
|||
/| _ \/| ___|/| _ \/| | / ___| |
|||
/ | |_| | | |__/ | |_| | | | /| |___ |
|||
| | ___/ | ___| | _/ | | | | _ \ |
|||
| | |__/| | |__/ | \| | |__| | |_| | |
|||
| |_| | |_____| |_|\__| |_____|/\____/ |
|||
| / / | / / / // / / // / / |
|||
|/_/ |/_____/|/_//__/|/____/ \/___/ |
|||
</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |