# code: http://golf.shinh.org/reveal.rb?Simple+Hexagony+BIG/tails_1644403852&nbb # target Nibbles version: 0.23 # commenter version: 0.1.2.181 * #(join):[chr] ;@ #(= sndLine):[chr] < #(take):[int] * #(multiply):int 50 #(integer):int ;$ #(= sndInt):int > #(drop):[int] 2 #(integer):int `' #(transpose):[int] -->let( K:[int] J:[int] I:[int] ) `. #(iterate while uniq):[int,int,int,int] ~~~ #(4-ary tuple):int,int,int,int 0 #(integer):int 0 #(integer):int 1 #(integer):int 1 #(integer):int #(implicit tuple):int,int,int,int <--arg( D:int C:int B:int A:int ) ; #(save):int -->let( F:int ) `$ #(signum):int `& #(bit intersection):int ; #(save):int -->let( E:int ) ^ #(pow):int 2 #(integer):int ;$ #(= A):int _ #(= C):int `^ #(bit xor):int ;$ #(= C):int @ #(= E):int ; #(save):int -->let( H:int ) % #(modulus):int * #(multiply):int + #(add):int ^ #(pow):int 65 #(integer):int + #(add):int $ #(= F):int ~ #(auto = 1):auto ~ #(auto = 1):auto ;@ #(= B):int ; #(save):int -->let( G:int ) 4291 #(integer):int % #(modulus):int + #(add):int + #(add):int ;;$ #(= B):int $ #(= H):int ;;@ #(= A):int @ #(= G):int