Solve problem 4 task 2

2020-05-10 14:39:22 +02:00 · 2020-05-10 14:39:22 +02:00 · 710815ad49
commit 710815ad49
parent 199a027e6b
1 changed files with 4 additions and 5 deletions
--- a/Contest2020/Contest2020.dyalog
+++ b/Contest2020/Contest2020.dyalog
@ -53,11 +53,10 @@
                  r←↑({isrevp dna[¯1+⍵[1]+⍳⍵[2]]}¨positions)/positions
                ∇

-                ∇ r←sset n
                ⍝ 2020 APL Problem Solving Competition Phase II
                ⍝ Stub function for Problem 4, Task 2 - sset
                ⍝ Put your code and comments below here
-                ∇
+                sset←{((1E6|2∘×)⍣⍵)1}

                ∇ r←amounts rr rates
                  ⍝ 2020 APL Problem Solving Competition Phase II