穴掘り法迷路(ループ処理)

ループ処理穴掘り法迷路。再起処理は簡潔にコードを書けるが、スタックを消費するため物理的にな限界が存在する。(＊クレスト調べで100×100がギリギリで200×200は無理だった)しかし、ループ処理にするとスタックではなく、繰り返し可能限界まで繰り返せるため、実際に大きい迷路を作れる(こちらもクレスト調べで、200×200は余裕で1500×1500までなら多少時間が掛かるが生成する事が出来た)

文法命令一覧

エディタ

プログラム

#なでしこ #迷路 #ループ処理
Wall = []
Vertical_row = 149
Horizontal_row = 149
smaller = Horizontal_row
もしVertical_row < Horizontal_rowなら:
    smaller = Vertical_row
Width=(描画中キャンバス["width"])/smaller
Direction=[[0,1],[1,0],[0,-1],[-1,0]]

main__壁初期化
main__迷路作成(1,1)
main__壁描画

●壁初期化とは:
    もしVertical_row%2=0ならば:
    　　Vertical_row=Vertical_row+1
    もしHorizontal_row%2=0ならば:
    　　Horizontal_row=Horizontal_row+1
    Wall=[]
    row=[]
    Vertical_row回:
    　　rowに1を配列追加
    iを0からHorizontal_row-1まで繰り返す:
    　　Wall[i]=rowを配列複製

●壁描画とは:
    全描画クリア
    iを0からHorizontal_row-1まで繰り返す:
        jを0からVertical_row-1まで繰り返す:
            もしWall[i][j]=1なら:
            　　[i*Width,j*Width,Width,Width]に四角描画

●(px,py)迷路範囲内とは:
    もしpx<0||px>=Horizontal_row||py<0||py>=Vertical_rowならば:
    　　falseを戻す
    trueを戻す

●(x,y)迷路作成とは:
    px = x
    py = y
    digList = [[px,py]]
    flag = 1
    (flag < 2)間:
        
        (flag == 1)間:
            Wall[px][py] = 0
            way = 配列複製(Direction)
            配列シャッフル(way)
            
            iを0から(要素数(way)-1)まで繰り返す:
                定数 dx = way[i][0]
                定数 dy = way[i][1]
                wx = px+dx+dx
                wy = py+dy+dy
                
                もし迷路範囲内(wx,wy) && Wall[wx][wy] == 1なら:
                    Wall[wx-dx][wy-dy]=0
                    px = wx
                    py = wy
                    配列追加(digList,[wx,wy])
                    抜ける
                
                もしi == (要素数(way)-1)なら:
                    flag = 0
        
        (flag == 0)間:
            
            もし要素数(digList) > 0なら:
                count = 0
                index = 乱数((要素数(digList))-1)
                
                iを0から(要素数(Direction)-1)まで繰り返す:
                    
                    定数 sx = 2 * Direction[i][0] + digList[index][0]
                    定数 sy = 2 * Direction[i][1] + digList[index][1]
                    
                    もし迷路範囲内(sx,sy) && Wall[sx][sy] == 1なら:
                        count = count + 1
                    
                もしcount == 0なら:
                    配列削除(digList,index)
                違えば:
                    px = digList[index][0]
                    py = digList[index][1]
                    flag = 1
            違えば:
                flag = 2

実行結果

保存

プログラムを保存

表示ページ

直前に実行または一時保存した内容を復元

実行環境

なでしこバージョン

素材

画像・音声・データ

ログインすると素材をアップロードできます。

🍯 プログラム貯蔵庫

プログラム

プログラムを保存

なでしこバージョン

画像・音声・データ