Problem: prime powers

Code: prime+powers/tails_1645247976

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)

| (filter):[int] 
    ; (save):[int] -->let( A:[int] ) 
        >> (tail):[int] 
            , (range from 1):[int] 
                ;$ (= sndInt):int 
    ~ (not):null 
    % (modulus):int <--arg( B:int ) 
        ^ (pow):int 
            / (foldr1):int 
                | (filter):[int] 
                    @ (= A):[int] 
                    ~ (not):null 
                    % (modulus):int <--arg( C:int ) 
                        @ (= B):int 
                        (implicit arg = C):int 
                (implicit arg = E):int <--arg( E:int D:int ) 
            (implicit arg = B):int 
        (implicit arg = B):int