in reply to Re: Pattern enumeration.
in thread Pattern enumeration.

I'm using the regex engine to generate solutions for speed:

Hm.

c:\test>851581.pl 10000 1280263403 20000 1280263405 30000 1280263407 40000 1280263410 50000 1280263412 60000 1280263414 70000 1280263416 80000 1280263418 90000 1280263420 100000 1280263423 110000 1280263425 120000 1280263427 130000 1280263429 140000 1280263431 Terminating on signal SIGINT(2)

I read that as 230 microseconds per iteration. Not sure if that is generated or tested good, but even if the latter; and assuming a (way) underestimate of 5^64; then 3 779 192 301 486 978 976 247 237 055 279 666 years.

I don't think that throwing threads, or even a google, at it will help any :) Maybe a few giant red spots.

Replies are listed 'Best First'.
Re^3: Pattern enumeration.
by ikegami (Patriarch) on Jul 27, 2010 at 21:24 UTC

    I started playing with a recursive solution that builds grids from smaller grids. Bonus: This method naturally omits permutations.

    For example, given

    2x2, 2 syms: AA AB AB BB AB BA
    One can overlap the 2x2 grids to form:
    3x3, 2 syms: 13 22 31 33 33 13 33 31 22 33 AAB ABA ABB ABA ABA BBA ABA BAA BAB BAB AAB BAB ABB BAB ABA

    I think it might be possible to turn this into an efficient solution for counting the arrangements instead of generating them.

    That's all I had time to do for now.

    Update: At time of writing, I thought

    F FF
    wasn't allowed. The concept still applies, although there would be a lot more possible grids.

      That's an interesting approach. I still doubt it will complete in the life of the universe though.

      This is my random generator/validator for approximating the percentage of valid patterns. It is 3.5 times faster than your original, but still if all the clouds in all the world, (a veritable storm), ran this and nothing else it would still take longer than the life of the universe to date.

      #! perl -slw use strict; #use Math::Random::MT qw[ rand ]; $|++; our $I //= 1e6; my( $tried, $good ); for ( 1 .. $I ) { ++$tried; my @b = map int( rand 6 ), 1 .. 64; $good += checkBoard( \@b ); # displayBoard( \@b ); print "$good of $tried"; <STDIN>; printf "\r%10u %18.15f ", $tried, $good / $tried unless $tried % 1 +0000; } sub checkBoard { my $ref = shift; for( [0..7],[8..15],[16..23],[24..31],[32..39],[40..47],[48..55],[5 +6..63], [ 0, 8,16,24,32,40,48,56], [ 1, 9,17,25,33,41,49,57], [ 2,10,18,26,34,42,50,58], [ 3,11,19,27,35,43,51,59], [ 4,12,20,28,36,44,52,60], [ 5,13,21,29,37,45,53,61], [ 6,14,22,30,38,46,54,62], [ 7,15,23,31,39,47,55,63], ) { my $n = 0; join( '', @{$ref}[ @$_ ] ) =~ m[(.)\1\1] and return 0; } return 1 } sub displayBoard { print for unpack '(A16)*', join ' ', @{ $_[ 0 ] } }

      I *think* I now know how to write a program to generate a calculation that will produce the count. Your original program will be useful for testing the calculation against (much) smaller test cases. If it gets close for them, and results in a percentage of the 6^64 possibilities of 8.972% (approximation from 100 million trials), then it will be reasonable to assume the calculation is um...reasonable :)

        I don't get your checkBoard function. It seems to only check if there aren't 3 equal numbers on a single row or column. There doesn't seem to be a check for 3 equal numbers at "an angle". Or am I missing something?