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)


DepthLitDescTypeArgLet
0implicit map with implicit range[[chr]]
* 1$ = fstIntint
* 1: append[chr]B:int A:int
** 2: append[chr]
*** 3: append[chr]
**** 4"p(" string[chr]
**** 4$ = Bint
*** 3")=" string[chr]
** 2`; recursionint
*** 3~ tupleint,int
**** 4$ = Bint
**** 4$ = Bint
*** 3cond,base,recnullD:int C:int E:fn(int,int->int)
**** 4+ addint
***** 5@ = Cint
***** 5~ auto = 1auto
**** 40 integerint
**** 4? if/elseint
***** 5$ = Dint
***** 5+ addintF:int
****** 6;$ = Eint
******* 7- subtractint
******** 8@ = Dint
******** 8~ auto = 1auto
******* 7_ = Cint
****** 6;$ = Eint
******* 7@ = Dint
******* 7- subtractint
******** 8_ = Cint
******** 8@ = Dint
***** 5^ powint
****** 60 integerint
****** 6@ = Cint