Ein einfaches Beispiel: Nehmen Sie eine Liste positiver Ganzzahlen als Eingabe und geben Sie den Zahlenmodul ihres 1-basierten Index in der Liste aus.

Wenn die Eingangs ganze Zahlen sind , {a, b, c, d, e, f, g}dann sollten die ausgegeben werden , {a%1, b%2, c%3, d%4, e%5, f%6, g%7}wenn %der Modulo - Operator ist.

Testfälle:

10  9  8  7  6  5  4  3  2  1
 0  1  2  3  1  5  4  3  2  1

8 18  6 11 14  3 15 10  6 19 12  3  7  5  5 19 12 12 14  5
0  0  0  3  4  3  1  2  6  9  1  3  7  5  5  3 12 12 14  5

1
0

1  1
0  1

Haskell , 20 Bytes

($[1..]).zipWith mod

Probieren Sie es online!

Ein Trick, den flipich aus einem Golf von Anders Kaseorg gelernt habe .

Operation Flashpoint- Skriptsprache, 73 Byte

f={l=_this;r=[];i=0;while{i<count l}do{r=r+[(l select i)%(i+1)];i=i+1};r}

Rufen Sie an mit:

numList = [10, 9, 8, 7, 6, 5, 4, 3, 2, 1];
hint format["%1\n%2", numList, numList call f];

Ausgabe:

Python 2 , 35 Bytes

i=1
for x in input():print x%i;i+=1

Probieren Sie es online!

Zählt den Index manuell nach einem Tipp von mir .

Gelee , 2 Bytes

%J

Probieren Sie es online!

Erläuterung:

%J
 J List 1 .. len(input). This is results in a list of the indexes.
%  Modulo.

Grundsätzlich moduliert der Code die ursprüngliche Liste durch die Liste der Indizes.

R 24 18 Bytes

pryr::f(x%%seq(x))

Auswertungen zur Funktion:

function (x) 
x%%seq(x)

Womit seq_along()ein Vektor mit der gleichen Länge wie xab 1 erstellt und dann %%das Modulo genommen wird.

Das Standardverhalten seqbei der Darstellung mit einem Vektor entspricht seq(along.with = x)der Ausgabe vonseq_along(x) , ist jedoch 6 Byte kürzer.

R, 27 Bytes

x=scan();cat(x%%1:sum(1|x))

5 Bytes gespart dank @Jarko

4 weitere dank @ Giuseppe gespeichert

2 weitere dank @Taylor Scott gespart

2 weitere dank @returnbull gespeichert

APL (Dyalog) , 5 Bytes

⍳∘≢|⊢

Probieren Sie es online!

⍳ die Indizes

∘ von

≢ die Länge des Arguments

| dieser Modul

⊢ das Argument

Cubix , 19 Bytes

;ww.1I!@s%Ow;)Sow.$

Probieren Sie es online!

    ; w
    w .
1 I ! @ s % O w
; ) S o w . $ .
    . .
    . .

Beobachten Sie es laufen

Eine ziemlich einfache Implementierung.

• 1 Drücken Sie 1 auf den Stapel, um den Index zu starten
• I!@ Hole die Ganzzahleingabe und halte an, wenn 0
• s%Ow Tauschen Sie den Index aus, modifizieren Sie ihn, geben Sie das Ergebnis aus und wechseln Sie die Spur
• ;) Ergebnis entfernen und Index erhöhen
• Sow 32 drücken, Leerzeichen ausgeben und Spur wechseln (von o nach unten)
• $O Sprung die Ausgabe
• w;wändere lange, entferne 32 aus dem Stapel und wechsle die Spur auf den IEingang

05AB1E , 2 Bytes

ā%

Probieren Sie es online! oder Probieren Sie alle Tests aus

ā  # Push the range(1, len(a) + 1)
 % # Mod each element in the input by the same one in this list

Mathematica, 22 Bytes

#&@@@Mod~MapIndexed~#&

Noch ein Mathematica-Ansatz.

Sternenklar , 75-70 Bytes

      +`  , + +   *    +  + +      +*   +    *  .               + + .'

Probieren Sie es online!

Erläuterung

Dies ist eine Endlosschleife, die das Lesen von Zahlen von der Eingabe und das Erhöhen eines Zählers, der bei initialisiert wird, beibehält 1 . Für jedes Paar von Eingang und Zähler wird der Modul berechnet und ausgedruckt.

Um die Schleife zu beenden, wenn die Eingabe erschöpft ist, wird der folgende Trick verwendet. Wenn keine Eingabe mehr verfügbar ist, erhalten Sie beim Versuch, eine weitere Zahl zu lesen, eine 0. Daher teilen wir die gelesene Zahl durch sich selbst, und wenn dies 0der Fall ist, endet das Programm mit einem Fehler. Ansonsten verwerfen wir das Ergebnis und fahren fort.

      +              Push 1. This is the initial value of the counter
`                    Mark label
  ,                  Read number from input and push it. Gives 0 if no more input
 +                   Duplicate top of the stack
 +                   Duplicate top of the stack
   *                 Pop two numbers and push their division. Error if divisor is 0
    +                Pop (discard) top of the stack
  +                  Swap top two numbers
 +                   Duplicate top of the stack
      +              Push 1
