Problem: McCarthy 91 function

Code: McCarthy+91+function/tails_1644921716

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[[chr]]
* 1<~ take while[int,int,int]
** 2`. iterate while uniq[int,int,int]
*** 3~~ 3-ary tupleint,int,int
**** 41 integerint
**** 4$ = fstIntint
**** 4$ = fstIntint
*** 3implicit tupleint,int,intC:int B:int A:int
**** 4? if/elseintE:int
***** 5- subtractint
****** 6@ = Bint
****** 6^ powint
******* 7~ auto = 10auto
******* 7~ auto = 2auto
***** 5~ tupleint,intD:int
****** 6- subtractint
******* 7@ = Cint
******* 7~ auto = 1auto
****** 6- subtractint
******* 7_ = Bint
******* 710 integerint
***** 5implicit tupleint,int
****** 6+ addint
******* 7$ = Cint
******* 7~ auto = 1auto
****** 6+ addint
******* 711 integerint
******* 7@ = Bint
**** 4$ = Eint
**** 4@ = Cint
** 2_ = FintH:int G:int F:int
* 1: append[chr]N:int M:int L:int K:int J:int I:int
** 2: append[chr]
*** 3^ replicate[chr]
**** 4$ = Nint
**** 4"M(" string[chr]
*** 3@ = Mint
** 2^ replicate[chr]
*** 3$ = Nint
*** 3")" string[chr]