Excel Maniacs

一太郎マクロ･･･マス目に単語をランダムに並べる(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 次回は重なりを判定して単語を書き込む処理を考えることにする。

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

前回、１２×１２のマスに12文字の単語をランダムに並べる場合、

水平・垂直方向には４８通りの並べ方があるのに対し、斜め方向には

たったの4通りしか並べ方がないということを指摘した。もちろん、それでも

構わないというのならば、前回の方針を変える必要はない。しかし、ここでは

もう少し、斜め方向に単語が並ぶ可能性を増やすために少しばかり

コードを弄ってみることにした。それが下記のコードである。

Randomize(ThisTime())
%Dir = Int(Rand() * 12)+1　!!8方向

Select Case %Dir
　　　　　Case 1
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 2 To 3
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 4
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 5 To 6
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 7 !!
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 8 To 9
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 10
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 11 To 12
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
End Select

　さて次回は実際に単語を配置する記述です。

この辺りはちょっと面倒かもしれませんが、けっこう面白いところだと思います。

(●`ε´●)：適当なところを単語配置の始点にすると単語が

　　　　　　　マス目からはみ出しちゃうし・・・

【´･ω･`】：面倒なのはそれだけじゃないよ・・・でも、どうやってやれば良いかを

　　　　　　考えるのが楽しいんだよね。

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

　プログラム的には山場がやってきたようだ。単語配置は右から左、

左から右、上から下、下から上、右下から左上、左上から右下、

左下から右上、右上から左下の８方向にランダムに配置する。

　そのためには大雑把に言うと１～８までの乱数を生成し、

Select Case文で処理を分岐すればよいだろう。以下が大雑把では

そのコードだ。

!!変数%Dirにより単語の配置方向をランダムに変化させる

Randomize(ThisTime())
%Dir = Int(Rand() * 8)+1　!!8方向

Select Case %Dir
　　　　　Case 1
　　　　　　　　　　!!下から上方向に単語を配置する処理を記述
　　　　　Case 2
　　　　　　　　　　!!左下から右上方向に単語を配置する処理を記述
　　　　　Case 3
　　　　　　　　　　!!左から右方向に単語を配置する処理を記述
　　　　　Case 4
　　　　　　　　　　!!左上から右下方向に単語を配置する処理を記述
　　　　　Case 5
　　　　　　　　　　!!上から下方向に単語を配置する処理を記述
　　　　　Case 6
　　　　　　　　　　!!右上から左下方向に単語を配置する処理を記述
　　　　　Case 7
　　　　　　　　　　!!右から左方向に単語を配置する処理を記述
　　　　　Case 8
　　　　　　　　　　!!右下から左上方向に単語を配置する処理を記述
End Select

　単純にいえば単語の配置方向をランダムに変化させることについては

これでいいのだが、上記のコードでは単語が斜めに配置される確率が、

水平・垂直に配置される確率に比べて極端に小さくなってしまう。

　例えばFrankenstein(12文字）という単語をを１２×１２のマス目に配置する場合。

水平方向
　　　右から左：12通り
　　　左から右：12通り

垂直方向
　　　上から下：12通り
　　　下から上：12通り

なのに対して

斜め方向
　　　右上から左下：1通り
　　　右下から左上：1通り
　　　左上から右下：1通り
　　　左下から右上：1通り

ということで48通り対４通りになってしまう。垂直方向、水平方向が48通り

なのに対して斜め方向ではたったの4通りしかないのだ。

次回はこの辺りを改善したい。