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

Back to the index