æA/Æ°_9:18ị“!@umÞẓẓS’Œ?¤ - Link 1, segment score: pair [x, y]
/ - reduce by:
æA - arc tangent
Æ° - convert from radians to degrees
_9 - subtract 9 (align 0 with boundary between 1 & 20)
:18 - integer divide by 18 (yields a segment index from 0 to 19)
¤ - nilad followed by link(s) as a nilad:
“!@umÞẓẓS’ - base 250 number = 2091180117530057584
Œ? - shortest permutation of natural numbers [1..N] which
- would reside at that index in a list of all permutations of
- those same numbers ordered lexicographically.
- = [18,4,13,6,10,15,2,17,3,19,7,16,8,11,14,9,12,5,20,1]
ị - index into (yields the score associated with the segment)
ḅıA<“©Ñckɱȥ‘TṂị“2ı¢¤¢£¡‘¹×>3$?Ç - Main Link: segment score: pair [x, y]
ı - √(-1)½
ḅ - convert from base = x+iy
A - absolute value = √(x²+y²)½
“©Ñckɱȥ‘ - code-page index list = [6,16,99,107,162,170]
- (i.e. the radial boundaries)
T - list of truthy indexes
Ṃ - minimal value (0 if empty)
“2ı¢¤¢£¡‘ - code-page index list = [50,25,1,3,1,2,0]
ị - index into
- (i.e. get an override score (>3) OR a multiplier (<=3))
Ç - call last Link (1) as a monad (get the segment score)
? - if...
$ - ...condition: last two links as a monad:
> - (override OR multiplier) greater than?
3 - three
¹ - ...then: identity (keep override as is)
× - ...else: multiply (by multiplier)
