Solve triangle solitaire puzzle: Difference between revisions

Content added Content deleted

Inline

@@ Line 373: / Line 373: @@
 ┗━━━━━━━━━┛
 "
-solution$ = ""
 #
-func solve . solved .
+func solve . solution$ .
+  solution$ = ""
   for pos range len brd$[]
     if brd$[pos] = "●"
@@ Line 384: / Line 384: @@
           brd$[pos + dir] = "·"
           brd$[pos + 2 * dir] = "●"
-          call solve solved
+          call solve solution$
           brd$[pos] = "●"
           brd$[pos + dir] = "●"
           brd$[pos + 2 * dir] = "·"
-          if solved = 1
+          if solution$ <> ""
             break 2
           .
@@ Line 395: / Line 395: @@
     .
   .
-  if solved = 1 or npegs = 1
+  if npegs = 1 or solution$ <> ""
     solution$ = str_join brd$[] & solution$
-    solved = 1
   .
 .
-call solve h
+call solve solution$
 print solution$
 </lang>