gistfile1.pl

use strict;
use Math::Trig;

my $count = 0;
my $x = 0;

while ($count++ < 100) {
    print int( cos( ($x / 2) * pi) ), "\n";

    $x < 3 ? $x++ : ($x = 0);
}