aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Recamans-sequence/APL/recamans-sequence.apl Normal file
View file

@ -0,0 +1,13 @@
recaman←{⎕IO←0
genNext←{
R←⍵[N-1]-N←≢⍵
(R<0)∨(R∊⍵):⍵,⍵[N-1]+N
⍵,⍵[N-1]-N
}
⎕←'First 15: '
⎕←reca←(genNext⍣14),0
⎕←'First repetition: '
⎕←⊃⌽reca←genNext⍣{⍺≢∪⍺}⊢reca
⎕←'Length of sequence containing [0..1000]:'
⎕←≢reca←genNext⍣{(⍳1001)∧.∊⊂⍺}⊢reca
}