Problem: Modular Exponentiation

Code: Modular+Exponentiation/tails_1646227623

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 foldl1) 
    : (append) 
        2 (integer) 
        , (range from 1) 
            $ (= fstInt) 
    % (modulus) <--arg( B A ) 
        ^ (pow) 
            @ (= A) 
            10 (integer) 
        ^ (pow) 
            ~ (auto = 10) 
            ;_ (= sndInt)