ロビンソン・シェンステッド・クヌース対応

ソース

プログラム

定数　サイズ＝7
定数　ヤング図形＝[[],[],[],[],[],[],[]]
ペア1＝ヤング図形を配列複製
ペア2＝ヤング図形を配列複製
バンプ過程=0

置換上＝「generalized permutationの1行目を入力（空なら1~n）」と尋ねて空で区切る
置換下＝「generalized permutationの2行目を入力」と尋ねて空で区切る

もし、置換上＝空ならば、
    （置換下の要素数）回
        置換上[回数-1]=回数
    ここまで
ここまで

もし、（置換上の要素数）！＝（置換下の要素数）ならば、
    「generalized permutationの上下の文字数が合いません」を表示して終わる
ここまで

置換下を置換数字で反復
    「置換の数字：｛置換数字｝」を表示
    ペア1＝ペア1を0の置換数字でバンプ
ここまで

「generalized permutation｛改行｝｛置換上｝｛改行｝｛置換下｝｛改行｝」を表示
「ペア1」を表示
ペア1を反復表示
「ペア2」を表示
ペア2を反復表示

●(AをLのKで)バンプとは
    フラグ=0
    何列目=0
    iMAX=0
    もし、K=サイズならば、
        iMax=1
    違えば、
        iMax=サイズ-K
    ここまで
    iを1からiMaxまで繰り返す
        A[L]をバンプ先で反復
            もし、バンプ先＝K+iならば、
                // バンプ数字を表示
                何列目=対象キー
                A[L][何列目]=K
                「｛バンプ先｝をバンプ」と表示
                Aを反復表示
                Aを(L+1)のバンプ先でバンプ
                フラグ＝1
                抜ける
            ここまで
            もしフラグ=1ならば抜ける
        ここまで
    ここまで
    もし、フラグ=0ならば、
        「行：｛L｝」を表示
        何列目=A[L]の要素数
        A[L][何列目]=K
        ペア2[L][何列目]=置換上[バンプ過程]
        バンプ過程を1増やす
    ここまで
    
    Aを反復表示
    Aで戻る
ここまで

●(Aを)反復表示とは
    Aを反復：
        もし対象!=空ならば:
            対象を表示
    空を表示
ここまで

作品について

作品情報

作品を編集

ユメミノウツツ作

ライセンス: CC0（著作権破棄）
形式: wnako
タグ: -
利用バージョン: 3.6.37
アクセス数(累計): 20
アクセス数(今月): 11
更新日時: 2024/12/18 12:14 編集: 2024/12/18 12:29

作品公開情報

交流

ロビンソン・シェンステッド・クヌース対応

プログラム

作品情報

コメント