PR
キーワードサーチ
▼キーワード検索
カレンダー
コメント新着
2018.09.06
カテゴリ： アルゴリズム
前回
から日がたったんですが、忘れていたわけではありません。
で、まずはコードから。
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."$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[ $_ ]="1"
$bitary -join ""
}
} elseif ( $R -gt ( $N - $R ) ){
$bits=NCR $N ( $N - $R )|reverse
$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]...てな具合。
で、まずはコードから。
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."$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[ $_ ]="1"
$bitary -join ""
}
} elseif ( $R -gt ( $N - $R ) ){
$bits=NCR $N ( $N - $R )|reverse
$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]...てな具合。
お気に入りの記事を「いいね！」で応援しよう
[アルゴリズム] カテゴリの最新記事
-
組み合わせの生成１ 2018.08.18
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
