[PHP] Generowanie uniklanych podciągów w/g algorytmu Opcje

[amii]

Znalazłem gotowa funkcję anagramy na forum php. Problem jest taki, że działa ok ale dla n-elementowego ciągu nie generuje kombinacji od 1 do n-1 znaków. Zaprezentuje to na kodzie php:

Dla ciągu 1234, potrzebuje mieć wygenerowane następujące kombinacje(po przecinku) jako wejście dla funkcji anagramy:
1, 2, 3, 4, 12, 13, 14, 123, 124, 324, 1234
Może da się to zrobić zupełnie inaczej nie używając funkcji anagramy

[PHP] pobierz, plaintext 
function anagramy($wyraz) {
 
 
  for ($i=0; $i<strlen($wyraz); $i++) {  //obliczamy dlugosc przekazanego ciagu
      $znak=$wyraz[$i];                  //przypisujemy kolejne znaki z ciagu do zmiennej znak
      $ile=count($tmp);                  //jesli tmp nie istnieje a tak jest przy pierwszej iteracji to ustawiamy ile na zero
 
      if ($ile==0) $tmp[]=$znak;         //jesli tmp=0 to zmiennej tablicowej tmp przypisujemy znak z ciagu
 
      else {                             //w innym przypadku..
       for($k=0;$k<$ile;$k++) {          //robimy petle w petli
        $ciag=$tmp[$k];
            for($j=0;$j<=1;$j++) {
            $new[]= substr($ciag,0,$j).$znak.substr($ciag,$j);
            }
       }
      $tmp=$new;
      $new="";
     }
  }
 
 
  return $tmp;
}
 
 
$ccc = "1234";
$ilosc_znakow = strlen($ccc);
$bbb = array();
$table = array();
 
for ($licznik=1; $licznik < $ilosc_znakow+1; $licznik++)  {
 
 for ($pp=0; $pp<$ilosc_znakow; $pp++)  {
 
  $bbb[] = substr($ccc, $pp, $licznik);
  }
 
 
}
 
 
$bbb = array_unique($bbb);
$ilosc_wyrazow = count($bbb);
 
 
for ($tt=0; $tt<$ilosc_wyrazow; $tt++) {
$tmp = anagramy($bbb[$tt]);
for ($i=0;$i<count($tmp);$i++) {
echo $tmp[$i]."<br>";    
}
} 
 
[PHP] pobierz, plaintext