一太郎マクロ･･･マス目に単語をランダムに並べる(3)

単語をマス目の中に書き込んでいくために、まずマス目を表す変数を用意する。それが下だ。

declare variable $MyCell(1 To 12, 1 To 12)

「12×12のマスにランダムにアルファベットを表示する・・・」のときは直接、一太郎ファイル上のマス目に書き込んだのだが、今回はメモリ上にマス目$MyCellを作ってそこに書き込むことにする。「12×12のマスにランダムにアルファベットを表示する・・・」のときはランダムにアルファベットを書き込むだけだったが、今回はそれだけでは済まない。いろいろ、チェックしなければならないことがあるのだ。一太郎上のマス目に書き込んだり、消去したりを繰り返すのは時間がかかって効率が悪い。場合によっては書き込んだり消したりを見えるようにすると、いかにもコンピュータが単語の配置を考えているようで面白いので、メモリ上で操作しないでその作業をユーザに見せることもするのだが、どうもくまぷーの許容範囲を超えるほど一太郎マクロは遅いようだ。 　それはきっと変数が基本的にはグローバルとローカルの2種類しかない、プログラマはプログラム作成時に変数の型を全く考える必要がない、という一太郎マクロの仕様によるものだろう。他の言語ではプログラマが負担している部分をマクロ言語が負担しているのだから遅いのも仕方がないのかもしれない。

さてそれでは実際にコードを考えてみよう。単語をマス目の中に書き込んでいくために、まず乱数で始点を決める。これは下のように座標を決めてやればよいだろう。 Randomize(ThisTime()) %X = Int(Rand() * 12) + 1 %Y = Int(Rand() * 12) + 1 しかし、これだけだけでは十分ではない。単語はマス目からはみ出さないように配置しなければならない。単語配置時にはまず、その判定をしなければならない。 さらにもう一つ面倒なことがある。何も考えずに配置してしまうと後に配置する単語が、その前に配置されていた単語を上書きしてしまうということだ。例えばkumapoohという単語がすでに配置されていて、その後にbebechanという単語を書き込むとする。bebechanがkumapoohに重なるとkumapoohの一部、またはぜんぶbebechanという単語が上書きしてしまう。こういう事態をさけて単語を配置しなければならない。 まずははみ出しの判定から。はみ出しの判定は８通りあるのだが、ほとんど同じになる。下は単語を左下から右上に配置するコードだ。 %TopWall = 1 %BottomWall = 12 %LeftWall = 1 %RightWall = 12 If %Y - %Length + 1 >= %TopWall Then　　!!%Lengthは単語の長さ 　　　　　If %X + %Length - 1 <= %RightWall Then 　　　　　　　　　　　!!ここで重なりを判定して、 　　　　　　　　　　　!!単語を左下から右上に配置する処理 　　　　　End If End If 次回は重なりを判定して単語を書き込む処理を考えることにする。