Заметка из ABAPEDIA.

eltliace racsitric cchich

ZABAVY_2006_SELDECR

Программа поиска заданной последовательности в шифрованном табличном наборе.

На экране выбора пользователь вводит символьную строку длиной от 20 до 40 символов, состоящую из заглавных ASCII-символов и пробелов (см. C_SENT_CHARS). В прозрачной таблице ZABAPEDIA_SELDEC содержится порядка 2х миллионов записей, строки таблицы упорядочены по ключу ID.

/*Необходимо найти все вхождения введённой строки (только большие буквы латинского алфавита и пробелы) в текстовом поле таблицы, причём строка может начинаться на одной записи а заканчиваться на другой произвольной (переноситься), при этом переносится не менее 5 символов. */

Программа должна определить координаты всех регистронезависимых вхождений зашифрованной кодом Цезаря строки, найденных в текстовом поле SEQUENCE таблицы, и заполнить внутреннюю таблицу GT_RESULTS. Координатами является ключ таблицы GT_RESULTS-ID и смещение первого символа подстроки относительно начала текстового поля таблицы GT_RESULTS-POS. Зашифрованная строка может быть расположена как в одной строке таблицы, так и разбита между строками (начинаться в конце одной строки, а оканчиваться в начале следующей по ключу ID); при этом первые и последние 5 символов искомой строки не разрываются.

Код Цезаря — циклический код, в котором каждая исходная буква латинского алфавита сдвинута на определённое число символов (но не превращается в пробел или иной символ, сдвиг только внутри C_SENT_CHARS+1(26)). Так, при сдвиге 3 буква A переходит в D, а Z — в C.

В тестовой таблице есть как нужные цели (с искомым сдвигом), так и отвлекающие приманки (разные другие сдвиги). Критерий определения, какой сдвиг правилен, будет опубликован 2 апреля, пока у вас есть время для написания пробного варианта который по фразе будет находить все её вхождения с любым сдвигом.

Критерии оценки:

• минимум ошибок 1 рода (найдены неверные позиции) и минимум 2 рода (не найдены верные);
• минимум затраченного времени;
• изящность и красота алгоритма (только если вы сопроводите работу комментариями и пояснениями, например блок-схемой или иным способом).

Вопрос о том, надо ли выкладывать тестовые (упрощённые) сгенерированные выборки для тренировки ваших программ пока обсуждается и что-то, наверное, будет выложено, чтобы вы могли сделать формальный тест и убедиться, что программа работает.

Также, начиная с 10 марта вы можете отправлять мне предв. исходники с тем, чтобы я прогнал их на задаче и сообщил некоторые ответы, а именно:

1. были или нет ошибки генерации/активации;
2. число ошибок 1 рода и число ошибок 2 рода (когда будет опубликован критерий проверки, какой сдвиг правилен).

 
report ZABAVY_2006_SELDECR_000 .
 
* -- стандартная часть (не изменять)
include: ZABAVY_2006_SELDECR_data
  , ZABAVY_2006_SELDECR_sscr
  , ZABAVY_2006_SELDECR_form
  .
 
start-of-selection .
  perform check_sentence .
  perform initialization .
  perform build .
 
end-of-selection .
  perform end .
 
* -- отсюда идёт место для вашего кода
 
form build .
 
endform .
 

tables: ZABAPEDIA_SELDEC .
 
constants: C_MIN       type i value 32
  , C_MAX              type i value 126          " минимальный и максимальный символы соответственно
  , C_CHARSET_LENGTH   type int2 value 95        " длина алфавита
  , C_SENT_MIN         type i value 65           " минимальный код символа (не пробела) во фразе
  , C_SENT_MAX         type i value 90           " максимальный код символа (не пробела) во фразе
  , C_SENT_CHARS(27)   value ' ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
  .
 
types: begin of ts_results
    , id     type ZABAPEDIA_SELDEC-id
    , offset type i
  , end of ts_results
  .
 
data: gt_results type sorted table of ts_results with unique key id offset with header line
  , g_starttime type f  " время перед запуском
  , g_endtime type f    " время после выполнения
  , g_charset(C_CHARSET_LENGTH)
  .
 
*
 

parameters: sentence(40) obligatory .
 

 
form check_sentence .
  data: sentence_length type i .
  sentence_length = strlen( sentence ) .
  if not ( sentence_length >= 20 and sentence co C_SENT_CHARS ) .
    message e005(zabapedia) .
  endif .
endform .
 
form initialization .
* начало, замеряем время
  clear: gt_results[], g_charset .
  data: i type i, x type x, xs type xstring, rs type string .
  do C_CHARSET_LENGTH times .
    i = sy-index - 1 .
    x = sy-index + C_MIN - 1 .
    xs = x .
    CALL FUNCTION 'NLS_STRING_CONVERT_TO_SYS'
      EXPORTING
        LANG_USED                   = sy-langu
        SOURCE                      = xs
      IMPORTING
        RESULT                      = rs
    .
    g_charset+i(1) = rs .
  enddo .
 
  write: / g_charset .
  get run time field g_starttime .
endform .
 
form end .
* конец, замеряем время
  get run time field g_endtime .
  data: g_repid type sy-repid .
  g_repid = sy-repid .
 
  data: dt type i .
  dt = g_endtime - g_starttime .
  write: / 'Работа окончена, время работы=', dt .
*  perform external_procedure tables gt_rezults[] using g_repid dt  .
endform .
 

Пример запуска и ответы на вопросы

Содержимое g_charset

После запуска приведённой выше программы в g_charset попадает строка [ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~] (выделено цветом, первый символ -- пробел), см. рисунок -- должно сходиться.

Изображение:ZABAVY_2006_SELDECR_000_zapusk.png

Категория:Zабавы-2006