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

Improve problem 2 solution

Browse source
This commit is contained in:
Dimitri Lozeve 2020-05-19 16:32:29 +02:00
parent 2807421031
commit 0097080190
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Contest2020/Contest2020.dyalog
View file

@ -23,18 +23,21 @@
score←2(⍎⍕)dd×+/scores
∇
∇ steps←{p}Steps fromTo
∇ steps←{p}Steps fromTo;segments;width
⍝ 2020 APL Problem Solving Competition Phase II
⍝ Problem 2, Task 1 - Steps
width←|-/fromTo
: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
segments←0,⍳width
:ElseIf p<0 ⍝ -⌊p is the number of equally-sized steps to take
segments←(-⌊p){0,⍵×⍺÷⍨⍳⍺}width
:ElseIf p>0 ⍝ p is the step size
segments←p{⍵⌊⍺×0,⍳⌈⍵÷⍺}width
:ElseIf p=0 ⍝ As if we took zero step
segments←0
:EndIf
⍝ Take into account the start point and the direction.
steps←fromTo{(⊃⍺)+(-×-/⍺)×⍵}segments
∇
∇ urls←PastTasks url;r;paths