Here's a solution in k, that uses a similar array oriented approach:

    &2=+/~x!/:\:x:!100

I wrote a little explanation of it, in case anyone is curious about how it works: https://github.com/kidd/arraylangs-index/blob/master/noteboo...