Algorithmus gesucht

[bootfish]

Hi,

ich brauche für eine Übungsaufgabe einen Algorithmus, der mir aus einem array mit n Elementen die jeweils 3 Werte annehmen können (0,1,2) alle Möglichen Kombinationen ausgibt.

also z.B. habe ich ein Array: [0,0,0] mit n=3

ich brauche also einen Algo, der mir

[0,0,0], [0,0,1], [0,1,0] ... [2,2,2] als Lösungsmenge ausgibt.

Jemand ne Idee wie ich das anstellen kann?

Pseudocode oder Grundideen würden mir warscheinlich ausreichen!

Danke

[lordy]

Ich kann zwar keinen Pseudocode, aber vielleicht hilft dir das

Schleife A (x = 1 .. 3)

  Schleife B (y = 1 .. 3)

    Schleife C (z = 1 .. 3)

       print @array(x,y,z)

    }

  }

}

[Mr Unix]

[...]der mir aus einem array mit n Elementen die jeweils 3 Werte annehmen ko:nnen (0,1,2) alle Mo:glichen Kombinationen ausgibt

Das sind nicht alle moeglichen Kombinationen. 1,2 ohne 0 waere z.b. auch eine Kombination. Ich vermute einfach mal, dass das was du suchst sowas wie Permutation ist. So lange du nur drei Elemente hast, ist das kein Thema. Falls es viel mehr werden, dann such mal nach dem Stichwort "Memoizing". Viel mehr: 6 Elemente => 720 Permutationen, 10 Elemente => 362XXXX Moeglichkeiten....

Permutation ist ziemlich funktionell und Rekursion ist vorrausgestzt. CLISP und Perl sind hier sehr stark. So koennte das Ganze in Perl aussehen:

#!/usr/bin/perl -w

# vim: set sw=4 ts=4

use strict;

use warnings;


permute([qw/ich mag zitronensorbet/], []);

sub permute

{

        my @items = @{ $_[0] };

        my @perms = @{ $_[1] };

        unless (@items)

        {

                print "@perms\n";

        }

        else

        {

                my(@newitems,@newperms,$i);

                foreach $i (0 .. $#items)

                {

                        @newitems = @items;

                        @newperms = @perms;

                        unshift(@newperms, splice(@newitems, $i, 1));

                        permute([@newitems], [@newperms]);

                }

        }

}