Problem: divisor polynomials

Code: divisor+polynomials/whio_1761761023

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)

(implicit map with implicit range) 
    * (multiply) 
        $ (= fstInt) 
        ~ (auto = 2) 
    * (join) <--arg( B A ) 
        "+" (string) 
        % (split (remove empties)) 
            + (concat) 
                ! (zip with) 
                    : (append) 
                        << (init) 
                            \ (reverse) 
                                ! (zip with) 
                                    ^ (replicate) 
                                        ~ (auto = infinity) 
                                        " ""-" (string list) 
                                    `@ (to base) <--arg( C ) 
                                        ; (save) -->let( D ) 
                                            ^ (pow) 
                                                ~ (auto = 10) 
                                                ;$ (= fstInt) 
                                        `* (product) 
                                            . (map) 
                                                | (filter) 
                                                    , (range from 1) 
                                                        _ (= B) 
                                                    ~ (not) 
                                                    % (modulus) <--arg( E ) 
                                                        ;$ (= B) 
                                                        $ (= E) 
                                                + (add) <--arg( F ) 
                                                    @ (= D) 
                                                    $ (= F) 
                                    : (zipop: cons) 
                        " " (string) 
                    . (map) <--arg( G ) 
                        `, (range from 0) 
                            @ (= D) 
                        < (take) <--arg( H ) 
                            + (sum) 
                                , (range from 1) 
                                    $ (= H) 
                            : (append) 
                                "x^" (string) 
                                $ (= H) 
                    : (zipop: cons) 
            ~ (auto = words)