Problem: Simple Hexagony

Code: Simple+Hexagony/tails_1644403551

Nibbles version: 0.2 | 0.21 | 0.22 | 0.23 | 0.24 | 0.25 | 1.00

Format: Compact | Simple | +Type | Table | JSON | .nbl (DeBruijn) | .nbl (names)

* (join):[chr] 
    ;@ (= sndLine):[chr] 
    < (take):[int] 
        ;$ (= sndInt):int 
        > (drop):[int] 
            2 (integer):int 
            `' (transpose):[int] -->let( J:[int] I:[int] H:[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( G:int ) 
                            * (multiply):int 
                                + (add):int 
                                    ^ (pow):int 
                                        21 (integer):int 
                                        + (add):int 
                                            $ (= F):int 
                                            ~ (auto = 1):auto 
                                    ~ (auto = 1):auto 
                                ;@ (= B):int 
                        % (modulus):int 
                            + (add):int 
                                + (add):int 
                                    ;_ (= B):int 
                                    $ (= G):int 
                                ;;$ (= A):int 
                            463 (integer):int