Problem: SMB3 15 bit LFSR

Code: SMB3+15+bit+LFSR/tails_1696901109

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)

< (take):[int] 
    + (add):int 
        $ (= fstInt):int 
        ~ (auto = 1):auto 
    `. (iterate while uniq):[int] 
        ; (save):int -->let( A:int ) 
            16384 (integer):int 
        + (add):int <--arg( B:int ) 
            `& (bit intersection):int 
                * (multiply):int 
                    + (add):int 
                        64 (integer):int 
                        @ (= A):int 
                    $ (= B):int 
                @ (= A):int 
            / (divide):int 
                $ (= B):int 
                ~ (auto = 2):auto