Help for this page

Select Code to Download


  1. or download this
    $"='|';$|=$d=1;@b=map{bless{t,"$_  ",r,$d*=-1}}qw/Just another Perl
    hacker,/;sub v{$s=shift;my$_=$$s{t};$r=int y===c*$$s{a}/360;$$s{a}=
    ($$s{a}+$$s{r})%360;s%(.{$r})(.*)%$2$1%;$_}{print"\r@{[map{v$_}@b]
    }";select$x,$y,$z,2e-3;redo}
    
  2. or download this
    $"='|';$|=$d=1;@b=map{my($t,$h,$a)=("$_  ",$d*=-1);sub{my$_=$t;$r=int
    y===c*$a/360;$a=($a+$h)%360;s%(.{$r})(.*)%$2$1%;$_}}qw/Just another
    Perl hacker,/;{print"\r@{[map{&$_}@b]}";select$x,$y,$z,2e-3;redo}