# code: http://golf.shinh.org/reveal.rb?compression+challenge+but+not+in+the+way+you+think/tails_1658458351&nbb # target Nibbles version: 0.21 # commenter version: 0.1.2.181 \ #(reverse):[[chr]] / #(foldr):[[chr]] -->let( I:int ) \ #(reverse):[[chr]] % #(split (remove empties)):[[chr]] @ #(= fstLine):[chr] ~ #(auto = words):auto ~ #(tuple):[[chr]],int % #(split (remove empties)):[[chr]] @ #(= fstLine):[chr] @ #(= fstLine):[chr] 0 #(integer):int #(implicit tuple):[[chr]],int <--arg( C:[chr] B:[[chr]] A:int ) ? #(if/else):[[chr]] -->let( H:int ) _ #(= A):int ~ #(tuple):[[chr]],int <--arg( D:int ) : #(append):[[chr]] @ #(= C):[chr] _ #(= B):[[chr]] - #(subtract):int ;$ #(= A):int ~ #(auto = 1):auto #(implicit tuple):[int],int ? #(if/else):[int] -->let( G:int ) ? #(index):int $ #(= C):[chr] 'R' #(char):chr ~ #(tuple):[int],int <--arg( E:int ) : #(append):[int] / #(divide):int ; #(let):int -->let( F:int ) r #(read str at base):int @ #(= C):[chr] 108652919 #(integer):int #(implicit arg = F):int #(implicit arg = F):int #(implicit arg = F):int #(implicit tuple):int,int #(implicit arg = F):int #(implicit arg = F):int #(implicit arg = G):int #(implicit arg = H):int