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