Паскаль, задача на подстроки: по заданному числу поиск контактов в записной книжке

[Lizoveta]

Добрый вечер, помогите, пожалуйста, с задачей! Послезавтра олимпиада, а у меня не получаются такого рода задачи :С
Если не сложно, нужен код, чтобы разобраться с тем, как это все проще реализовывать на Паскале. Очень на это надеюсь!
Своя программа, конечно, есть, но она никак не поможет, т.к. она не дописана: у меня получилось слишком много циклов в цикле и все...дальше совсем все стало туманно.
Заранее спасибо за любую помощь

[BDA]

При первом взгляде показалось, что придется создавать все комбинации и искать их во всех контактах, но потом появилась одна идейка:
Считываете все контакты
Считываете строку-запрос
Преобразовываете каждый контакт в набор соответствующих цифр (можно подумать, как это делать наиболее эффективно; например, сделать строку с нужными цифрами и брать i-ю цифру из нее s[ord(b[i]) - 60], где s - строка с цифрами, b - строка с контактом)
Затем простым pos('запрос', 'контакт в виде цифр') > 0 определяем, нужно ли вывести соответствующий контакт или нет

PS Надеюсь не ошибся в алгоритме (что вполне вероятно в ночное время).

[Serge_Bliznykov]

Сообщение от BDA

При первом взгляде показалось, что придется создавать все комбинации и искать их во всех контактах, но потом появилась одна идейка:

Супер! Я бы тоже полез перебирать варианты (ибо в условии невольно или специально, но именно на это и намекают).
Но ваш вариант намного проще и эффективнее!
Браво!

[Poma][a]

Как вариант :
Загоняем всё в список(для простоты реализации это будет одномерный массив с 2-мя полями : строка и указатель)
Берем первую цифирку, и бежим по списку, попутно удаляя указатели на элементы, которые нам не нужны (if a[j].s[i] не уд усл then).. и всё.. теперь о быстродействии.. О(n*100)..
Красота..

Тогда можно сделать константу побольше, но уменьшить время написания кода.. загнать всё в массив, где опять же 2 поля : строка и булевская переменная, которая говорит, нужно ли смотреть\выводить данную строку..

[Lizoveta]

Спасибо всем Большое