Заметка из ABAPEDIA.

zelboccd delracd aceldr cnadarpas nolidelou getlitroc raccnaborelr

ZABAVY_2006_SELDECR

Given character sequence in enciphered table dataset search program.

Character string from 20 up to 40 ASCII-chars length (excluding lowercase letters, see C_SENT_CHARS) is inserted on selection screen. Transparent table ZABAPEDIA_SELDEC with key field ID contains about 2 millions of lines.

The program should determine all entries coordinates of Caesar-ciphered string in the table field SEQUENCE and place results into internal table GT_RESULTS. Table key GT_RESULTS-ID and first string char offset within GT_RESULTS-POS are chosen to be coordinates. Ciphered string could be disposed both in single line of the table and in two adjacent lines (starting at the end of one line and ending at the beginning of the next according to the key ID); furthermore first and last 5 chars of the looked for string are unbroken. The fact that ciphered string contains only uppercase letters simplifies the problem, but some fraud strings in test data set are intended to embarrass the task.

Caesar cipher is cyclic code which shifts in alphabet every latin letter by fixed amount (Ceasar code), i.e. with code equals 3 letter A becomes D and Z becomes C.

Coded strings found in test dataset should be filtered according to a special rule. This rule will be published at March 10.

Solutions value will be stated according to next criteria:

• number of 1st type errors (wrong strings found) and number of 2nd type errors (right positions

lost);

• running time;
• algorithm elegancy and style of coding (in case of code comments and algorithm description, i.e.

flow block or wordy written).

Possibility of simplified test datasets uploading is under consideration. It is intended to simplify elaboration and testing of your programs.

Starting at March 10 you can send preliminary versions of your programs which will be tested and some hint for your will be given, in particular:

• is there any activation and compilation errors;
• number of 1sd and second type errors.

 
report ZABAVY_2006_SELDECR_000 .
 
* -- standard part (don't change)
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 .
 
* -- write your code below
 
form build .
 
endform .
 

tables: ZABAPEDIA_SELDEC .
 
constants: C_MIN       type i value 32
  , C_MAX              type i value 126          " minimal and maximal chars of dataset correspondingly
  , C_CHARSET_LENGTH   type int2 value 95        " length of dataset
  , C_SENT_MIN         type i value 65           " minimal letter in search string
  , C_SENT_MAX         type i value 90           " maximal letter in search string
  , C_SENT_CHARS(27)   value ' ABCDEFGHIJKLMNOPQRSTUVWXYZ' " chars available in search string
  .
 
data: gt_results type sorted table of ZABAPEDIA_SELDEC with unique key table_line with header line
  , g_starttime type f  " time stamp at start
  , g_endtime type f    " time stamp at finish
  , 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 .
* start, time stamp
  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 .
* end, time stamp
  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: / 'Search done, work duration =', dt .
*  perform external_procedure tables gt_rezults[] using g_repid dt  .
endform .
 

Standard output and answers

Value of g_charset

After start of the stated above template program g_charset gets value [ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~] (color emphasized, first char - space), see screen shot.

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

--[[Участник:Sibrin|Sibrin]] 09:45, 06 March 2006 (MSK) English translation

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