Re: 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;
    };
}
[download]

Cheers - L~R

Update: Removed faulty optimization

Comment on Re: Hamming Sequences and Lazy Lists Download Code

Replies are listed 'Best First'.
Re^2: Hamming Sequences and Lazy Lists by Roy Johnson (Monsignor) on Apr 21, 2005 at 23:13 UTC
No need to populate values, though. `return sub { my $next = min keys %pool; @pool{ map { $next * $_ } @factor } = (); delete $pool{$next}; return $next; };` [download] Caution: Contents may have been coded under pressure.	[reply] [d/l]