Ben çalıştırdığınızda

use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 0; 
my @x = (1,2,3,4);
my @y = find_all_subsets(@x);
foreach my $subset (@y) {
  print Dumper($subset), "\n";
}

(+ Özgün senaryo) çıkışı

[1]
[1,4]
[1,3]
[1,3,4]
[1,2]
[1,2,4]
[1,2,3]
[1,2,3,4]
[2]
[2,4]
[2,3]
[2,3,4]
[3]
[3,4]
[4]

[] Çıktı, biz bunları daha sonra geri geleceğiz unutmayın.

function find_all_subsets (array $x) {
  if ( 1>= count($x) ) { // the >= differs from the original script, use == or === if you want to keep it "more original"
    return array($x);
  } 
  else {
    $all_subsets = array();
    $last_item = array_pop($x);
    $first_subsets = find_all_subsets($x) ;
    foreach ($first_subsets as $subset) {
      array_push($all_subsets, $subset);
      array_push($subset, $last_item);
      array_push($all_subsets, $subset);
    }
    array_push ($all_subsets, array($last_item));
    return $all_subsets;
  }
}

$x = array(1,2,3,4);
$y = find_all_subsets($x);
foreach($y as $subset) {
  echo '(', join(',', $subset), ")\n";
}

üretir

(1)
(1,4)
(1,3)
(1,3,4)
(1,2)
(1,2,4)
(1,2,3)
(1,2,3,4)
(2)
(2,4)
(2,3)
(2,3,4)
(3)
(3,4)
(4)

şimdiye kadar çok iyi. Şimdi geri [] için. Bir dizi ancak bir dizi referans (; Perl gerçekten benim güçlü takım değil ben doğru terimleri kullanmak yoksa beni çıplak) değil beacuse Veri :: Çuvalı) bu [] değil, (seçti. En perl test script değiştirmek izin ve tüm bu referans Thingies var etkisine bakmak.

use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 0; 
$x2 = 2;
my @x = (1,\$x2,3,4);
my @y = find_all_subsets(@x);
$x2 = 99;
foreach my $subset (@y) {
  print Dumper($subset), "\n";
}

ve çıkış değişir

[1]
[1,4]
[1,3]
[1,3,4]
[1,\99]
[1,\99,4]
[1,\99,3]
[1,\99,3,4]
[\99]
[\99,4]
[\99,3]
[\99,3,4]
[3]
[3,4]
[4]

Ben $ x2 find_all_subsets için after () çağrısı ama değiştirmek, görmek hala result yeni değer kullanılır ve Veri :: Çuvalı (bir referans olarak "değer" işaretleri \ 99 yerine sadece 99). Sizin de php komut dosyası bu özelliği ihtiyacınız var mı?

[] bir dizi referans içine bir dizi dönüm için operatöre başvuran bir dizidir

@{}, bir diziye bir dizi başvurusu dönüm, bir dizi dereferencing operatörü

@a = (1,2,3);
$a = [ @a ];
@b = @{$a};       # now @b ==> (1,2,3)

Böyle bir şey:

@{$subset}    # Return array reference as an ordinary array, not applicable in PHP.
[@ext_subset] # Turn an array into an array reference, not applicable in PHP.
[$last_item]  # Create an array with $last_item as the only element, equal to array($last_item) in PHP.

Yani bu (php) doğru mu?

function find_all_subsets($array) {
    if (count($array) == 1) {
        return $array;
    }
    else {
        $all_subsets = array();
        $last_item = array_pop($array);
        $first_subsets = find_all_subsets($array);
        foreach ($first_subsets as $key => $val) {
            array_push($all_subsets, $val);
            $ext_subset[] = $val;
            array_push($ext_subset, $last_item);
            array_push($all_subsets, $ext_subset);
        }
        array_push($all_subsets, $last_item);
        return $all_subsets;
    }
}

sadece tüm alt kümelerini bulmak gerekir durumda, bu böyle gider

function subsets($ary) {
    $out = array();
    $len = count($ary);
    for($i = 0; $i < (1 << $len); $i++) {
        for($p = array(), $j = 0; $j < $len; $j++)
            if($i & (1 << $j))
                $p[] = $ary[$j];
        $out[] = $p;
    }
    return $out;
}