The 2020 APL programming competition was tough! In this post I share a couple of thoughts and my solutions.

The Dyalog APL competition is an annual competition held by Dyalog for students from around the world to test their APL skills on two sets of problems.

In Phase \(1\) of the competition we are given \(10\) simpler problems that can be usually solved in one line of APL code and these we can solve directly in the browser. We submit our answers and the competition software rates your solutions as failing, passing with silver or passing with gold. You only get gold if you pass the tests for the edge cases, but that doesn't ensure your solution is \(100\%\) correct, it just means it passed some preliminary test cases.

Phase \(2\) of the competition is composed of a variable number of problems of varying difficulties; some are really easy and some are really hard. You can find the problem sets for all previous competitions here.

I started learning APL around March of 2020 with the sole purpose of competing in the 2020 edition of the student competition (ok, I also wanted to have fun and distract myself from the current world events [at around this time the coronavirus outbreak reached Portugal]). The submissions were due by the 31st of July (a week ago) and I am pleased to tell you - not that you care - that I submitted solutions to all problems and I feel I did a decent job. On the other hand, I am a very young APLer & I have *no* idea who are the students from all around the world that competed so I wouldn't be surprised if I place poorly in the final ranking.

Regardless of that, I have found APL to be really enjoyable for various reasons, from the fact that I feel it is very maths oriented to it being so "weird" with its funny-looking primitive functions (e.g. `β`

or `β³`

). Another thing that helped a lot was me having found APL through codegolf, which led me to The APL Orchard, where a bunch of friendly folks taught me pretty much everything I know about APL and array-oriented programming.

Next year I won't be a student but I will be looking forward to participating again!

Like I said above, Phase \(1\) is supposed to be easier and these were my submissions:

I should note that, even though I got golden trophies for all the \(10\) submissions, I managed to get at least one of the solutions partially wrong! In fact, the problem statement of the tenth problem clearly states that my submission should behave like `{βββ΅}Β¨`

, which applied to `'ab'`

gives

```
{βββ΅}Β¨ 'ab'
a
b
```

whereas my solution gives

```
{ββ,/βββΒ¨β΅} 'ab'
ab
```

so there is that. I am also not very pleased with my `P4`

and `P9`

and I really like what I have done for `P2`

and `P3`

.

Phase \(2\) was a tougher nut to crack, with some problems requiring a lot of thinking and experimenting. Even so, some of the tasks were really easy, like the `pv`

(Task \(2\) from problem \(5\)) and the `CheckDigit`

(Task \(1\) from problem \(7\)). All in all, a very pleasant experience.

Now I will share my solutions for the \(9\) problems and comment a bit on some of them.

I wrote a first solution for this problem that only worked for inputs of lengths \(3\), \(5\) or \(7\) (like the problem statement guarantees) and I explicitly sorted the input scores with `β΅[ββ΅]`

but then I decided to try and not sort `β΅`

explicitly and make it work for any odd-length input `β΅`

. That is how I ended up with this solution.

For problem \(2\) it looked like I would be able to write the case `βΊ < 0`

in terms of the `βΊ > 0`

case... And for some time I thought I had done that, but then I noticed my code was failing for one of the test cases and I fell back to writing the `βΊ < 0`

case explicitly.

This was a fairly standard problem and regexes do all the heavy lifting for me.

Problem \(4\) had two tasks borrowed from the Rosalind website, a website with problems on bioinformatics. Even so, the two tasks aren't connected in any obvious way and the second task is just a simple problem in maths (althought I am not saying it doesn't matter for bioinformatics!).

For the first task I tried really hard to do it in an array-oriented way without using the each `Β¨`

operator, which for me looks like a `for elem in iterable`

loop in Python (and a loop I am very used to using). I still ended up using `β€0 1`

which to me looks a bit like the `Β¨`

, but I was happy with what I had done so I let the `β€`

be.

The second task was *really* easy and I just had to implement repeated squaring so as to make `PowerMod`

