99yen #5293(2008/01/13 09:51 GMT) [ なでしこ ] Rating0/0=0.00
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
!変数宣言が必要 #幅/高さ Xとは整数=1024 Yとは整数=1024 迷路とは配列 Iとは整数 Jとは整数 ワクとは文字列 結果とは文字列 X=X*2-1 Y=Y*2-1 #奇数のマスに置く Iで0からX-1まで繰り返す Jで0からY-1まで繰り返す もし(I%2=1&&J%2=1)ならば 迷路[J,I]="■" 違えば 迷路[J,I]=" " #一番左の列について Iで0からY-1まで繰り返す もし(I%2=1)ならば 壁生成(迷路,I,1,4) #そのほかの列について もし(X>3)ならば Iで3からX-1まで繰り返す Jで0からY-1まで繰り返す もし(I%2=1&&J%2=1)ならば 壁生成(迷路,J,I,3) #整形して表示 ワク="■"をX+2だけリフレイン 結果=ワク&改行 (TOSTR(迷路)の","を""に置換)を反復 結果=結果&"■"&対象&"■{~}" 結果=結果&ワク 結果を表示 ●壁生成(MAP,X,Y,RND) Mとは整数 Nとは整数 乱数初期化 乱数(RND)で条件分岐 0ならば,M=X-1;N=Y #上 1ならば,M=X;N=Y+1 #右 2ならば,M=X+1;N=Y #下 3ならば,M=X;N=Y-1 #左 もし(MAP[M,N]<>"■")ならば MAP[M,N]="■" 違えば 壁生成(MAP,X,Y,RND)
Rating0/0=0.00-0+
[ reply ]
99yen
#5293()
[
なでしこ
]
Rating0/0=0.00
6分57秒でした。表示に30秒くらいかかってる気がします。
(CPU:Athlon X2 3600+ [1.9GHz*2] RAM:2GB)
!変数宣言が必要 #幅/高さ Xとは整数=1024 Yとは整数=1024 迷路とは配列 Iとは整数 Jとは整数 ワクとは文字列 結果とは文字列 X=X*2-1 Y=Y*2-1 #奇数のマスに置く Iで0からX-1まで繰り返す Jで0からY-1まで繰り返す もし(I%2=1&&J%2=1)ならば 迷路[J,I]="■" 違えば 迷路[J,I]=" " #一番左の列について Iで0からY-1まで繰り返す もし(I%2=1)ならば 壁生成(迷路,I,1,4) #そのほかの列について もし(X>3)ならば Iで3からX-1まで繰り返す Jで0からY-1まで繰り返す もし(I%2=1&&J%2=1)ならば 壁生成(迷路,J,I,3) #整形して表示 ワク="■"をX+2だけリフレイン 結果=ワク&改行 (TOSTR(迷路)の","を""に置換)を反復 結果=結果&"■"&対象&"■{~}" 結果=結果&ワク 結果を表示 ●壁生成(MAP,X,Y,RND) Mとは整数 Nとは整数 乱数初期化 乱数(RND)で条件分岐 0ならば,M=X-1;N=Y #上 1ならば,M=X;N=Y+1 #右 2ならば,M=X+1;N=Y #下 3ならば,M=X;N=Y-1 #左 もし(MAP[M,N]<>"■")ならば MAP[M,N]="■" 違えば 壁生成(MAP,X,Y,RND)Rating0/0=0.00-0+
[ reply ]