*                    Pop two numbers and push their sum. This increases the counter
   +                 Rotate stack down, to move increased counter to bottom
    *                Pop two numbers and push their modulus
  .                  Pop a number and print it as a number
               +     Push 10
 +                   Duplicate top of the stack
 .                   Pop a number (10) and print it as ASCII character (newline)
'                    If top of the stack is non-zero (it is, namely 10) go to label

MATL , 4 , 3 Bytes

tf\

Probieren Sie es online!

Ein Byte gespart dank @LuisMendo!

Brachylog , 9 Bytes

l⟦₁;?↔z%ᵐ

Probieren Sie es online!

Erläuterung

l⟦₁          [1, ..., length(Input)]
   ;?↔z      Zip the Input with that range
       %ᵐ    Map mod

Japt, 5 4 Bytes

®%°T

Versuch es

• -1 Byte dank ETHproductions

Erläuterung

     :Implicit input of array U
®    :Map over the array
%    :Modulo of the current element
°T   :T (0, initially) incremented by 1

R, 22 Bytes

pryr::f(x%%1:sum(x|1))

R führt vor dem Modul 1: Länge (x) aus.

Python 2 , 42 Bytes

lambda l:[v%(i+1) for i,v in enumerate(l)]

Probieren Sie es online!

Haskell, 22 Bytes

zipWith(flip mod)[1..]

Probieren Sie es online!

Auch: flip(zipWith mod)[1..].

Mathematica, 21 Bytes

#~Mod~Range@Length@#&

Probieren Sie es online!

oder 20 Bytes (von Martin)

#~Mod~Range@Tr[1^#]&

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 

CJam , 9 Bytes

{_,,:).%}

Anonymer Block, der ein Array auf dem Stapel erwartet und durch das Ausgabearray ersetzt.

Probieren Sie es online!

Erläuterung

{       }    e# Define block
 _           e# Duplicate
  ,          e# Length
   ,         e# Range, 0-based
    :)       e# Add 1 to each entry
      .%     e# Vectorized modulus

J 9 Bytes

>:@i.@#|[

1 ... n | ursprüngliche Liste

| ist mod

JavaScript (ES6), 22 Byte

a=>a.map((x,y)=>x%++y)

AWK, 13

{print $1%NR}

Probieren Sie es online aus .

tcl, 35

lmap l $L {puts [expr $l%[incr i]]}

Demo

GNU APL 1.2, 9 Bytes

(⍳⍴R)|R←⎕

APL arbeitet von rechts nach links, daher die Klammern.

R←⎕Weist dem Vektor Benutzereingaben zu R.

⍴Rgibt die Länge des Vektors an; ⍳⍴Rgibt einen Vektor mit allen Zahlen von 1 bis zu dieser Länge (also die Indizes).

|ist der Mod Operator ( a|bergibt b%a). APL arbeitet mit Arrays, sodass der Code-Snippet einen Vektor enthält, der jedes Element aus der Benutzereingabe mod seinem Index enthält.

Pari / GP , 22 Bytes

a->[a[n]%n|n<-[1..#a]]

Probieren Sie es online!

Pyth, 5

.e%bh

Online-Test .

    hk     # 1-based index of (implicit) lambda variable
   b       # element
  %        # element mod (1-based index)
.e    Q    # enumerated map over (implicit) input

Oktave , 19 Bytes

@(n)mod(n,1:nnz(n))

Probieren Sie es online!

Eine anonyme Funktion, die n als Eingabe verwendet und einen elementweisen Modul mit der Liste 1, 2, 3 ausführt .

Braingolf , 18 Bytes

V1R&,{v.m1+v%}&,=;

Probieren Sie es online!

Erläuterung

V1R&,{v.m1+v%}&,=;  Implicit input from commandline args
V1R                 Create stack2, push 1 to it, and return to stack1
   &,               Reverse stack1
     {.......}      Foreach loop, runs for each item in stack1
      v             Switch to stack2
       .m           Duplicate last item on stack and move duplicate to stack1
         1+         Increment last item on stack
           v%       Return to stack1, pop last 2 items and push modulus result
              &,    Reverse stack1
                =   Output stack1
                 ;  Suppress implicit output

Java 8 / C #, 39 Bytes

a->{for(int i=0;i<a.length;a[i]%=++i);}

Probieren Sie es hier aus.

Funktioniert auch in C # durch Ersetzen ->mit =>und lengthmit Length:

a=>{for(int i=0;i<a.Length;a[i]%=++i);}

Probieren Sie es hier aus.

Erläuterung:

a->{                       // Method with integer-array parameter and no return-type
  for(int i=0;i<a.length;  //  Loop over the indexes of the array (0-indexed)
      a[i]%=++i            //   And replace every integer with itself mod (1+i)
  );                       //  End of loop
}                          // End of method

Ändert das Input-Array, daher kein Return.