Solve triangle solitaire puzzle: Difference between revisions
m
→{{header|Yabasic}}
Line 3,287:
// by Galileo, 04/2022
dim moves$(1)
m$ = "-11,-9,2,11,9,-2"▼
sub solve$(board$, left, m$)▼
if left = 1 return ""
Line 3,301:
if tgt >= 1 and tgt <= len(board$) and mid$(board$, tgt, 1) = "0" and mid$(board$, over, 1) = "1" then
mid$(board$, i, 1) = "0" : mid$(board$, over, 1) = "0" : mid$(board$, tgt, 1) = "1"
res$ = solve$(board$, left - 1
if len(res$) != 4 return board$+res$
mid$(board$, i, 1) = "1" : mid$(board$, over, 1) = "1" : mid$(board$, tgt, 1) = "0"
Line 3,312:
start$ = "\n\n 0 \n 1 1 \n 1 1 1 \n 1 1 1 1 \n1 1 1 1 1"
print start$, solve$(start$, 14
{{out}}
<pre>
|