Re^2: In need of a sequence iterator.

That works perfectly. Thankyou.

Looks so easy ... when someone else does it:)

Examine what is said, not who speaks.

"But you should never overestimate the ingenuity of the sceptics to come up with a counter-argument." -Myles Allen
"Think for yourself!" - Abigail "Time is a poor substitute for thought"--theorbtwo "Efficiency is intelligent laziness." -David Dunham
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

Comment on Re^2: In need of a sequence iterator.

Replies are listed 'Best First'.
Re^3: In need of a sequence iterator. by !1 (Hermit) on Dec 02, 2004 at 16:30 UTC
Now that I've had a chance to sleep, here's a solution that accepts either a count or an arrayref. `sub genIterator { my ($len,$array) = @_; $array = [0..$array-1] if $array =~ /^\d+$/; die "Don't know what to do with $array" unless ref $array eq "ARRA +Y"; my @list = (); return sub { return undef unless @$array; if (@list < $len) { push @list, 0; } else { $list[-1]++; while (@list && $list[-1] >= @$array) { pop @list; $list[-1]++ if @list; } } return @list ? join("", @$array[@list]) : undef; } }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: In need of a sequence iterator.
by !1 (Hermit) on Dec 02, 2004 at 16:30 UTC

Now that I've had a chance to sleep, here's a solution that accepts either a count or an arrayref.

sub genIterator {
    my ($len,$array) = @_;
    $array = [0..$array-1] if $array =~ /^\d+$/;
    die "Don't know what to do with $array" unless ref $array eq "ARRA
+Y";
    my @list = ();
    return sub {
        return undef unless @$array;
        if (@list < $len) {
            push @list, 0;
        } else {
            $list[-1]++;
            while (@list && $list[-1] >= @$array) {
                pop @list;
                $list[-1]++ if @list;
            }
        } 
        return @list ? join("", @$array[@list]) : undef;
    }
}
[download]

[reply]
[d/l]