Solve triangle solitaire puzzle: Difference between revisions

funcproc solve . solution$ .

solution$ = ""

for pos = 1 to len brd$[]

if brd$[pos] = "●"

npegs += 1

for dir in [ -13 -11 2 13 11 -2 ]

if brd$[pos + dir] = "●" and brd$[pos + 2 * dir] = "·"

brd$[pos] = "·"

brd$[pos + dir] = "·"

brd$[pos + 2 * dir] = "●"

call solve solution$

brd$[pos] = "●"

brd$[pos + dir] = "●"

brd$[pos + 2 * dir] = "·"

if solution$ <> ""

solution$ = strjoin brd$[] & solution$

break 3

.

.

.