如何将此 Java 代码转换为 Rexx 以生成与 Luhn 兼容的信用卡？

Question

       public string GenerateCardTokenOptimised()
        {
            int[] checkArray = new int[15];
            
            var cardNum = new int[16];
 
            for (int d = 14; d >= 0; d--)
            {
                cardNum[d] = _random.Next(0, 9);
                checkArray[d] = ( cardNum[d] * (((d+1)%2)+1)) % 9;
            }
 
            cardNum[15] = ( checkArray.Sum() * 9 ) % 10;
 
            var sb = new StringBuilder(); 
 
            for (int d = 0; d < 16; d++)
            {
                sb.Append(cardNum[d].ToString());
            } 
            return sb.ToString();
        }

Rexx 似乎没有其他语言中常用的数组，所以我该如何实现呢

Answer 1

Rexx 有 stem 变量。 Stem 变量是 关联数组，类似于 Java 中的 Map，用于代替数组。

你可以的

    do i = 1 to 10
       myArray.i = i
    end

您也可以在词干变量中使用字符串作为键

    color = 'green'
    say "Color value: " colorLookup.color

您还可以检查是否找到了东西

   false = 0
   true = 1

   found. = false /* initialize stem to false (0) */

   do i = 1 to 10
      square = i * i
      found.square = true
   end

   do i = 1 to 100
      if found.i = true then do
         say i "is a square"
      end
   end