satocchiaブログ

組み合わせの生成2

​前回​から日がたったんですが、忘れていたわけではありません。で、まずはコードから。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 311100110101100110011101011011000111010110110101110どこが組み合わせだって？　ビットの立っている桁を見ればOK。上の例だと順に[5,4,3,],[5,4,2],[5,4,1]...てな具合。