Excel VBA, 59 46 байт
Golfed
Anonymous VBE Функция непосредственного окна, которая принимает строку массива с разделителем- пробелом в качестве входных данных из диапазона [A1]и выводит модуль чисел с их индексом на основе 1 в начальном списке в непосредственное окно VBE
For Each n In Split([A1]):i=i+1:?n Mod i;:Next
Ввод, вывод:
[A1]="10 9 8 7 6 5 4 3 2 1" ''# or manually set the value
For Each n In Split([A1]):i=i+1:?n Mod i;:Next
0 1 2 3 1 5 4 3 2 1
Старая Subрутина
Подпрограмма, которая принимает входные данные как переданный массив и выводит их в непосредственное окно VBE.
Sub m(n)
For Each a In n
i=i+1
Debug.?a Mod i;
Next
End Sub
Вход / выход:
m Array(10,9,8,7,6,5,4,3,2,1)
0 1 2 3 1 5 4 3 2 1
Ungolfed
Option Private Module
Option Compare Binary
Option Explicit
Option Base 0 ''# apparently Option Base 1 does not work with ParamArrays
Public Sub modIndex(ParamArray n() As Variant)
Dim index As Integer
For index = LBound(n) To UBound(n)
Debug.Print n(index) Mod (index + 1);
Next index
End Sub
Ввод, вывод:
Call modIndex(10,9,8,7,6,5,4,3,2,1)
0 1 2 3 1 5 4 3 2 1
