Help for this page

Select Code to Download


  1. or download this
    ! What self.number means:
    !    0    Never used
    ...
        }
      }
      ],
    
  2. or download this
    sub A{while($_[0]){$d=hex chop$_[0];foreach(1..4){$_[1].=($d
    %2)?1:0;$d>>=1;}}return$_[1];}sub J{$_=shift;while($_){$c=0;
    while(s/^0//){$c++;}s/^1//;$_[1].=(' ','|','_',"\n",'\\','/'
    )[$c]}@_}$PH="16f6da116f6db14b4b0906c4f324";print J(A($PH));