Re: Hamming Sequences and Lazy Lists

[Limbic~Region]

in reply to Hamming Sequences and Lazy Lists

tall_man,
This idea poppped into my head today and I didn't really get a chance to play with it before a marathon meeting.

use List::Util 'min';

my $iter = hamming(2, 3, 5);
print $iter->(), "\n" while 1;
sub hamming {
    my @factor = @_;
    my %pool = (1 => 1);
    return sub {
        my $next = delete $pool{ min keys %pool };
        @pool{ map { $next * $_ } @factor } = map { $next * $_ } @fact
+or;
        return $next;
    };
}

Update: Removed faulty optimization

[Roy Johnson]

No need to populate values, though.

    return sub {
        my $next = min keys %pool;
        @pool{ map { $next * $_ } @factor } = ();
        delete $pool{$next};
        return $next;
    };