ง่าย ๆ หนึ่ง: จดรายการจำนวนเต็มบวกขณะป้อนและเอาท์พุทตัวเลขจะปรับค่าดัชนี 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
คำตอบ:
($[1..]).zipWith modเคล็ดลับเพื่อflipผมได้เรียนรู้จากการเล่นกอล์ฟของ Anders Kaseorg
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];
เอาท์พุท:
%J
คำอธิบาย:
%J
J List 1 .. len(input). This is results in a list of the indexes.
% Modulo.
โดยทั่วไปรหัส modulos รายการเดิมโดยรายการดัชนี
%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 สลับดัชนีขึ้น mod ผลลัพธ์ผลลัพธ์และเปลี่ยนช่องทาง;) ลบผลลัพธ์และดัชนีที่เพิ่มขึ้น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~#&
อีกหนึ่งวิธีการทางคณิตศาสตร์
MapIndexed@Modเป็นเกือบดีพอ: '(
+` , + + * + + + +* + * . + + .'
นี่คือวง จำกัด ที่ช่วยให้การอ่านตัวเลขจากการป้อนข้อมูลและการเพิ่มเคาน์เตอร์ initiallized 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)].
#~Mod~Range@Length@#&
หรือ20 ไบต์ (โดย Martin)
#~Mod~Range@Tr[1^#]&
Tr[1^#]Length@#สำหรับ
#อักขระตัวสุดท้ายในคำตอบแรกของคุณ
ไม่ระบุชื่อ 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อินพุต / Ouput:
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
>:@i.@#|[
1 ... n | รายการเดิม
| เป็น mod
a=>a.map((x,y)=>x%++y)
(⍳⍴R)|R←⎕
APL ทำงานจากขวาไปซ้ายดังนั้นวงเล็บ
R←⎕Rท่านผู้ใช้กำหนดเวกเตอร์
⍴Rให้ความยาวของเวกเตอร์ ⍳⍴Rให้เวกเตอร์ที่มีตัวเลขทั้งหมดตั้งแต่ 1 ถึงความยาวนั้น (ดัชนีดังนั้น)
|เป็นตัวดำเนินการ mod ( 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เป็น input และโมดูลัสดำเนินการองค์ประกอบที่ชาญฉลาดด้วยรายการที่ 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
ปรับเปลี่ยนอินพุทอาเรย์จึงขาดการส่งคืน
->ไปและใช้ประโยชน์=> length