RWIを使って迷路を描画してみます。
(※ SAS9.4以降で動作します)
迷路作成の初期値を設定
%let n = 37;
%let init = 1234; |
n ・・・ 迷路のマスの数。（必ず奇数を設定する事）
init ・・・ 迷路の壁と床を決めるために生成する乱数のシード値
初期値を変えるたびに異なる迷路を作ることが出来ます。
迷路の壁と床を乱数で決める
data DT1;
*** 全マス目分の配列を定義 ; array AR(&n, &n) ; *** 最初から壁にする部分を2に設定 ; do y=1 to &n; do x=1 to &n; if x in (1,&n) or y in (1,&n) or mod(x*y,2)=1 then AR(x,y)=2; else AR(x,y)=1; end; end; *** 乱数を生成して壁の位置を決める ; *** 壁の位置 1:上、2:下、3:右、4:左 ; call streaminit(&init); do y=3 to &n-2 by 2; do x=3 to &n-2 by 2; *** 1段目は上下左右の壁の乱数を生成 ; if y=3 then do; * 左のマスが壁だったら上下右のみの壁の乱数を生成 ; if AR(x-1,y)=2 then RAND = ceil(rand('uniform')*3); else RAND = ceil(rand('uniform')*4); end; *** 2段目以降は下左右の壁の乱数を生成 ; if y^=3 then do; * 左のマスが壁だったら下右のみの壁の乱数を生成 ; if AR(x-1,y)=2 then RAND = ceil(rand('uniform')*2)+1; else RAND = ceil(rand('uniform')*3)+1; end; if RAND=1 then AR(x,y-1)=2; * 上 ; if RAND=2 then AR(x,y+1)=2; * 下 ; if RAND=3 then AR(x+1,y)=2; * 右 ; if RAND=4 then AR(x-1,y)=2; * 左 ; end; end; run; |
RWIで迷路描画
data _NULL_; length VAR1 $5.; set DT1; array AR(&n, &n); dcl odsout ob(); ob.table_start(); do y=1 to &n; ob.row_start(); do x=1 to &n; *** 壁と床を描画 ; VAR1=""; if (x=2 and y=2) or (x=&n-1 and y=&n-1) then VAR1="☆"; ob.format_cell(data:VAR1, style_attr: "background=" || choosec(AR(x,y),"white","black") || " height=0.4cm width=0.4cm"); end; ob.row_end(); end; ob.table_end(); run; |
