With some compute effort this might get shorter...
With some compute effort this might get shorter...
A monadic Link accepting a list of characters which yields a list of characters.
How?
ỴZ6=ẠƊ€œp$"¢Ọ/’,"642-*+)9(8/17035"ḥⱮ - Link: list of characters, I
Ỵ - split at newline characters
Z - transpose
$ - last two links as a monad - i.e. f(X):
Ɗ€ - for each, last three links as a monad:
6 - the space character
= - equals? (vectorises)
Ạ - all?
œp - split (X) at truthy indices of (that)
- (...call the result A)
"¢Ọ/’ - base 250 int = 170548 (salt)
"642-*+)9(8/17035" - list of characters "642-*+)9(8/17035" (domain)
, - pair -> [salt, domain]
Ɱ - map across A with:
ḥ - Jelly's hash function with salt and domain
A monadic Link accepting a list of characters which yields a list of characters.
How?
ỴZ6=ẠƊ€œp$"¢Ọ/’,"642-*+)9(8/17035"ḥⱮ - Link: list of characters, I
Ỵ - split at newline characters
Z - transpose
$ - last two links as a monad - i.e. f(X):
Ɗ€ - for each, last three links as a monad:
6 - the space character
= - equals? (vectorises)
Ạ - all?
œp - split (X) at truthy indices of (that)
- (...call the result A)
"¢Ọ/’ - base 250 int = 170548 (salt)
"642-*+)9(8/17035" - list of characters "642-*+)9(8/17035" (domain)
, - pair -> [salt, domain]
Ɱ - map across A with:
ḥ - Jelly's hash function with salt and domain
Loading
Loading