HLA程序修改需求：实现任意两输入值相同时返回true

算力阿峰

2026-7-20

修改后的HLA程序（任意两输入值相同则返回true）

核心修改说明

原程序仅在三个值完全相同时返回true，现在调整hasDuplicates过程的比较逻辑，只要x与y相等、x与z相等或y与z相等任意一个条件满足，就返回1；否则返回0。

修改后的完整代码

program Same;
#include("stdlib.hhf");

procedure hasDuplicates(x: int16; y: int16; z: int16); @nodisplay; @noframe;  
begin hasDuplicates;
    pop(EDX);          // 保存返回地址到EDX
    pop(z);
    pop(y);
    pop(x);
    push(EDX);         // 把返回地址重新压栈

    // 检查x和y是否相等
    mov(x, BX);
    cmp(y, BX);
    je ReturnOne;      // 相等则跳转到返回1的逻辑

    // 检查x和z是否相等
    mov(x, BX);
    cmp(z, BX);
    je ReturnOne;      // 相等则跳转到返回1的逻辑

    // 检查y和z是否相等
    mov(y, BX);
    cmp(z, BX);
    je ReturnOne;      // 相等则跳转到返回1的逻辑

    // 所有数值对都不相等，返回0
    mov(0, AL);
    jmp ExitSequence;

ReturnOne:
    mov(1, AL);

ExitSequence:
    ret();
end hasDuplicates;

begin Same;
  
    stdout.put("输入X: ");
    stdin.geti16();
    push(AX);
    stdout.put("输入Y: ");
    stdin.geti16();
    push(AX);
    stdout.put("输入Z: ");
    stdin.geti16();
    push(AX);
    call hasDuplicates;
    cmp(AL, 1);
    jne NumbersAreDifferent;
    stdout.put("存在重复值. AL = 1");
    jmp EndProgram;
NumbersAreDifferent:
    stdout.put("无重复值. AL = 0");
EndProgram:
end Same;