Problem: Chess960

Code: Chess960/tails+%28darrenks%28rotary-o%29%2Cv0.24%29_1645706780

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)

/ (foldr):[chr] 
    \ (reverse):[int,chr] 
        ! (zip with):[int,chr] 
            : (append):[int] 
                = (subscript (wrapped)):[int] 
                    + (add):int 
                        `/ (divmod):int -->let( B:int ) 
                            `/ (divmod):int -->let( A:int ) 
                                $ (= fstInt):int 
                                16 (integer):int 
                            6 (integer):int 
                        ~ (auto = 1):auto 
                    `_ (subsequences):[[int]] 
                        ~ (auto = 2):auto 
                        `, (range from 0):[int] 
                            5 (integer):int 
                : (append):[int] 
                    $ (= B):int 
                    `< (sort):[int] 
                        : (append):[int] 
                            * (multiply):int 
                                `/ (divmod):int -->let( C:int ) 
                                    @ (= A):int 
                                    4 (integer):int 
                                ~ (auto = 2):auto 
                            + (add):int 
                                * (multiply):int 
                                    $ (= C):int 
                                    ~ (auto = 2):auto 
                                ~ (auto = 1):auto 
            "NNQBB" (string):[chr] <--arg( D:int ) 
            , (zipop: make tuple):null 
    "RKR" (string):[chr] <--arg( H:int G:chr F:int E:chr ) 
    : (append):[chr] <--arg( K:int J:chr I:[chr] ) 
        `< (take also drop):[chr] -->let( L:[chr] ) 
            $ (= K):int 
            _ (= I):[chr] 
        : (append):[chr] 
            _ (= J):chr 
            (implicit arg = L):[chr]