Filter interesting gencols results quickly

[codeholic]

Code: Select all

#!/usr/bin/perl -n
/ (\d+) \((\d+),-?(\d+),-?(\d+)\)/
&& ( ($2 == 3 && $1 < 48)
    || ($2 == 4 || $3 + $4 != 0) && ($3 != 1 || $4 != 1)
    || $2 == 5
    || ($2 == 6 && $1 < 51)
    || $2 > 6 )
&& print;

It's a nice little script I use (I called it pearls.pl) to quickly find spaceships and oscillator with uncommon periods in the output. Usually these are *WSS and pentadecathlons (I filter out gliders and pulsars), but I also found a figure eight once. (I modified gencols source code so that it detects oscillators up to the period 30).