Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
do shift;{($t[$h],$*,$m)=@{$b{$m}{$t[$h]||0}};$h+=$*;$m?redo:die@t,$/}
  2. or download this
    %b=(1,{0,[0,1],1,[0,1,2]},2,{0,[0,1,3],1,[1,1,2]},3,{0,[1,-1,4],1,[1,1
,3]},4,{0,[0,-1,5],1,[1,-1,4]},5,{0,[(1)x3],1,[1,-1,5]}),($m,@t)=(1)x7
  3. or download this
    ($m,%b)=(h,j,{0,[h,1]},a,{0,[p,1,j]},p,{0,[a,1,a]},h,{0,[j,1,p]})