Простий: Візьміть список позитивних цілих чисел як вхід і виведіть модуль чисел, їх 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];
Вихід:
i=1
for x in input():print x%i;i+=1Підраховує індекс вручну, відповідно до моєї кінчики .
%J
Пояснення:
%J
J List 1 .. len(input). This is results in a list of the indexes.
% Modulo.
В основному, код модулює вихідний список списком індексів.
%Jв Джелі, мені цікаво, чи хтось відповів на цю відповідь?". Напевно, хтось інший мав таку ж ідею :-D
pryr::f(x%%seq(x))
Оцінює функції:
function (x)
x%%seq(x)
Який використовується seq_along()для створення вектора такої ж довжини x, що починається з 1, а потім%% приймає модуль.
Поведінка за замовчуванням seqпри представленні вектора - seq(along.with = x)це той самий вихід seq_along(x), що й 6 байт коротше.
seq(x)це зручна річ, яку я маю навколо, оскільки я завжди користуюся 1:length(x).
x=scan();cat(x%%1:sum(1|x))збережено 5 байт завдяки @Jarko
врятувало ще 4 завдяки @Giuseppe
врятувало ще 2 завдяки @Taylor Scott
Збережено ще 2 завдяки @returnbull
' '(пробіл) наприкінці cat; це роздільник за замовчуванням
x<-scan();cat(x%%1:length(x)," ")- ой, і пара підказок щодо форматування, 1) вам потрібно лише 4 пробіли зліва від коду, щоб він був належним чином відведений та позначений 2) ви можете додати <!-- language-all: lang-r -->прапор перш ніж ваш код буде виділений (хоча це мало змінюється в цьому прикладі) 3) вам не потрібні дужки навколо назви вашої мови 4) ой, і вам не потрібно робити коментарі під час редагування публікації
=замість того, <-щоб зберегти байт. (2) У специфікації написано "вихід", а не "друк", так що ви, ймовірно, можете скинути cat(), заощадивши 5 байт. (3) sum(1|x)на один байт коротший 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↓⍳Rі GoL (у версії 16.0): K∊⍨⊢∘⊂⌺3 3де K - константа.
;ww.1I!@s%Ow;)Sow.$
; w
w .
1 I ! @ s % O w
; ) S o w . $ .
. .
. .
Досить пряма реалізація.
1 натисніть 1 до стеку, щоб запустити індексI!@ отримати цілий вхід і зупинити, якщо 0s%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>})?
#&@@@Mod~MapIndexed~#&
Ще один підхід Mathematica.
MapIndexed@Modце майже досить добре: '(
+` , + + * + + + +* + * . + + .'
Це нескінченний цикл, який зберігає читання чисел з вхідних даних і збільшує лічильник, ініціалізований на 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його, якщо хочете)
pryr::f(x%%1:sum(x|1))
R виконує 1: довжина (x) перед виконанням модуля.
sum(x|1)!
seq()замість seq_along()робить те саме. Отже, це знову на кілька байт коротше.
for
lambda l:[v%-~i for i,v in enumerate(l)]
lambda l:[v%i for i,v in enumerate(l,1)].
#~Mod~Range@Length@#&
або 20 байт (від Мартіна)
#~Mod~Range@Tr[1^#]&
Tr[1^#]для Length@#.
#вашій першій відповіді відсутній як другий останній символ.
Функція негайного вікна Anonymous 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
(⍳⍴R)|R←⎕
APL діє справа наліво, звідси і дужки.
R←⎕призначає користувачеві введення у вектор R.
⍴R дає довжину вектора; ⍳⍴Rдає вектор з усіма числами від 1 до цієї довжини (так і індекси).
|є оператором моди ( a|bврожайність b%a). APL працює на масивах, тому код фрагментує вектор, що містить кожен елемент із вхідного модуля користувача його індекс.
.e%bh
hk # 1-based index of (implicit) lambda variable
b # element
% # element mod (1-based index)
.e Q # enumerated map over (implicit) input
@(n)mod(n,1:nnz(n))Анонімна функція, яка приймає n як вхідний і виконує елементний модуль зі списками 1, 2, 3 .
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 #, замінюючи ->на =>і lengthна Length:
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
Змінює вхідний масив, отже, відсутність повернення.
-> to => and capitaliselength.