1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
#!/bin/bash
# fifteen.sh
# Classic "Fifteen Puzzle"
# Author: Antonio Macchi
# Lightly edited and commented by ABS Guide author.
# Used in ABS Guide with permission. (Thanks!)
# The invention of the Fifteen Puzzle is attributed to either
#+ Sam Loyd or Noyes Palmer Chapman.
# The puzzle was wildly popular in the late 19th-century.
# Object: Rearrange the numbers so they read in order,
#+ from 1 - 15: ________________
# | 1 2 3 4 |
# | 5 6 7 8 |
# | 9 10 11 12 |
# | 13 14 15 |
# ----------------
#######################
# Constants #
SQUARES=16 #
FAIL=70 #
E_PREMATURE_EXIT=80 #
#######################
########
# Data #
########
Puzzle=( 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 " " )
#############
# Functions #
#############
function swap
{
local tmp
tmp=${Puzzle[$1]}
Puzzle[$1]=${Puzzle[$2]}
Puzzle[$2]=$tmp
}
function Jumble
{ # Scramble the pieces at beginning of round.
local i pos1 pos2
for i in {1..100}
do
pos1=$(( $RANDOM % $SQUARES))
pos2=$(( $RANDOM % $SQUARES ))
swap $pos1 $pos2
done
}
function PrintPuzzle
{
local i1 i2 puzpos
puzpos=0
clear
echo "Enter quit to exit."; echo # Better that than Ctl-C.
echo ",----.----.----.----." # Top border.
for i1 in {1..4}
do
for i2 in {1..4}
do
printf "| %2s " "${Puzzle[$puzpos]}"
(( puzpos++ ))
done
echo "|" # Right-side border.
test $i1 = 4 || echo "+----+----+----+----+"
done
echo "'----'----'----'----'" # Bottom border.
}
function GetNum
{ # Test for valid input.
local puznum garbage
while true
do
echo "Moves: $moves" # Also counts invalid moves.
read -p "Number to move: " puznum garbage
if [ "$puznum" = "quit" ]; then echo; exit $E_PREMATURE_EXIT; fi
test -z "$puznum" -o -n "${puznum//[0-9]/}" && continue
test $puznum -gt 0 -a $puznum -lt $SQUARES && break
done
return $puznum
}
function GetPosFromNum
{ # $1 = puzzle-number
local puzpos
for puzpos in {0..15}
do
test "${Puzzle[$puzpos]}" = "$1" && break
done
return $puzpos
}
function Move
{ # $1=Puzzle-pos
test $1 -gt 3 && test "${Puzzle[$(( $1 - 4 ))]}" = " "\
&& swap $1 $(( $1 - 4 )) && return 0
test $(( $1%4 )) -ne 3 && test "${Puzzle[$(( $1 + 1 ))]}" = " "\
&& swap $1 $(( $1 + 1 )) && return 0
test $1 -lt 12 && test "${Puzzle[$(( $1 + 4 ))]}" = " "\
&& swap $1 $(( $1 + 4 )) && return 0
test $(( $1%4 )) -ne 0 && test "${Puzzle[$(( $1 - 1 ))]}" = " " &&\
swap $1 $(( $1 - 1 )) && return 0
return 1
}
function Solved
{
local pos
for pos in {0..14}
do
test "${Puzzle[$pos]}" = $(( $pos + 1 )) || return $FAIL
# Check whether number in each square = square number.
done
return 0 # Successful solution.
}
################### MAIN () #######################{
moves=0
Jumble
while true # Loop continuously until puzzle solved.
do
echo; echo
PrintPuzzle
echo
while true
do
GetNum
puznum=$?
GetPosFromNum $puznum
puzpos=$?
((moves++))
Move $puzpos && break
done
Solved && break
done
echo;echo
PrintPuzzle
echo; echo "BRAVO!"; echo
exit 0
###################################################}
# Exercise:
# --------
# Rewrite the script to display the letters A - O,
#+ rather than the numbers 1 - 15.
|
