迷路にょろにょろ 📖

迷路の出来る様子や探索の様子を鑑賞するやつ。あるいは「秒待つ」をお試し。「秒待つ」が便利すぎる～（≧▽≦）　探索の様子が見れるようになったので、幅優先探索を追加。／アドベントカレンダー2022用に壁伸ばし法を追加。これであってる？？

プログラム: (→大)
＃迷路を自動生成したり解いたり鑑賞したりする 変数 迷路表示速度＝0。 ＃自動生成 ＃＃クラスタリング法 ●(サイズの)クラスタリング法迷路作成とは: 変数 [道,壁]＝[0,1]。 変数 [迷路幅,迷路高]＝サイズ。 変数 迷路＝空配列。 変数 壁データ＝空配列。 変数 部屋番号＝空配列。 # 最初に全てを壁にする。 行を0から(迷路高-1)まで繰り返す。: 迷路[行]＝空配列 列を0から(迷路幅-1)まで繰り返す。: 迷路[行][列]＝壁。 変数 部屋数x＝迷路幅/2を整数変換。 変数 部屋数y＝迷路高/2を整数変換。 行を0から(部屋数y-1)まで繰り返す。: 列を0から(部屋数x-1)まで繰り返す。: # 部屋を作る 迷路[行*2+1][列*2+1]＝道。 # 壊す壁のデータを作る もし、行＝部屋数y-1でなければ、: 壁データに[行,列,行+1,列]を配列追加。# 部屋行,列とその下隣との間の壁。 もし、列＝部屋数x-1でなければ、: 壁データに[行,列,行,列+1]を配列追加。# 部屋行,列とその右隣との間の壁。 迷路を迷路表示鑑賞。 # 部屋に通し番号を付ける 部屋番号＝0から(部屋数x*部屋数y)までの配列連番作成。 # ランダムに壁を壊していく 壁データを配列シャッフル。 壁データを反復。: 変数 [Y1,X1,Y2,X2]＝対象。 変数 部屋番1＝部屋番号[Y1＋X1*部屋数y]。 変数 部屋番2＝部屋番号[Y2＋X2*部屋数y]。 もし、部屋番1＝部屋番2ならば、続ける。# 部屋番号が同じなら壊さない。 もし、X1＝X2ならば、: 迷路[Y1*2+2][X1*2+1]＝道。# 同じ列なら下の壁を壊す。 迷路を迷路表示鑑賞。 違えば、: 迷路[Y1*2+1][X1*2+2]＝道。# 同じ行なら右の壁を壊す。 迷路を迷路表示鑑賞。 # 部屋繋げる(クラスタリング) 変数 [統合先,統合元]＝[部屋番1,部屋番2]。 もし、部屋番1＞部屋番2ならば、: 統合先＝部屋番2。統合元＝部屋番1。 # 部屋番号が大きい方(統合元)を小さい方(統合先)の番号に全て変更する。 部屋番号の要素数回: もし、部屋番号[回数-1]＝統合元ならば、部屋番号[回数-1]＝統合先。 迷路で戻る。 ＃＃棒倒し法 ●(サイズの)棒倒し法迷路作成とは: 変数 [道,壁]＝[0,1]。 変数 [迷路幅,迷路高]＝サイズ。 変数 迷路＝空配列。 # 外周を壁、それ以外を道とする。 行を0から(迷路高-1)まで繰り返す。: 迷路[行]＝空配列。 列を0から(迷路幅-1)まで繰り返す。: # 最初に全部を道にする。 迷路[行][列]＝道。 # それから外周を壁にする。 もし、(列＝0)または(行＝0)または(列＝迷路幅-1)または(行＝迷路高-1)ならば、: 迷路[行][列]＝壁。 # まず柱を立てる（壁にする） 行を2から(迷路高-3)まで繰り返す。: 列を2から(迷路幅-3)まで繰り返す。: もし(列%2=1)または(行%2=1)ならば続ける。 迷路[行][列]＝壁。 迷路を迷路表示鑑賞。 # 棒を倒して壁にする 行を2から(迷路高-3)まで繰り返す。: 列を2から(迷路幅-3)まで繰り返す。: もし(列%2=1)または(行%2=1)ならば続ける。 # 上下左右のいずれかに向かって棒を倒す（壁にする）。 上下左右＝[[0,-1],[0,1],[-1,0],[1,0]]。 # ただし2段目以降は上には倒さない。 もし、行>2ならば、上下左右の０を配列削除。 方向＝上下左右を配列シャッフル。 方向の要素数回: ｘ,ｙ＝方向[回数-1]。 # 既に壁がある方向へは倒さない もし、迷路[行+ｙ][列+ｘ]＝壁でなければ、: 迷路[行+ｙ][列+ｘ]＝壁。 迷路を迷路表示鑑賞。 抜ける。 迷路で戻る。 ＃＃穴掘り法 ●(サイズの)穴掘り法迷路作成とは: 変数 [道,壁]＝[0,1]。 変数 [迷路幅,迷路高]＝サイズ。 変数 迷路＝空配列。 # 最初に全部を壁にする。 行を0から(迷路高-1)まで繰り返す。: 迷路[行]＝空配列。 列を0から(迷路幅-1)まで繰り返す。: 迷路[行][列]＝壁。 # 左上を起点として穴掘りをはじめる 迷路[1][1]＝道。# 起点をまず掘る。 迷路を迷路表示鑑賞。 [1,1]から迷路の迷路掘削処理。 ●(起点から迷路の)迷路掘削処理とは: 変数 [道,壁]＝[0,1]。 変数 [列,行]＝起点。# 起点は[x,y]の配列。 変数 [迷路幅,迷路高さ]＝[迷路[0]の要素数,迷路の要素数]。 変数 上下左右＝[[0,-1],[0,1],[-1,0],[1,0]] 変数 方向＝上下左右の配列シャッフル。 方向を反復: RX,RY＝対象。 X1＝RX+列。Y1＝RY+行。 X2＝RX*2＋列。Y2＝RY*2+行。 # 2マス先を調べて壁でなければ中止 もし、(X2≦0)または(X2≧迷路幅-1)ならば続ける。# 迷路の外 もし、(Y2≦0)または(Y2≧迷路高-1)ならば続ける。 もし、迷路[Y2][X2]=道ならば続ける。 # 穴を掘る 迷路[Y1][X1]＝道。迷路を迷路表示鑑賞。 迷路[Y2][X2]＝道。迷路を迷路表示鑑賞。 # 再帰的に掘削する もし、迷路表示速度＝0でなければ、0秒待つ。 [X2,Y2]から迷路の迷路掘削処理。 迷路で戻る。 ＃＃壁伸ばし法 ●(サイズの)壁伸ばし法迷路作成とは: 変数 [道,壁]＝[0,1]。 変数 [迷路幅,迷路高]＝サイズ。 変数 迷路＝空配列。 変数 壁建設開始候補地＝空配列。 # 外周を壁、それ以外を道とする。 行を0から(迷路高-1)まで繰り返す。: 迷路[行]＝空配列。 列を0から(迷路幅-1)まで繰り返す。: # 外周を壁にする。 もし、(列＝0)または(行＝0)または(列＝迷路幅-1)または(行＝迷路高-1)ならば、: 迷路[行][列]＝壁。 # 残りを全部を道にする。 違えば、: 迷路[行][列]＝道。 # 行も列もともに偶数なら壁建設開始候補地として記録する もし(列%2=0)かつ(行%2=0)ならば、壁建設開始候補地に[列,行]を配列追加。 ((壁建設開始候補地の要素数)＞０)の間: 壁建設開始候補地を配列シャッフル。 変数 [列,行]＝壁建設開始候補地[0]。 壁建設開始候補地から０を配列削除。 もし、迷路[行][列]＝道ならば、[列,行]から迷路に壁建設処理。 迷路で戻る。 ●(起点から迷路に)壁建設処理とは: 変数 [道,壁,建設中]＝[0,1,9]。 変数 [列,行]＝起点。# 起点は[x,y]の配列。 変数 [迷路幅,迷路高さ]＝[迷路[0]の要素数,迷路の要素数]。 変数 上下左右＝[[0,-1],[0,1],[-1,0],[1,0]] 変数 方向＝上下左右の配列シャッフル。 方向を反復: もし、迷路[行][列]＝道でなければ、戻る。 変数 [RX,RY]＝対象。 変数 [X1,Y1]＝[RX+列,RY+行]。 変数 [X2,Y2]＝[RX*2＋列,RY*2+行]。 迷路[Y2][X2]で条件分岐: 建設中ならば、: 続ける。 道ならば、: 迷路[行][列]＝建設中。 迷路[Y1][X1]＝建設中。迷路を迷路表示鑑賞。 # 再帰的に建設する もし、迷路表示速度＝0でなければ、0秒待つ。 [X2,Y2]から迷路に壁建設処理。 壁ならば、: 迷路[行][列]＝建設中。 迷路[Y1][X1]＝建設中。迷路を迷路表示鑑賞。 行を0から(迷路高-1)まで繰り返す。: 列を0から(迷路幅-1)まで繰り返す。: もし、迷路[行][列]＝建設中ならば、迷路[行][列]＝壁。 迷路を迷路表示鑑賞。 行を0から(迷路高-1)まで繰り返す。: 列を0から(迷路幅-1)まで繰り返す。: もし、迷路[行][列]＝建設中ならば、迷路[行][列]＝道。 迷路を迷路表示鑑賞。 ＃探索 変数 調査済み迷路＝空配列。 ●(現地点から出口まで迷路の)迷路深さ優先探索とは: 調査済み迷路＝迷路を配列複製。 変数 [今ｘ,今ｙ]＝現地点。 変数 [終ｘ,終ｙ]＝出口。 変数 仮迷路＝迷路を配列複製。 変数 [道,壁,調査済み]＝[0,1,9]。# 地形の定義。 変数 上下左右＝[[0,-1],[0,1],[-1,0],[1,0]]。 上下左右を反復: ｘ,ｙ＝対象。 次ｘ,次ｙ＝[今ｘ＋ｘ,今ｙ＋ｙ]。 もし、(次ｘ＝終ｘ)かつ(次ｙ＝終ｙ)ならば、: 仮迷路[今ｙ][今ｘ]＝調査済。仮迷路を迷路表示鑑賞。 仮迷路[次ｙ][次ｘ]＝調査済。仮迷路を迷路表示鑑賞。 調査済み迷路＝仮迷路を配列複製。 抜ける。 もし、調査済み迷路[終ｙ][終ｘ]＝調査済みならば、抜ける。 もし、仮迷路[次ｙ][次ｘ]＝壁ならば、続ける。 もし、仮迷路[次ｙ][次ｘ]＞0ならば、続ける。 仮迷路[今ｙ][今ｘ]＝調査済。 仮迷路を迷路表示鑑賞。 # 再帰で探索 もし、迷路表示速度＝0でなければ、0秒待つ。 [次ｘ,次ｙ]から出口まで仮迷路の迷路深さ優先探索。 調査済み迷路で戻る。 ●(入口から出口まで迷路の)迷路幅優先探索とは: 調査済み迷路＝迷路を配列複製。 変数 [終ｘ,終ｙ]＝出口。 変数 [道,壁,調査中]＝[0,1,8]。# 地形の定義。 変数 上下左右＝[[0,-1],[0,1],[-1,0],[1,0]]。 変数 仮迷路＝迷路を配列複製。 変数 調査中迷路＝迷路を配列複製。 変数 迷路調査リスト＝空配列。 迷路調査リストに入口を配列追加。 ((迷路調査リストの配列要素数)＞０)の間: 今ｘ,今ｙ＝迷路調査リスト[0]。 仮迷路[今ｙ][今ｘ]＝調査中。 迷路調査リストの0を配列削除。 上下左右を反復: ｘ,ｙ＝対象。 次ｘ,次ｙ＝[今ｘ＋ｘ,今ｙ＋ｙ]。 もし、(次ｘ＝終ｘ)かつ(次ｙ＝終ｙ)ならば、: # 観賞用 仮迷路[今ｙ][今ｘ]＝調査中。仮迷路を迷路表示鑑賞。 仮迷路[次ｙ][次ｘ]＝調査中。仮迷路を迷路表示鑑賞。 もし、迷路表示速度＝0でなければ、1秒待つ。# 正解ルート表示まで一瞬間を開ける。 調査中迷路[次ｙ][次ｘ]＝[今ｘ,今ｙ]。 調査中迷路の入口から出口まで最短ルート反映。 それで戻る。 もし、仮迷路[次ｙ][次ｘ]＝道でなければ、続ける。 迷路調査リストに[次ｘ,次ｙ]を配列追加。 調査中迷路[次ｙ][次ｘ]＝[今ｘ,今ｙ] 仮迷路を迷路表示鑑賞。 ●(調査中迷路の入口から出口まで)最短ルート反映: 始ｘ,始ｙ＝入口。 今ｘ,今ｙ＝出口。 永遠の間: 前ｘ,前ｙ＝調査中迷路[今ｙ,今ｘ]。 調査済み迷路[今ｙ,今ｘ]＝9。 もし、(今ｘ＝始ｘ)かつ(今ｙ＝始ｙ)ならば、抜ける。 今ｘ,今ｙ＝[前ｘ,前ｙ]。 調査済み迷路で戻る。 ＃表示 ●(迷路を道幅で|道幅の)迷路表示とは: 変数 [道,壁,解]＝[0,1,9]。# 地形の定義。 変数 [迷路幅,迷路高さ]＝[迷路[0]の要素数,迷路の要素数]。 もし、道幅＝空ならば、道幅＝8。 描画中キャンバスの「width」に迷路幅*道幅をDOM属性設定。 描画中キャンバスの「height」に迷路高さ*道幅をDOM属性設定。 行を0から(迷路高-1)まで繰り返す: 列を0から(迷路幅-1)まで繰り返す: 地形＝迷路[行][列]。 空に線色設定。 地形で条件分岐: 道ならば、白色に塗り色設定。。。 壁ならば、茶色に塗り色設定。。。 解ならば、赤色に塗り色設定。。。 違えば、黄色に塗り色設定。。。 ｘ＝列*道幅。ｙ＝行*道幅。 [ｘ,ｙ,道幅,道幅]に四角描画。 ●(迷路を道幅で)迷路表示鑑賞とは: もし、迷路表示速度＝０でなければ、: もし、道幅＝空ならば、道幅＝8。 迷路を道幅で迷路表示。(迷路表示速度)秒待つ。 ＃以下はテスト もし、プラグイン名が「メイン」ならば、 変数 初期x＝43。初期y＝33。 変数 マス幅＝8。 迷路＝[初期x,初期y]のクラスタリング法迷路作成。 迷路をマス幅で迷路表示。 迷路表示速度＝0.01。 迷路種別ラベル＝「クラスタリング法」のラベル作成。 改行作成。改行作成。 「迷路サイズ：」のラベル作成。 ｘエディタ＝初期xのエディタ作成。 ｘエディタの「幅」に「32px」をDOMスタイル設定。 ｘエディタの「行揃え」に「右」をDOMスタイル設定。 「×」のラベル作成。 ｙエディタ＝初期yのエディタ作成。 ｙエディタの「幅」に「32px」をDOMスタイル設定。 ｙエディタの「行揃え」に「右」をDOMスタイル設定。 「(5以上の奇数)」のラベル作成。 改行作成。 「迷路の生成：」のラベル作成。 棒倒しボタン＝「棒倒し法」のボタン作成。 穴掘りボタン＝「穴掘り法」のボタン作成。 壁伸ばしボタン＝「壁伸ばし法」のボタン作成。 クラスタリングボタン＝「クラスタリング法」のボタン作成。 改行作成。 「ルート探索：」のラベル作成。 深優先探索ボタン＝「深さ優先探索」のボタン作成。 幅優先探索ボタン＝「幅優先探索」のボタン作成。 「｜」のラベル作成。 戻すボタン＝「ルート消去」のボタン作成。 改行作成。 「表示の速度：」のラベル作成。 迷路表示速度設定バー＝[0,20,迷路表示速度*100]の値指定バー作成。 改行作成。 「迷路を保存：」のラベル作成。 コピーボタン＝「テキストコピー」のボタン作成。 保存ボタン＝「画像保存」のボタン作成。 棒倒しボタンをクリックした時には、: 迷路種別ラベルに「棒倒し法」をテキスト設定。 ｘ＝ｘエディタのテキスト取得。 ｙ＝ｙエディタのテキスト取得。 迷路＝[ｘ,ｙ]の棒倒し法迷路作成。 迷路をマス幅で迷路表示。 穴掘りボタンをクリックした時には、: 迷路種別ラベルに「穴掘り法」をテキスト設定。 ｘ＝ｘエディタのテキスト取得。 ｙ＝ｙエディタのテキスト取得。 迷路＝[ｘ,ｙ]の穴掘り法迷路作成。 迷路をマス幅で迷路表示。 壁伸ばしボタンをクリックした時には、: 迷路種別ラベルに「壁伸ばし法」をテキスト設定。 ｘ＝ｘエディタのテキスト取得。 ｙ＝ｙエディタのテキスト取得。 迷路＝[ｘ,ｙ]の壁伸ばし法迷路作成。 迷路をマス幅で迷路表示。 クラスタリングボタンをクリックした時には、: 迷路種別ラベルに「クラスタリング法」をテキスト設定。 ｘ＝ｘエディタのテキスト取得。 ｙ＝ｙエディタのテキスト取得。 迷路＝[ｘ,ｙ]のクラスタリング法迷路作成。 迷路をマス幅で迷路表示。 迷路表示速度設定バーの「change」がDOMイベント発火した時には、: 迷路表示速度＝(迷路表示速度設定バーのテキスト取得)/100。 深優先探索ボタンをクリックした時には、: 調査済み迷路＝迷路を配列複製。 変数 [迷路幅,迷路高さ]＝[迷路[0]の要素数,迷路の要素数]。 変数 [入口,出口]＝[[1,1],[迷路幅-2,迷路高-2]]。 入口から出口まで迷路の迷路深さ優先探索。 それをマス幅で迷路表示。 幅優先探索ボタンをクリックした時には、: 調査済み迷路＝迷路を配列複製。 変数 [迷路幅,迷路高さ]＝[迷路[0]の要素数,迷路の要素数]。 変数 [入口,出口]＝[[1,1],[迷路幅-2,迷路高-2]]。 入口から出口まで迷路の迷路幅優先探索。 それをマス幅で迷路表示。 戻すボタンをクリックした時には、: 迷路をマス幅で迷路表示。 コピーボタンをクリックした時には、: CSV＝迷路を配列複製。 CSVを表CSV変換して、クリップボード設定。 「クリップボードにコピーしました」を言う。 保存ボタンをクリックした時には、: 描画ダウンロード。 スタイル＝「style」のDOM部品作成。 CSS=「.nako3_div {波カッコ} font-size:1em; line-height:1.1em; {波カッコ閉じ} .nako3_div > button {波カッコ} font-size:0.9em; margin:4px; padding:4px; {波カッコ閉じ}」 スタイルにCSSをHTML設定。 ここまで。