Select Code to Download

Jarvis j

#!/usr/bin/perl
use warnings;
...
}

Jarvis::convexHull(\@points);

1 2
3 4
5 6

{   package Stream;
    use Moo;
...
        return $token
    }
}

my $input = 'Stream'->new(fh => *STDIN);
while (@points < $n) {
    my ($x, $y) = map $input->next_token, 1, 2;
    push @points, 'Point'->new(x => $x, y => $y);
}

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,