我应该改变什么才能获得积极的结果？

Question

这是XOR-Shift算法的Delphi代码，是return个正负值：

procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
  y : UInt64;
 begin
   y:= 2463534242;
   for i := 1 to 1000 do
    begin
       y := y xor (y shl 13);
       y :=(y shr 17);
       y := y xor (y shl 5);
       ListBox1.Items.Add(IntToStr(y));
    end;
  end;

我应该改变什么才能获得积极的结果？

Answer 1

使用 UintToStr 而不是 IntToStr，例如：

ListBox1.Items.Add(UintToStr(y));

我应该改变什么才能获得积极的结果？

What I should change to get only positive results?

algorithm

numbers