1 reply to this topic

[Jay Bergé]

Hello! I made a Minesweeper program for my calculator, and I am looking to see if I can make my board generating code more efficient.

 

I generate the boards using two matrices: one to place the mines and the other to generate the numbered tiles. To make the calculations a bit easier, I extend the matrices by bookending one row and column (making the matrices 9x20 instead of the gameboard size 7x18) and not displaying the outer cells. Used to think this would be efficient, but this board size takes about six seconds to generate. Adding ten rows and columns seems to increase the time threefold. I do not like that. Below is the code I am using, with only the elements used for making the board included.

 

ClrMat A
ClrMat B
{9,20} -> Dim Mat A
{9,20} -> Dim Mat B

0 -> N
While N<25                              /// Arbitrary amount of mines, I just like the number 25
 

RanInt#(2,8) -> G
RanInt#(2,19) -> K
If Mat A[G,K]=0 And G+K≠4
Then
1 -> Mat A[G,K]
N+1 -> N
IfEnd

WhileEnd


For 2 -> G To 8
For 2 -> K To 19

If Mat A[G,K]=1
Then 10 -> Mat B[G,K]                    /// A value of 10 indicates a mine
Else Mat A[G-1,K-1]+Mat A[G-1,K]+Mat A[G-1,K+1]+Mat A[G,K-1]+Mat A[G,K+1]+Mat A[G+1,K-1]+Mat A[G+1,K]+Mat A[G+1,K+1] -> Mat B[G,K]   /// Adding the number of mines in the surrounding cells; I hate how this looks
IfEnd

Next
Next


Mat B

My apologies in advance if I made any mistakes posting this.

Edited by Jay Bergé, Yesterday, 11:41 PM.

[Jay Bergé]

Meant to add this: the added condition that G+K cannot equal 4 when placing mines is just to guarantee that the top-left tile is safe. Good Minesweeper editions tend to leave the first click safe, and this was my attempt at doing that