DouKaku?beta

Comment detail

「組合せ型の最小完全ハッシュ関数」の逆関数 (Nested Flatten)

This comment is reply for 1669 sumim: テーブル（パスカルの三角形）を用意せず、...(「組合せ型の最小完全ハッシュ関数」の逆関数). Go to thread root.

shiro さん、tell さんのを読んで、上のは少々冗長だと遅まきながら気づきました(^_^;)。 
1
2
3
4
5
6
7
8
9
| val n r pat c |
n := 5.  r := 2.  val := 8.
pat := Array new: n withAll: 0.
1 to: n do: [:idx |
    val >= (c := n - idx take: r) ifTrue: [
        pat at: idx put: 1.
        r := r - 1.
        val := val - c]].
^pat   "=> #(1 0 1 0 0) "

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]