Problem: Back and forth

Code: Back+and+forth/tails_1645683363

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
0/ foldr[[chr]]J:int
* 1\ reverse[[[chr]]]
** 2`/ chunks of[[[chr]]]
*** 3~ auto = 2auto
*** 3% split (remove empties)[[chr]]
**** 4;_ = allInput[chr]
**** 4~ auto = wordsauto
* 1~ tuple[[chr]],int
** 2% split (remove empties)[[chr]]
*** 3"" string[chr]
*** 3~ auto = wordsauto
** 20 integerint
* 1implicit tuple[[chr]],intC:[[chr]] B:[[chr]] A:int
** 2: append[[chr]]
*** 3@ = B[[chr]]
*** 3`: list of 2 lists[[chr]]
**** 4& justify[chr]
***** 5" " string[chr]
***** 5; saveintF:int
****** 6+ addint
******* 7, lengthint
******** 8/ foldr1[chr]
********* 9$ = C[[chr]]
********* 9$ = E[chr]E:[chr] D:[chr]
******* 7_ = Aint
***** 5/ foldr1[chr]
****** 6@ = C[[chr]]
****** 6$ = H[chr]H:[chr] G:[chr]
**** 4& justify[chr]
***** 5" " string[chr]
***** 5$ = Fint
***** 5\ reverse[chr]
****** 6; save[chr]I:[chr]
******* 7=~ subscript nowrap[chr]
******** 82 integerint
******** 8@ = C[[chr]]
** 2- subtractint
*** 3@ = Fint
*** 3, lengthint
**** 4implicit arg = I[chr]