; клетки записываются сверху вниз и слева направо
str := "1000000000000001010100000101000000010000111001000000000000000100001100000100000100010010000001001000"
Letters := "abcdefghij"
Area := {} ; именованый массив для всего поля, ключи будут называться по буквам
Loop 10 ; в каждом буквенном ключе будет массив со значениями клеток
Area[Substr(Letters, A_Index, 1)] := []
Loop, Parse, str ; заполняем
Area[Substr(Letters, (A_Index - 1)//10 + 1, 1)][Mod(A_Index - 1, 10) + 1] := A_LoopField
Ships := [] ; массив для кораблей
Loop 10 ; делаем в массиве 10 подмассивов, в каждом будут идентификаторы (вида "h10") клеток одного из кораблей
Ships[A_Index] := []
i := 1
for Letter,Array in Area ; заполняем массив кораблей, анализируя массив клеток
for Number,Value in Array
if Value
{
IsPrev := ""
for k,v in Ships
for n,s in v
if ((SubStr(s, 1, 1) = Chr(Asc(Letter)-1) && SubStr(s, 2) = Number)
|| (SubStr(s, 1, 1) = Letter && SubStr(s, 2) = Number - 1))
{
v.Insert(Letter . Number), IsPrev := 1
break 2
}
if !IsPrev
Ships[i++].Insert(Letter . Number)
}
for k,v in Ships ; смотрим, что получилось
{
for m,n in v
List .= (A_Index = 1 ? "" : ", ") . n
List .= "`n"
}
MsgBox, % "Корабли:`n`n" List
