fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. use v5.10;
  4. $_="0123456789";
  5. for$l(0..6){say map{sprintf('%08b',ord substr'>>@>>>"AAB@ABAAA(B@@AAA>>B~~>?A@AA"@AAAAA>>>>>>',$l.$_)=~y/01/ #/r}/./g}
  6.  
Success #stdin #stdout 0s 17496KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   ###      #     #####   #####  #       #######  #####  #######  #####   ##### 
  #   #    ##    #     # #     # #    #  #       #     # #    #  #     # #     #
 #     #  # #          #       # #    #  #       #           #   #     # #     #
 #     #    #     #####   #####  #    #  ######  ######     #     #####   ######
 #     #    #    #             # #######       # #     #   #     #     #       #
  #   #     #    #       #     #      #  #     # #     #   #     #     # #     #
   ###    #####  #######  #####       #   #####   #####    #      #####   #####
https://ideone.com/dBeLlD
language:
Perl (perl 5.28.1)
created:
6 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!