Problem: Partition function

Code: Partition+function/tails+%28recursion%29_1645535116

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 with implicit range):[[chr]] 
    $ (= fstInt):int 
    : (append):[chr] <--arg( B:int A:int ) 
        : (append):[chr] 
            : (append):[chr] 
                "p(" (string):[chr] 
                $ (= B):int 
            ")=" (string):[chr] 
        `; (recursion):int 
            ~ (tuple):int,int 
                $ (= B):int 
                $ (= B):int 
            (cond,base,rec):null <--arg( D:int C:int E:fn(int,int->int) ) 
                + (add):int 
                    @ (= C):int 
                    ~ (auto = 1):auto 
                0 (integer):int 
                ? (if/else):int 
                    $ (= D):int 
                    + (add):int <--arg( F:int ) 
                        ;$ (= E):int 
                            - (subtract):int 
                                @ (= D):int 
                                ~ (auto = 1):auto 
                            _ (= C):int 
                        ;$ (= E):int 
                            @ (= D):int 
                            - (subtract):int 
                                _ (= C):int 
                                @ (= D):int 
                    ^ (pow):int 
                        0 (integer):int 
                        @ (= C):int