Solve triangle solitaire puzzle: Difference between revisions
→{{header|EasyLang}}
Line 375:
solution$ = ""
#
if brd$[pos] = "●" and brd$[pos + dir] = "●" and brd$[pos + 2 * dir] = "·"▼
brd$[pos] = "·"▼
brd$[pos + dir] = "·"▼
brd$[pos + 2 * dir] = "●"▼
func solve . solved .
for pos range len brd$[]
if brd$[pos] = "●"
npegs += 1▼
for dir in [ -13 -11 2 13 11 -2 ]
▲ brd$[pos + dir] = "·"
▲ brd$[pos + 2 * dir] = "●"
call solve solved
if solved = 1
break 2
Line 400 ⟶ 393:
.
.
▲ npegs += 1
.
.
|