Problem: A001037

Code: A001037/tails+%28xnor%29_1691059896

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)

/ (foldr) -->let( G ) 
    \ (reverse) 
        , (range from 1) 
            20 (integer) 
    ~ (tuple) 
        _ (= ints) 
        $ (= fstInt) 
    (implicit tuple) <--arg( C B A ) 
        : (append) 
            @ (= B) 
            / (divide) 
                ; (save) -->let( F ) 
                    - (subtract) 
                        ; (save) -->let( D ) 
                            ^ (pow) 
                                2 (integer) 
                                $ (= C) 
                        % (modulus) 
                            / (divide) 
                                ;$ (= A) 
                                ; (save) -->let( E ) 
                                    ^ (pow) 
                                        $ (= D) 
                                        ;@ (= fstInt) 
                            @ (= D) 
                ;$ (= C) 
        + (add) 
            ;_ (= A) 
            * (multiply) 
                / (divide) 
                    ^ (pow) 
                        @ (= E) 
                        10 (integer) 
                    - (subtract) 
                        @ (= E) 
                        ~ (auto = 1) 
                (implicit arg = F)