Excel VBA, 59 46 Bytes
Golf gespielt
Anonyme VBE-Direktfensterfunktion, die eine durch Leerzeichen ( ) begrenzte Array-Zeichenfolge als Eingabe aus dem Bereich verwendet [A1]und den Zahlenmodul ihres 1-basierten Index in der Startliste an das VBE- Direktfenster ausgibt
For Each n In Split([A1]):i=i+1:?n Mod i;:Next
Input-Output:
[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
Alt Sub Routineversion
Subroutine, die Eingaben als übergebene Arrays und Ausgaben in das VBE-Direktfenster übernimmt.
Sub m(n)
For Each a In n
i=i+1
Debug.?a Mod i;
Next
End Sub
Eingabe / Ausgabe:
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
Input-Output:
Call modIndex(10,9,8,7,6,5,4,3,2,1)
0 1 2 3 1 5 4 3 2 1
