dimitri/apl-competition-2020
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Solve problem 2

Browse source
This commit is contained in:
Dimitri Lozeve 2020-05-19 16:04:05 +02:00
parent 9628a7a04b
commit 2807421031
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Contest2020/Contest2020.dyalog
View file

@ -25,8 +25,16 @@
∇ steps←{p}Steps fromTo
⍝ 2020 APL Problem Solving Competition Phase II
⍝ Stub function for Problem 2, Task 1 - Steps
⍝ Put your code and comments below here
⍝ Problem 2, Task 1 - Steps
:If 0=⎕NC'p' ⍝ No left argument: same as Problem 5 of Phase I
steps←{(⊃⍵)+(-×-/⍵)×0,⍳|-/⍵}fromTo
:ElseIf p<0
steps←(-⌊p){(⊃⍵)+(-×-/⍵)×0,(⍳⍺)×|-/⍵÷⍺}fromTo
:ElseIf p>0
steps←p{(⊃⍵)+(-×-/⍵)×(|-/⍵)⌊⍺×0,⍳⌈(|-/⍵)÷⍺}fromTo
:ElseIf p=0
steps←⊃fromTo
:EndIf
∇
∇ urls←PastTasks url;r;paths