Gerador de Anagrama

Bom, essa funçãozinha serve pra gerar sequencias de números. Por exemplo, você passa:

$a = sequencias(array(1,2,3,4),4);foreach($a as $chave => $valor) { if ($a[$chave-1][0]!=$valor[0] && $chave!=0) print "<br />"; print $valor." ";}Produz:

1234 1243 1324 1342 1423 14322134 2143 2314 2341 2413 24313124 3142 3214 3241 3412 34214123 4132 4213 4231 4312 4321Entenderam? Pois então, a função:

function sequencias($s = array(),$tam) { if ($tam>count($s)) return FALSE; $a[0] = $s; for ($nq=1;$nq<$tam;$nq++) { $a[$nq] = array(); foreach($a[$nq-1] as $chave => $valor) { for ($num=0;$num<count($s);$num++) { if (substr_count($valor,$s[$num])==0) $a[$nq][] = $valor.$s[$num]; } } } return end($a);}Dúvidas? fragen mich.