Help for this page

Select Code to Download


  1. or download this
    $_=join'',map{"$_\n"}@l[0,1,1,2,3,3,4];
  2. or download this
    $_=join$/,@l[0,1,1,2,3,3,4];
  3. or download this
    sub f{
@c=qw[00700 00001 00000 75557 11111 71747
...
$_=join$/,@l[0,1,1..4];
tr/01/ X/;$_
}