Problem: Prime Numbers

Code: Prime+Numbers/Dingledooper_1640233280

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)

< (take) 
    $ (= fstInt) 
    | (filter) 
        , (range from 1) 
            ~ (auto = infinity) 
        % (modulus) <--arg( A ) 
            ^ (pow) 
                `* (product) 
                    , (range from 1) 
                        - (subtract) 
                            $ (= A) 
                            ~ (auto = 1) 
                (implicit arg = A) 
            (implicit arg = A)