Problem: Letter Primes

Code: Letter+Primes/tails_1705892071

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)

: (append) 
    1 (integer) 
    `' (transpose) 
        + (add) 
            '@' (char) 
            ! (zip with) 
                `< (sort) 
                    `$ (uniq) 
                        ; (save) -->let( D ) 
                            . (map) 
                                ; (save) -->let( A ) 
                                    << (init) 
                                        >> (tail) 
                                            , (range from 1) 
                                                $ (= fstInt) 
                                ? (index) <--arg( B ) 
                                    @ (= A) 
                                    ~ (by) 
                                    ~ (not) 
                                    % (modulus) <--arg( C ) 
                                        @ (= B) 
                                        $ (= C) 
                @ (= D) <--arg( E ) 
                ? (zipop: index)