Excel VBA, 59 46 bytes
Golfe
VBE anônimo Função imediata da janela que pega uma string de matriz delimitada por espaço ( ) como entrada do intervalo [A1]e gera o módulo de números em seu índice baseado em 1 na lista inicial para a janela imediata do VBE
For Each n In Split([A1]):i=i+1:?n Mod i;:Next
Entrada / Saída:
[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
SubVersão antiga de rotina
Sub-rotina que recebe a entrada como uma matriz passada e sai para a janela imediata do VBE.
Sub m(n)
For Each a In n
i=i+1
Debug.?a Mod i;
Next
End Sub
Entrada / Saída:
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
Entrada / Saída:
Call modIndex(10,9,8,7,6,5,4,3,2,1)
0 1 2 3 1 5 4 3 2 1
