Task

Write/display a language's name in 3D ASCII.



(We can leave the definition of "3D ASCII" fuzzy,
so long as the result is interesting or amusing,
not a cheap hack to satisfy the task.)



Related tasks

 draw a sphere
 draw a cuboid
 draw a rotating cube
 draw a Deathstar


#!/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];
}