간단한 방법 : 입력으로 양의 정수 목록을 가져 와서 목록에서 1 기반 인덱스의 계수를 출력하십시오.
입력 정수가 {a, b, c, d, e, f, g}그렇다면 출력은 계수 연산자가 있는 {a%1, b%2, c%3, d%4, e%5, f%6, g%7}곳 이어야합니다 %.
테스트 사례 :
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
답변:
f={l=_this;r=[];i=0;while{i<count l}do{r=r+[(l select i)%(i+1)];i=i+1};r}
전화 :
numList = [10, 9, 8, 7, 6, 5, 4, 3, 2, 1];
hint format["%1\n%2", numList, numList call f];
산출:
x=scan();cat(x%%1:sum(1|x))@Jarko 덕분에 5 바이트 절약
@Giuseppe 덕분에 4 개 추가 절약
@Taylor Scott 덕분에 2 개 더 절약했습니다
@returnbull 덕분에 2 개 더 절약
' '마지막에 (공백)이 필요하지 않습니다 cat. 이것이 기본 구분자입니다
x<-scan();cat(x%%1:length(x)," ")오와 몇 가지 서식 팁, 1) 코드 왼쪽에 4 칸만 있으면 제대로 들여 쓰기되고 표시됩니다 .2) <!-- language-all: lang-r -->플래그를 추가 할 수 있습니다 당신의 코드가 (작은이 예에서이 변화는하지만) 3) 당신이 언어의 이름 4 주위 brakets 필요하지 않습니다 강조) 오 될 것으로 전에 당신은 당신이 게시물에 편집을 할 때 코멘트를 할 필요가 없습니다
=대신 사용할 수 있습니다 <-. (2) 사양에 "print"가 아닌 "output"이 표시되므로을 삭제하여 cat()5 바이트를 절약 할 수 있습니다 . (3) sum(1|x)이 1 바이트보다 짧습니다 length(x).
(~T∊T∘.×T)/T←1↓⍳R ⍝ primes up to R또는life←{↑1 ω∨.∧3 4=+/,¯1 0 1∘.⊖¯1 0 1∘.⌽⊂ω} ⍝ Game of Life
(⊢~∘.×⍨)1↓⍳Rand GoL (Version 16.0) : K∊⍨⊢∘⊂⌺3 3여기서 K는 상수입니다.
;ww.1I!@s%Ow;)Sow.$
; w
w .
1 I ! @ s % O w
; ) S o w . $ .
. .
. .
상당히 간단한 구현입니다.
1 1을 스택으로 밀어 인덱스를 시작하십시오.I!@ 정수 입력을 얻고 0이면 정지s%Ow 인덱스 스왑, 모드, 출력 결과 및 레인 변경;) 결과 제거 및 인덱스 증가Sow 32 번 푸시, 출력 공간 및 차선 변경 (o에서 아래로)$O 출력을 뛰어 넘다w;w범위 변경, 스택에서 32 제거 및 I입력으로 레인 변경ā%
온라인으로 사용해보십시오! 또는 모든 테스트를 시도하십시오
ā # Push the range(1, len(a) + 1)
% # Mod each element in the input by the same one in this list
DgL%롭습니다. 좋은 것 같아요 .
gL%잊어 버렸기 때문에 원래 가지고 있었다 ā.
ā되고 있습니까? 나는 그것을 결코 사용하지 않았다고 생각 for each하지만 그것은 묵시적이지만 암시적인 1 to n+1방식 입니까? vy<code>})vy<code>})
+` , + + * + + + +* + * . + + .'
이것은 입력에서 숫자를 읽고 계속 초기화되는 카운터를 증가시키는 무한 루프입니다. 1 . 각 입력 및 카운터 쌍에 대해 계수가 계산되고 인쇄됩니다.
입력이 소진되었을 때 루프를 종료하기 위해 다음과 같은 트릭이 사용됩니다. 더 이상 입력 할 수없는 경우 하나 이상의 숫자를 읽으려고하면을 제공합니다 0. 따라서, 우리는 읽기 수를 그 자체로 나누고, 그것이 있다면 0프로그램은 오류로 끝납니다. 그렇지 않으면 결과를 버리고 계속합니다.
+ 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
l⟦₁;?↔z%ᵐ
l⟦₁ [1, ..., length(Input)]
;?↔z Zip the Input with that range
%ᵐ Map mod
®%°T
:Implicit input of array U
® :Map over the array
% :Modulo of the current element
°T :T (0, initially) incremented by 1
®%°T(실제로 Y원한다면 여전히 사용할 수 있습니다 )
for
lambda l:[v%-~i for i,v in enumerate(l)]
lambda l:[v%i for i,v in enumerate(l,1)].
Tr[1^#]에 대한 Length@#.
#첫 번째 답변에서 두 번째 마지막 문자로 a가 누락되었습니다 .
익명 VBE 범위에서 입력 으로 공백 ( )으로 구분 된 배열 문자열 을 가져와 [A1]시작 목록의 1 기반 인덱스의 계수를 VBE 즉시 창으로 출력하는 즉각적인 창 기능
For Each n In Split([A1]):i=i+1:?n Mod i;:Next입출력:
[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 Sub루틴 버전전달 된 배열로 입력을 받고 VBE 즉시 창으로 출력하는 서브 루틴.
Sub m(n)
For Each a In n
i=i+1
Debug.?a Mod i;
Next
End Sub입력 / 출력 :
m Array(10,9,8,7,6,5,4,3,2,1)
0 1 2 3 1 5 4 3 2 1 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입출력:
Call modIndex(10,9,8,7,6,5,4,3,2,1)
0 1 2 3 1 5 4 3 2 1 {_,,:).%}
스택의 배열을 예상하고 출력 배열로 대체하는 익명 블록입니다.
{ } e# Define block
_ e# Duplicate
, e# Length
, e# Range, 0-based
:) e# Add 1 to each entry
.% e# Vectorized modulus
V1R&,{v.m1+v%}&,=;
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
a->{for(int i=0;i<a.length;a[i]%=++i);}
C #에서 및 로 교체 ->하여 작동합니다 .=>lengthLength
a=>{for(int i=0;i<a.Length;a[i]%=++i);}
설명:
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
입력 배열을 수정하므로 리턴이 없습니다.
->로 =>및 투자 length.