Problem: modular inverse

Code: modular+inverse/whio_1763218624

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) 
    `) (swapped uncons) -->let( A ) 
        , (range from 1) 
            $ (= fstInt) 
    | (filter) <--arg( C B ) 
        . (map) 
            , (range from 1) 
                $ (= C) 
            ? (index) <--arg( D ) 
                . (map) 
                    * (multiply) 
                        $ (= D) 
                        ; (save) -->let( E ) 
                            , (range from 1) 
                                @ (= C) 
                    = (subscript (wrapped)) <--arg( F ) 
                        (implicit arg = F) 
                        (implicit arg = E) 
                (implicit arg = A) 
        (implicit arg = G) <--arg( G )