fork(1) download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. use v5.10;
  4. $_="0987654321";
  5. for$l(0..6){say map{sprintf("%08b",127&(80+ord substr'L8nnp/n/nnRHqqrpqrqqqX11rpp4qqq8nnr..8noq8p1/1q@q1R8pq2qq@qqLn/n2nn@nn',$l.$_))=~y/01/ #/r}/./g}
  6.  
Success #stdin #stdout 0s 18256KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   ###    #####   #####  #######  #####  ####### #        #####   #####     #   
  #   #  #     # #     # #    #  #     # #       #    #  #     # #     #   ##   
 #     # #     # #     #     #   #       #       #    #        #       #  # #   
 #     #  ######  #####     #    ######  ######  #    #   #####   #####     #   
 #     #       # #     #   #     #     #       # #######       # #          #   
  #   #  #     # #     #   #     #     # #     #      #  #     # #          #   
   ###    #####   #####    #      #####   #####       #   #####  #######  #####
https://ideone.com/gbBuzn
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!