set $string set $message :Шел по озеру в седьмом году. set %base [ 1 3 ] 0 /////////////////////////////////////// set %simbols [1] : set %simbols [2] О set %simbols [3] в set %simbols [4] г set %simbols [5] д set %simbols [6] ж set %simbols [7] з set %simbols [8] е set %simbols [9] к set %simbols [10] л set %simbols [11] м set %simbols [12] н set %simbols [13] ё set %simbols [14] п set %simbols [15] р set %simbols [16] с set %simbols [17] т set %simbols [18] и set %simbols [19] ш set %simbols [20] щ set %simbols [21] ы set %simbols [22] ц set %simbols [23] у set %simbols [24] ф set %simbols [25] ч set %simbols [26] я set %simbols [27] й set %simbols [28] э set %simbols [29] х set %simbols [30] ъ set %simbols [31] ь set %simbols [32] о set %simbols [33] а set %simbols [34] . set %simbols [35] ,
set %simbols [35] 0 set %simbols [35] 1 set %simbols [35] 2 set %simbols [35] 3 set %simbols [35] 4 set %simbols [35] 5 set %simbols [35] 6 set %simbols [35] 7 set %simbols [35] 8 set %simbols [35] 9
while 1 call proc_scan
for #i 1 3 1 set $s %base [ #i 1 ] set $l %base [ #i 2 ] set $num %base [#i 3 ] msg $s $l $num end_for end_while /////////////////////////////////////////////////// proc proc_scan set #n 1 set $len 1 set #num 0 set $string set %base [ #n ] for #i 1 33 1 set $char %simbols.1 [ #i ] set $str $string$char set $lst $string $char if $message.1 <= $str set $string $string$char set #num #num + #i set %base.1 [ #n 1 ] %base.1 [ #n 1 ]$char
set %base.1 [ #n 3 ] #num set #len #len + 1 set %base.1 [#n 2 ] #len set #i 1 else if $message.1 <= $lst set #n #n + 1 set $string $string $char set %base.1 [ #n 1 ] %base.1 [ #n 1 ] $char set #len 1 set #i 1 end_if end_if if $message.1 = $string set $string.1 $string break end_if end_for end_proc
say #summ set #exit #summ * #summ for #i 1 #exit 1 say #i end_for
скрипт ставим в пилот под номером 1
|