#!/usr/bin/env perl
use warnings;
use strict;

my @primes = (2,3,5,7,11,13,17) ; 
my @start  = (0..209);

foreach my $x (@primes){
  my @best = @start;
  my $count = scalar @best;
  print "\nprime $x $count\n";
  foreach my $y (0..$x-1){
    my @new = grep { ($_+$y) % $x } @best;
    my $new = scalar @new;
    print " ${y}mod${x} = $new\n";
    if ($new < @start){
      @start = @new;
    }
  }
}