satocchiaブログ

​前回​から日がたったんですが、忘れていたわけではありません。
で、まずはコードから。

---

function NCR( [int]$N, [int]$R ){
    filter reverse{
        $_ -replace "0", "z" -replace "1", "0" -replace "z", "1"
    }
    function register( $N, $R, $Bits ){
        if ( !$Global:NCR ){
            $Global:NCR=@{}
        }
        $Global:NCR."$N,$R"=$bits
    }
    if ( ( $N -lt 1 ) -or ( $R -lt 0 ) -or ( $N -lt $R ) ){
        return
    } elseif ( $Global:NCR."$N,$R" ){
        return $Global:NCR."$N,$R"
    } elseif ( $R -eq 0 ){
        $bits=@("0"*$N)
    } elseif ( $R -eq 1 ){
        $bits=0..($N-1)|%{
            $bitary=@("0")*$N
            $bitary[ $_ ]="1"
            $bitary -join ""
        }
    } elseif ( $R -gt ( $N - $R ) ){
        $bits=NCR $N ( $N - $R )|reverse
    } else {
        $bits=@()
        NCR ( $N - 1 ) $R|%{
            $bits+=, "0$_"
        }
        NCR ( $N - 1 ) ( $R - 1 )|%{
            $bits+=, "1$_"
        }
    }
    $bits|write-output
    register $N $R $bits
}

---

ま、このあとに、NCR　13　８みたいなかんじで打ち込めば、組み合わせが出てくるんですよね。
NCR　5　3　だとこんな感じ
PS C:\Users\＊＊＊＊\Desktop> NCR 5 3
11100
11010
11001
10011
10101
10110
00111
01011
01101
01110
どこが組み合わせだって？　ビットの立っている桁を見ればOK。
上の例だと順に
[5,4,3,],[5,4,2],[5,4,1]...てな具合。