0 Members and 2 Guests are viewing this topic.
Prompt H,W,M0→ADelVar [A]{H,W}→dim([A])Repeat A=M-1randInt(1,W)→XrandInt(1,H)→IIf [A](I,X)≠9ThenFor(Y,I-(I>1),I+(I<H)For(Z,X-(X>1),X+(X<W)If [A](Y,Z)=9 or IX=YZ \\I've tried all three Boolean Operations.Then9→[A](Y,Z)Else[A](Y,Z)+1→[A](Y,Z)EndEndEndA+1→AEndEnd