From 710815ad49714ed890bf015f3874761c4a8d269d Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Sun, 10 May 2020 14:39:22 +0200
Subject: [PATCH] Solve problem 4 task 2

---
 Contest2020/Contest2020.dyalog | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/Contest2020/Contest2020.dyalog b/Contest2020/Contest2020.dyalog
index 8a34f02..b32b5ce 100644
--- 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
-                ∇
+                ⍝ 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