Help for this page

Select Code to Download


  1. or download this
    $=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@
+==(1)x pop
  2. or download this
    qwurx [shmem] ~> perl -e '$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[
+@z]%=1+$#z--).=0}@z=@=for@==(1)x pop' 10
Attempt to free unreferenced scalar: SV 0xdd0968, Perl interpreter: 0x
+da4010 at -e line 1.
Segmentation fault
  3. or download this
    $=[@z]%=1+$#z--).=0