Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
6 lines (5 sloc) 221 Bytes
input =: ...
NB. sum of (max - min) of each row
+/(>./-<./)"1 input
NB. sum of the following: max of the 2x2 array consisting of (row[i] mod row[j] == 0) * (row[j] / row[i]) over each row.
+/]>./^:2@((0=|/)*%~/)~"1 input