Yang sederhana: Ambil daftar bilangan bulat positif sebagai input dan output angka-angka modulus indeks berbasis 1 mereka dalam daftar.

Jika bilangan bulat input {a, b, c, d, e, f, g}maka output harus di {a%1, b%2, c%3, d%4, e%5, f%6, g%7}mana %adalah operator modulus.

Kasus uji:

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 byte

($[1..]).zipWith mod

Cobalah online!

Trik yang flipsaya pelajari dari golf Anders Kaseorg .

Operasi bahasa skrip Flashpoint , 73 byte

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

Telepon dengan:

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

Keluaran:

Python 2 , 35 byte

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

Cobalah online!

Menghitung indeks secara manual, sesuai tip saya .

Jelly , 2 byte

%J

Cobalah online!

Penjelasan:

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

Pada dasarnya, modulos daftar asli dengan daftar indeks.

R, 24 18 byte

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

Mengevaluasi fungsi:

function (x) 
x%%seq(x)

Yang digunakan seq_along()untuk membuat vektor dengan panjang yang sama dengan x, mulai dari 1, dan kemudian %%mengambil modulo.

Perilaku default seqsaat disajikan dengan vektor adalah seq(along.with = x)output yang sama dengan seq_along(x), tetapi 6 byte lebih pendek.

R, 27 byte

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

disimpan 5 byte berkat @Jarko

disimpan 4 lebih banyak berkat @Giuseppe

disimpan 2 lebih banyak berkat @Taylor Scott

Disimpan 2 lagi berkat @returnbull

APL (Dyalog) , 5 byte

⍳∘≢|⊢

Cobalah online!

⍳ indeks

∘ dari

≢ panjang argumen

| modulus itu

⊢ argumen

Cubix , 19 byte

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

Cobalah online!

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

Tonton Jalankan

Implementasi yang cukup lurus ke depan.

• 1 dorong 1 ke tumpukan untuk memulai indeks
• I!@ dapatkan input integer dan hentikan jika 0
• s%Ow menukar indeks, mod, hasil keluaran dan ubah jalur
• ;) hapus indeks hasil dan kenaikan
• Sow tekan 32, ruang output dan ganti jalur (turun dari o)
• $O lompat output
• w;wganti lange, hapus 32 dari tumpukan dan ubah jalur ke Iinput

05AB1E , 2 byte

ā%

Cobalah online! atau Coba semua tes

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

Mathematica, 22 byte

#&@@@Mod~MapIndexed~#&

Satu lagi pendekatan Mathematica.

Starry , 75 70 byte

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

Cobalah online!

Penjelasan

Ini adalah infinite loop yang terus membaca angka dari input dan meningkatkan penghitung yang diinisialisasi pada 1. Untuk setiap pasangan input dan penghitung, modulus dihitung dan dicetak.

Untuk mengakhiri loop ketika input telah habis, trik berikut ini digunakan. Ketika tidak ada lagi input yang tersedia, mencoba membaca satu nomor lagi memberi a 0. Dengan demikian, kami membagi angka baca dengan sendirinya, dan jika itu 0program berakhir dengan kesalahan. Kalau tidak, kita membuang hasilnya dan melanjutkan.

      +              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 byte

tf\

Cobalah online!

Satu byte disimpan berkat @LuisMendo!

Brachylog , 9 byte

l⟦₁;?↔z%ᵐ

Cobalah online!

Penjelasan

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

Japt, 5 4 byte

®%°T

Cobalah

• -1 byte berkat produk ETH

Penjelasan

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

R, 22 byte

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

R melakukan 1: panjang (x) sebelum melakukan modulus.

Python 2 , 42 byte

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

Cobalah online!

Haskell, 22 byte

zipWith(flip mod)[1..]

Cobalah online!

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

Mathematica, 21 byte

#~Mod~Range@Length@#&

Cobalah online!

atau 20 byte (oleh Martin)

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

Excel VBA, 59 46 Bytes

Golf

VBE Anonim Funtion jendela langsung yang mengambil spasi ( ) string array terbatas sebagai input dari rentang [A1]dan menampilkan angka-angka modulus indeks berbasis 1 mereka dalam daftar awal ke jendela langsung VBE

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 

SubVersi rutin lama

Subrutin yang mengambil input sebagai array yang lulus dan keluar ke jendela langsung VBE.

Sub m(n)
For Each a In n
i=i+1
Debug.?a Mod i;
Next
End Sub

Input / Ouput:

m Array(10,9,8,7,6,5,4,3,2,1)
 0  1  2  3  1  5  4  3  2  1 

Tidak disatukan

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 byte

{_,,:).%}

Blok anonim yang mengharapkan array pada stack dan menggantinya dengan output array.

Cobalah online!

Penjelasan

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

J, 9 byte

>:@i.@#|[

1 ... n | daftar asli

| adalah mod

JavaScript (ES6), 22 byte

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

AWK, 13

{print $1%NR}

Cobalah online .

tcl, 35

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

demo

GNU APL 1.2, 9 byte

(⍳⍴R)|R←⎕

APL beroperasi dari kanan ke kiri, karenanya tanda kurung.

R←⎕menetapkan input pengguna ke vektor R.

⍴Rmemberikan panjang vektor; ⍳⍴Rmemberikan vektor dengan semua angka dari 1 ke panjang itu (jadi indeks).

|adalah mod operator ( a|bhasil b%a). APL beroperasi pada array, sehingga kode potongan vektor yang berisi setiap elemen dari input mod pengguna indeksnya.

Pari / GP , 22 byte

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

Cobalah online!

Pyth, 5

.e%bh

Tes online .

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

Oktaf , 19 byte

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

Cobalah online!

Fungsi anonim yang mengambil n sebagai input, dan melakukan modulus elemen-bijaksana dengan daftar 1, 2, 3 .

Braingolf , 18 byte

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

Cobalah online!

Penjelasan

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 byte

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

Coba di sini.

Juga berfungsi di C # dengan mengganti ->dengan =>dan lengthdengan Length:

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

Coba di sini.

Penjelasan:

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

Memodifikasi input-array, karenanya tidak ada pengembalian.