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