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) 
    ;@ (= sndLine) 
    < (take) 
        ;$ (= sndInt) 
        > (drop) 
            2 (integer) 
            `' (transpose) -->let( J I H ) 
                `. (iterate while uniq) 
                    ~~~ (4-ary tuple) 
                        0 (integer) 
                        0 (integer) 
                        1 (integer) 
                        1 (integer) 
                    (implicit tuple) <--arg( D C B A ) 
                        ; (save) -->let( F ) 
                            `$ (signum) 
                                `& (bit intersection) 
                                    ; (save) -->let( E ) 
                                        ^ (pow) 
                                            2 (integer) 
                                            ;$ (= A) 
                                    _ (= C) 
                        `^ (bit xor) 
                            ;$ (= C) 
                            @ (= E) 
                        ; (save) -->let( G ) 
                            * (multiply) 
                                + (add) 
                                    ^ (pow) 
                                        21 (integer) 
                                        + (add) 
                                            $ (= F) 
                                            ~ (auto = 1) 
                                    ~ (auto = 1) 
                                ;@ (= B) 
                        % (modulus) 
                            + (add) 
                                + (add) 
                                    ;_ (= B) 
                                    $ (= G) 
                                ;;$ (= A) 
                            463 (integer)