Select Code to Download

use strict;
use warnings;
...
        die "Unknown pattern '$pattern', stopped";
    }
}

13:48 >perl 1862_SoPW.pl
Found horizontal pattern 'aaa' in row 1
...
Found diagonal pattern 'ccc' in right-left diagonal

13:57 >