string txt_1[3]={"y","bb","rr"}
string txt_2[7]={"y","b","y","r","bb","y","r"}
int result[3]; // сюда запишется результат

// вызов функции
if(capcha(#txt_1[0], #txt_2[0], sizearray(txt_2), #result[0]))messagebox(format(result[0])+" "+format(result[1])+" "+format(result[2]));
else messagebox("Решение не найдено");



function capcha(string #s, string #s2, int size_s2, int #output)
{
new string tmp_arr[size_s2+1]; // временные массивы
new string tmp_arr2[size_s2+1];
for(int i=0; i<size_s2-1; i++) // поиск первого элемента
{
if(s[0] == s2[i])
{
copy_array(#s2[0], #tmp_arr[0], size_s2); // скопировать данные во временный массив
delete_array(#tmp_arr[0], size_s2, i); // удалить из него найденный элемент
merger(#tmp_arr[0], size_s2); // объединить соседние строки
for(int j=0; j<size_s2-1; j++) // поиск второго элемента
{
if(s[1] == tmp_arr[j])
{
copy_array(#tmp_arr[0], #tmp_arr2[0], size_s2);
delete_array(#tmp_arr2[0], size_s2, j);
merger(#tmp_arr2[0], size_s2);
for(int k=0; k<size_s2-1; k++) // поиск третьего элемента
{
if(s[2] == tmp_arr2[k])
{
output[0]=i; output[1]=j; output[2]=k; // записать результат
delete tmp_arr; delete tmp_arr2; return 1; // возвращаем 1, ответ найден
}
}
}
}
}
}
delete tmp_arr; delete tmp_arr2; return 0; // возвращаем 0, ответ не найден
}



function copy_array(string #s, string #s2, int size_s2)
{
for(int i=0; i<size_s2; i++)s2[i]=s[i];
}

function delete_array(string #s, int size_array, int pos)
{
for(int i=pos; i<size_array-1; i++)s[i]=s[i+1]; s[i]="";
}

function merger(string #s, int size_array)
{
string temp;
char c[4];
for(int i=0; i<size_array-1; i++)
{
strcpy(#c[0], s[i]);
if (regexsearch(1, #temp, s[i+1], format(#c[0], 1)))
{
if (size(s[i+1]) == 3)return;
if (size(s[i]) == 3){temp=s[i]; s[i]=s[i+1]; s[i+1]=temp; return;}
if (size(s[i]) == 2 && size(s[i+1]) == 2){s[i]=temp; s[i+1]=temp+temp+temp; return;}
int size_=size(s[i])+size(s[i+1]); s[i]="";
for(int j=0; j<size_; j++)s[i]=s[i]+temp;
delete_array(#s[0], size_array, i+1);
return;
}
}
}