可能的組合？

Question

在Perl中，如何測試數字中的所有可能組合。例如，我感興趣的組合是分離的組合。

例如：53可能是 「5 3」 或只是 「53」 如：215可能是 「21 5」 或 「2 15」

Answer 1

事實上，你正在分發空格之間的所有位置個字符。在每個位置上，空間或者是爲每個組合實現或不實現。因此，您可以將其表示爲二進制數，1表示空間存在，0表示空間不存在。

#!/usr/bin/perl 

use warnings; 
use strict; 

my $num = shift; 
my @digits = split //, $num; 
my $length = length($num) - 1; 

if ($length == 0) { 
    print "$num\n"; 
    exit; 
} 

for my $i (0 .. 2 ** $length - 1) { 
    my $mask = sprintf "%0${length}b", $i; 
    my @replace_arr = split //, $mask; 
    my $idx = 0; 
    for (@replace_arr, '') { 
     print $digits[$idx]; 
     print ' ' if $_; 
     $idx++; 
    } 
    print "\n"; 
}