fork(3) download
copy 
  1. print$_%($b--/41-1)?@a:chr$_*2+36for(d..40)x8 #585 = 45 x 13
  2. #print$_%($b--/41-1)?@a:chr$_*2+36for(0..40)x8 #630 = 45 x 14
  3. #while($b++<8){print$_%$b?@a:chr$_*2+36for~-1..40} #637 = 49 x 13
Success #stdin #stdout 0s 3564KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprt$(,048<@DHLPTX\`dhlpt$*06<BHNTZ`flr$,4<DLT\dlt$.8BLV`jt$0<HT`l$2@N\j$4DTdt
https://ideone.com/EuGkZR
デスマコロシアム４ Perl 585 = 45 x 13
language:
Perl (perl 5.28.1)
created:
9 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!