an efficient function. Maybe part of the challenge of this problem was in figuring out that a set of \(n\) elements has \(2^n\) subsets but I have studied this in my degree so I did not have to spend any time thinking about that. Heck, you can even read this short proof of this fact; it's so short it fits in a tweet! For those of you who don't know the algorithm, repeated squaring is a really efficient way of computing \(b^n\) for large \(n\). Let's say we want to compute \(2^{857}\).

We just have to note that

\[ \begin{align} 2^{857} &= 2^{1\times 1 + 0\times 2 + 0\times 4 + 1\times 8+ 1\times 16 + 0\times 32 + 1\times 64 + 0\times 128 + 1\times 256 + 1\times 512} \\ &= 2^{1+8+16+64+256+512} \\ &= 2^{1}\times2^{8}\times2^{16}\times2^{64}\times2^{256}\times 2^{512} \end{align}\]

and because of the recurrence relation

\[ 2^{(2^{k+1})} = \left(2^{(2^k)} \right)^2\]

we only need to compute \(10\) powers, all of which are squares of the previously computed power (hence the name "repeated squaring"). Writing this algorithm in APL was funny and I didn't manage to avoid the usage of `β£`

to compute the squares... Now I feel dumb, I *just* opened the interpreter as I was writing this and I could have gone with `*β¨\`

, or maybe `{βΊβ1 β m|βΊ*β΅}\`

so as to keep the modulo operations in every intermediate step... Oh boy, I hope this doesn't cost me too much!

**Edit** (10th of August of 2020):

Using `β£`

allows one to save computations because `f\v`

applies `f`

an \(O(n^2)\) amount of times, if \(n\) is the length of `v`

, whereas `β£`

is just \(O(n)\). I can't swear but I think I took this into consideration when solving the problem. On the other hand, this dicussion on Reddit showed me I could have gone with `mβ|β€*β¨\`

instead of `{βΊβ1 β m|βΊ*β΅}\`

if I had gone with the scan approach.

I found problem \(5\) to be *really* enjoyable because it was so maths oriented. Solving the first task in an array-oriented way was a really fun challenge for me.

To solve this problem I just had to write down the recurrence relation to see how it really worked, from which I got (assuming `βIOβ0`

):

\[ \begin{cases} r_1 = \alpha_0 \\ r_2 = \alpha_1 + \alpha_0\omega_1 \\ r_3 = \alpha_2 + \alpha_1\omega_2 + \alpha_0\omega_2\omega_1 \\ r_4 = \alpha_3 + \alpha_2\omega_3 + \alpha_1\omega_3\omega_2 + \alpha_0\omega_3\omega_2\omega_1 \\ \cdots \end{cases}\]

so it became clear that I had to compute the cumulative rates that involved multiplying consecutive omegas, and then I just had to multiply every one of those products with the correct withdrawal/deposit, and add in the end.

I decided to write these partial results in matrices, where each row would contribute to one \(r_i\):

\[ rt = \begin{bmatrix} 0 & 0 & 0 & 0 & \cdots & 0 \\ \omega_1 & 0 & 0 & 0 & \cdots & 0 \\ \omega_2 \omega_1 & \omega_2 & 0 & 0 & \cdots & 0 \\ \omega_3 \omega_2 \omega_1 & \omega_3 \omega_2 & \omega_3 & 0 & \cdots & 0 \\ & & \cdots & & & \end{bmatrix}\]

and

\[ a = \begin{bmatrix} \alpha_0 & 0 & 0 & 0 & \cdots & 0 \\ \alpha_0 & \alpha_1 & 0 & 0 & \cdots & 0 \\ \alpha_0 & \alpha_1 & \alpha_2 & 0 & \cdots & 0 \\ \alpha_0 & \alpha_1 & \alpha_2 & \alpha_3 & \cdots & 0 \\ & & \cdots & & \ddots & \alpha_n \end{bmatrix}\]

After the matrices are built we just multiply them component by component and perform addition over the rows.

The second task was particularly easy and a simple train solved it neatly (I think).

I didn't enjoy problem \(6\) very much because I figured regular expressions would do the job fairly well; the other bit of work that we had to do was effectily offered to us in the problem notes. I tried to make the most out of this problem by avoiding the use of `βnl`

, which had me write something that looks like a `try ... except ...`

block in Python. In the end I reverted back to the `βnl`

solution because it looked more APLish.

Problem \(7\) was an interesting problem with three tasks; the first task, to write `CheckDigit`

, was pretty much given to us in the problem statement. However, task \(3\) really caught my attention.

For some reason, I find it elegant when a given function has a couple of "branches" and then I am able to write some of the branches in terms of the others, and I often do that by having the function call itself recursively with modified arguments. A silly example would be a function `f`

that sums two numbers if the right argument is positive or \(0\) and subtracts them otherwise. In this case, I could write

```
f β {
β΅<0: βΊβ-β΅
βΊ + β΅
}
```

Because `ReadUPC`

is supposed to accept barcodes read from left to right and from right to left, I spent some time trying to figure out how an elegant way for the function to recursively call itself if the barcode was read from right to left. In the end, because of all the input checking I was doing I thought that would just make the function inefficient and I ended up using some basic arithmetics (multiplying by \(1\) and by \(0\) strategically) to distinguish between the two directions the input barcode could be given in.

The reason for which I found this problem easy was the same reason that led me to solve the `sset`

with ease, because I have studied related topics in my maths degree. *However*, I have no idea if I did what was expected of a good solution. The problem statements says, and I quote,

"Understanding the nuances of the problem is the key to developing a good algorithm."

I did went online and looked up literature on subset sum problems... And I found nothing that looked suitable for this problem.

The point here is that my solution is pretty much brute-force... But it is really elegant (or at least, I think it is) in the sense that it is purely array-oriented; and because the problem statement guarantees a cap on the size of the input, it works really fast... So all in all, I am very happy with this solution of mine *but* the judges of the competition may not be!

This was, by far, my favourite problem of the competition. I wrote two solutions for this problem. I started out with a recursive solution because I wanted to be sure I solved all the problems of the competition. After the recursive solution was working, I decided to address the judges' remark on the problem:

"This is the most difficult problem in the competition and likely requires an iterative or recursive solution. (If you find an elegant, array-oriented solution, we'll be really impressed!)"

My recursive solution started out way bigger than what it is now, given that with more thinking I realized several parts were unnecessary. The basic idea is to parse the character matrix with the mobile into a tree-like data structure similar to the one I found in brainf*ck's workspace.

I turn a mobile like

```
βββββββββ΄ββββββββ
β βββββ΄ββββ
β β A
βββββ΄ββββββββ β
β B β
β ββββββββββββββ΄ββββββββ
β C D
βββββββ΄ββββββββ
E F
```

into something like

```
βββββββββββββββββ¬ββ¬ββ¬βββββββββββββββββ
ββββββββββ¬ββ¬ββ¬βββ1β1βββββββββββ¬ββ¬ββ¬βββ
ββE 3 4 Fβ1β2βBββ β ββC 13 8 Dβ1β1βAββ
ββββββββββ΄ββ΄ββ΄βββ β βββββββββββ΄ββ΄ββ΄βββ
βββββββββββββββββ΄ββ΄ββ΄βββββββββββββββββ
```

Then I would traverse the tree structure and compute everything I want and need, from the total weight of the mobile, to the set of letters used by the mobile, to the weight of each particular letter. Except I don't need any of that. Even now, I could compute everything in one go instead of creating the intermediate representation I showed above, but I figured it would be slightly more elegant this way, assuming the hypothetical scenario in which you'd want to perform more operations on the mobile.

When everything else was solved, I set out to solve this problem in an array-oriented way. I knew it was possible, I just had to figure out how to do it. I can say there was a week in which I did two \(2\)h walks and most of the time I was walking I was trying to figure out how to make this work.

In the end I managed to do it and I am really pleased with the end result; for an explanation of how it works, you can read the comments above the code:

Another small thing I did that I take pride on was not assuming the end points of the mobile are upper case letters. For me, those end points can be any character that is not a blank space or any of `ββ΄βββ`

as those are used for the structure of the mobile.

Did *you* compete in the 2020 Dyalog APL competition? Share your thoughts/solutions below!

I hope you learned something new! If you did, consider following the footsteps of the readers who bought me a slice of pizza π. Your small contribution helps me produce this content for free and without spamming you with annoying ads.