Assembler задача

[N320X]

Определить минимальное количество первых букв, по которым можно
различать слова из заданного набора ( слова разделяются запятыми).

[macomics]

Уточните. Если слова и так различаются запятыми, тогда причем тут первые буквы?

Подозреваю, что вам нужно создать set of Char для букв и во всех словах получить первую букву, занося их в set. После посчитать количество установленных бит в set.

[evg_m]

арбуз, дыня, яблоко // для идентификации достаточно одной буквы (а..., д..., я... )
овца, конь, корова // потребуется три буквы (..., кон..., кор... )

var list: TStringList;

result:=0;
list.text:='...';
for j:=1 to minlen do begin
  find:=false;
  for jj:=0 to list.count-1 do begin
    r:=copy(list.string[jj], 1, j);
    for jjj:=jj+1 to list.count-1 do begin
      find:=find or ( copy(list.string[jjj], 1, j) =r );
    end;
    if find then break;
  end;
  if not find then result:=j;
  if result>0 then break;
end;

var x: TStringList;

for j:=1 to minlen do begin
  x.clear;
  find:=false;
  for jj:=0 to list.count-1 do begin
   r:=copy(list.string[jj], 1, j);
   find:=find or ( x.indexof(r)>=0  );
   if not find then x.add(r) else break;
  end;
  if not find then result:=j; 
  if result>0 then break;
end;

[macomics]

evg_m, точно. Сонным уже слова не читались.

words db 'абракадабра,арбуз,абрикос,апрель,апельсин,апрельский',0
...
    mov rbp, rsp
    lea rdi, [words]
    or ecx, -1
    xor eax, eax
    push rdi
    repne scas byte [rdi]
    lea rcx, [rdi - 1]
    pop rdi
    mov al, ','
    sub rcx, rdi

@@:
    push rdi
    repne scas byte [rdi]
    jz @b
    mov r9, rsp
    push -8
    xor edx, edx
    pop r14
    push rdi

cycl:
    lea rax, [r14 - 8]

@@:
    cmp rax, r9
    jg @f
    mov rsi, [rbp + rax]
    mov rdi, [rbp + r14]
    mov r15, [rbp + r14 - 8]
    mov rcx, [rbp + rax - 8]
    sub r15, rdi
    sub rcx, rsi
    sub r15, 1
    sub rcx, 1
    cmp rcx, r15
    cmovg rcx, r15
    repe cmps byte [rsi], [rdi]
    jz @f
    sub rsi, 1
    sub rsi, [rbp + rax]
    sub rax, 8
    cmp rdx, rsi
    cmovl rdx, rsi
    jmp @b

@@:
    sub r14, 8
    cmp r14, r9
    jl cycl
    mov rsp, rbp
    mov rax, rdx

Ответ в rax. Чуть более топорно, но должно работать правильно. Хотя подозреваю, что есть опечатки. FASM v. 1.73.30 LONG 64-bit