gudn tach Daniel!
dein algorithmus ist toll, keine frage!
dennoch moechte ich eine weitere variante nennen.
es geht naemlich auch ohne rekursionen, kuerzer und fuer leute, die mit binaeren zahlen was anfangen koennen, auch leichter verstaendlich:
#!/usr/bin/perl -w
use strict;
for(my $i=1;$i>>5<1;++$i){
for(0..4){
print 1+$_ if $i & 2**$_;
}
print "\n";
}
prost
seth