Một cách đơn giản: Lấy danh sách các số nguyên dương làm đầu vào và đầu ra các số mô đun chỉ số dựa trên 1 của chúng trong danh sách.

Nếu số nguyên đầu vào là {a, b, c, d, e, f, g}sau đó sản lượng nên được {a%1, b%2, c%3, d%4, e%5, f%6, g%7}nơi %là các nhà điều hành mô đun.

Các trường hợp thử nghiệm:

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

Hãy thử trực tuyến!

Một mẹo để fliptôi học được từ một gôn của Anders Kaseorg .

Hoạt động ngôn ngữ kịch bản 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}

Gọi với:

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

Đầu ra:

Python 2 , 35 byte

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

Hãy thử trực tuyến!

Đếm chỉ số theo cách thủ công, theo một mẹo của tôi .

Thạch , 2 byte

%J

Hãy thử trực tuyến!

Giải trình:

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

Về cơ bản, mã điều chỉnh danh sách ban đầu theo danh sách các chỉ mục.

R, 24 18 byte

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

Đánh giá chức năng:

function (x) 
x%%seq(x)

Mà sử dụng seq_along() để tạo một vectơ có cùng độ dài x, bắt đầu từ 1, và sau đó%% lấy modulo.

Hành vi mặc định của seqkhi được trình bày với một vectơ là seq(along.with = x)đầu ra giống như seq_along(x), nhưng ngắn hơn 6 byte.

R, 27 byte

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

đã lưu 5 byte nhờ @Jarko

đã lưu thêm 4 nhờ vào @Giuseppe

đã lưu thêm 2 nhờ vào @Taylor Scott

Đã lưu thêm 2 nhờ vào @returnbull

APL (Dyalog) , 5 byte

⍳∘≢|⊢

Hãy thử trực tuyến!

⍳ các chỉ số

∘ của

≢ độ dài của đối số

| mô-đun đó

⊢ tranh luận

Khối , 19 byte

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

Hãy thử trực tuyến!

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

Xem nó chạy

Một thực hiện khá thẳng về phía trước.

• 1 đẩy 1 vào ngăn xếp để bắt đầu chỉ mục
• I!@ lấy đầu vào số nguyên và tạm dừng nếu 0
• s%Ow hoán đổi chỉ số lên, mod, kết quả đầu ra và thay đổi làn đường
• ;) xóa kết quả và chỉ số tăng
• Sow đẩy 32, không gian đầu ra và thay đổi làn đường (hướng xuống từ o)
• $O nhảy đầu ra
• w;wthay đổi lange, loại bỏ 32 khỏi stack và thay đổi lane vào Iđầu vào

05AB1E , 2 byte

ā%

Hãy thử trực tuyến! hoặc Thử tất cả các bài kiểm tra

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

Toán học, 22 byte

#&@@@Mod~MapIndexed~#&

Thêm một cách tiếp cận Mathicala.

Starry , 75 70 byte

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

Hãy thử trực tuyến!

Giải trình

Đây là một vòng lặp vô hạn giúp đọc số từ đầu vào và tăng bộ đếm bắt đầu tại 1 . Đối với mỗi cặp đầu vào và bộ đếm, mô đun được tính toán và in.

Để kết thúc vòng lặp khi đầu vào đã hết, mẹo sau được sử dụng. Khi không có thêm đầu vào, cố gắng đọc thêm một số sẽ cho a 0. Do đó, chúng tôi chia số đọc cho chính nó và nếu đó là 0chương trình kết thúc với một lỗi. Khác, chúng tôi loại bỏ kết quả và tiếp tục.

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

Hãy thử trực tuyến!

Một byte được lưu nhờ vào @LuisMendo!

Brachylog , 9 byte

l⟦₁;?↔z%ᵐ

Hãy thử trực tuyến!

Giải trình

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

Japt, 5 4 byte

®%°T

Thử nó

• -1 byte nhờ vào ETHproductions

Giải trình

     :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 thực hiện 1: length (x) trước khi thực hiện mô đun.

Con trăn 2 , 42 byte

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

Hãy thử trực tuyến!

Haskell, 22 byte

zipWith(flip mod)[1..]

Hãy thử trực tuyến!

Ngoài ra : flip(zipWith mod)[1..].

Toán học, 21 byte

#~Mod~Range@Length@#&

Hãy thử trực tuyến!

hoặc 20 byte (bởi Martin)

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

VBA Excel, 59 46 byte

Chơi gôn

VBE ẩn danh Chức năng cửa sổ tức thời lấy chuỗi mảng được phân tách bằng dấu cách ( ) làm đầu vào từ phạm vi [A1]và xuất các số mô đun chỉ số dựa trên 1 của chúng trong danh sách bắt đầu sang cửa sổ ngay lập tức VBE

For Each n In Split([A1]):i=i+1:?n Mod i;:Next

Đầu ra đầu vào:

[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 

SubPhiên bản thường lệ cũ

Chương trình con nhận đầu vào là một mảng đã qua và xuất ra cửa sổ ngay lập tức VBE.

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

Đầu vào / Ouput:

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

Bị đánh cắp

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

Đầu ra đầu vào:

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

{_,,:).%}

Khối ẩn danh mong đợi một mảng trên ngăn xếp và thay thế nó bằng mảng đầu ra.

Hãy thử trực tuyến!

Giải trình

{       }    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 | danh sách gốc

| là mod

JavaScript (ES6), 22 byte

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

AWK, 13

{print $1%NR}

Hãy thử trực tuyến .

tcl, 35

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

bản giới thiệu

GNU APL 1.2, 9 byte

(⍳⍴R)|R←⎕

APL hoạt động từ phải sang trái, do đó dấu ngoặc đơn.

R←⎕gán đầu vào của người dùng cho vector R.

⍴Rcho chiều dài của vectơ; ⍳⍴Rđưa ra một vectơ với tất cả các số từ 1 đến độ dài đó (vì vậy các chỉ số).

|là toán tử mod ( a|bsản lượng b%a). APL hoạt động trên các mảng, do đó, đoạn mã một vectơ chứa mỗi phần tử từ đầu vào của người dùng mod chỉ mục của nó.

Pari / GP , 22 byte

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

Hãy thử trực tuyến!

Bình thường, 5

.e%bh

Kiểm tra trực tuyến .

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

Octave , 19 byte

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

Hãy thử trực tuyến!

Một hàm ẩn danh lấy n làm đầu vào và thực hiện mô đun phần tử khôn ngoan với danh sách 1, 2, 3 .

Braingolf , 18 byte

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

Hãy thử trực tuyến!

Giải trình

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);}

Hãy thử nó ở đây.

Cũng hoạt động trong C # bằng cách thay thế ->bằng =>và lengthbằng Length:

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

Hãy thử nó ở đây.

Giải trình:

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

Sửa đổi mảng đầu vào, do đó thiếu trả về.