Solve triangle solitaire puzzle: Difference between revisions
Added Kotlin
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: don't cache. it helps more in theory than it does in practice) |
(Added Kotlin) |
||
Line 548:
exit 0
ubuntu$
</pre>
=={{header|Kotlin}}==
{{trans|Python}}
<lang scala>// version 1.1.3
data class Solution(val peg: Int, val over: Int, val land: Int)
var board = BooleanArray(16) { if (it == 0) false else true }
val jumpMoves = listOf(
listOf(),
listOf( 2 to 4, 3 to 6),
listOf( 4 to 7, 5 to 9),
listOf( 5 to 8, 6 to 10),
listOf( 2 to 1, 5 to 6, 7 to 11, 8 to 13),
listOf( 8 to 12, 9 to 14),
listOf( 3 to 1, 5 to 4, 9 to 13, 10 to 15),
listOf( 4 to 2, 8 to 9),
listOf( 5 to 3, 9 to 10),
listOf( 5 to 2, 8 to 7),
listOf( 9 to 8),
listOf(12 to 13),
listOf( 8 to 5, 13 to 14),
listOf( 8 to 4, 9 to 6, 12 to 11, 14 to 15),
listOf( 9 to 5, 13 to 12),
listOf(10 to 6, 14 to 13)
)
val solutions = mutableListOf<Solution>()
fun drawBoard() {
val pegs = CharArray(16) { '-' }
for (i in 1..15) if (board[i]) pegs[i] = "%X".format(i)[0]
println(" %c".format(pegs[1]))
println(" %c %c".format(pegs[2], pegs[3]))
println(" %c %c %c".format(pegs[4], pegs[5], pegs[6]))
println(" %c %c %c %c".format(pegs[7], pegs[8], pegs[9], pegs[10]))
println(" %c %c %c %c %c".format(pegs[11], pegs[12], pegs[13], pegs[14], pegs[15]))
}
val solved get() = board.count { it } == 1 // just one peg left
fun solve() {
if (solved) return
for (peg in 1..15) {
if (board[peg]) {
for ((over, land) in jumpMoves[peg]) {
if (board[over] && !board[land]) {
val saveBoard = board.copyOf()
board[peg] = false
board[over] = false
board[land] = true
solutions.add(Solution(peg, over, land))
solve()
if (solved) return // otherwise back-track
board = saveBoard
solutions.removeAt(solutions.lastIndex)
}
}
}
}
}
fun main(args: Array<String>) {
val emptyStart = 1
board[emptyStart] = false
solve()
board = BooleanArray(16) { if (it == 0) false else true }
board[emptyStart] = false
drawBoard()
println("Starting with peg %X removed\n".format(emptyStart))
for ((peg, over, land) in solutions) {
board[peg] = false
board[over] = false
board[land] = true
drawBoard()
println("Peg %X jumped over %X to land on %X\n".format(peg, over, land))
}
}</lang>
{{out}}
<pre>
-
2 3
4 5 6
7 8 9 A
B C D E F
Starting with peg 1 removed
1
- 3
- 5 6
7 8 9 A
B C D E F
Peg 4 jumped over 2 to land on 1
1
- 3
4 - -
7 8 9 A
B C D E F
Peg 6 jumped over 5 to land on 4
-
- -
4 - 6
7 8 9 A
B C D E F
Peg 1 jumped over 3 to land on 6
-
2 -
- - 6
- 8 9 A
B C D E F
Peg 7 jumped over 4 to land on 2
-
2 -
- 5 6
- - 9 A
B - D E F
Peg C jumped over 8 to land on 5
-
2 -
- 5 6
- - 9 A
B C - - F
Peg E jumped over D to land on C
-
2 -
- 5 -
- - - A
B C D - F
Peg 6 jumped over 9 to land on D
-
- -
- - -
- - 9 A
B C D - F
Peg 2 jumped over 5 to land on 9
-
- -
- - -
- - 9 A
B - - E F
Peg C jumped over D to land on E
-
- -
- - 6
- - 9 -
B - - E -
Peg F jumped over A to land on 6
-
- -
- - -
- - - -
B - D E -
Peg 6 jumped over 9 to land on D
-
- -
- - -
- - - -
B C - - -
Peg E jumped over D to land on C
-
- -
- - -
- - - -
- - D - -
Peg B jumped over C to land on D
</pre>
| |||