Problem: Peano arithmetic

Code: Peano+arithmetic/tails_1700571009

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 string concatenation[chr]
* 1implicit foldl1[chr]
** 2`% step[[chr]]
*** 3~ auto = 2auto
*** 3. map[[chr]]
**** 4; let[[chr]]A:[[chr]]
***** 5% split (remove empties)[[chr]]
****** 6@ = fstLine[chr]
****** 6~ auto = wordsauto
**** 4<< init[chr]B:[chr]
***** 5$ = B[chr]
** 2? if/else[[chr]]D:[chr] C:[chr]
*** 3? indexint
**** 4_ = A[[chr]]
**** 4"+" string[chr]
*** 3: append[chr]E:int
**** 4@ = D[chr]
**** 4_ = C[chr]
*** 3. map[[chr]]
**** 4$ = D[chr]
**** 4_ = C[chr]F:chr
* 1@ = fstIntint