fork download
copy 
  1. #!/usr/bin/perl
  2. use v5.14;
  3. use Data::Dumper;
  4. no strict;
  5. $_="0123456789";
  6.  
  7. @a=map {
  8.         $c=ord^4;
  9.     map$c>>$_&1?' ':'#',(0..6)
  10. } ("gY3:Yg{?19\x4;;{	52=Y52Md4k\x5kT52JE52Ixz
  11. r~xzM52M]52E"=~s/(\d)(.)/$2x$1/ger=~/./gs);
  12. for$l(0..6) {
  13.         say map {
  14.                 $c=$_;
  15.                 " ",map {
  16.                         $a[$c*49+7*$_+$l];
  17.                 } (0..6)
  18.         } (/./g)
  19. }
  20.  
Success #stdin #stdout 0s 21368KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   ###      #     #####   #####  #       #######  #####  #######  #####   ##### 
  #   #    ##    #     # #     # #    #  #       #     # #    #  #     # #     #
 #     #  # #          #       # #    #  #       #           #   #     # #     #
 #     #    #     #####   #####  #    #  ######  ######     #     #####   ######
 #     #    #    #             # #######       # #     #   #     #     #       #
  #   #     #    #       #     #      #  #     # #     #   #     #     # #     #
   ###    #####  #######  #####       #   #####   #####    #      #####   #####
https://ideone.com/RocTRR
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!