Problem: Strings in Strings

Code: Strings+in+Strings/darrenks_1640285972

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? if/else[chr]
* 1`* productint
** 2! zip with[int]
*** 3; let[[chr]]A:[[chr]]
**** 4% split (remove empties)[[chr]]
***** 5@ = fstLine[chr]
***** 5~ auto = wordsauto
*** 3>> tail[[chr]]B:[chr]
**** 4@ = A[[chr]]
*** 3~ zipop: bynull
*** 3- subtractintD:[chr] C:[chr]
**** 4, lengthint
***** 5% split (remove empties)[[chr]]
****** 6@ = C[chr]
****** 6$ = D[chr]
**** 4~ auto = 1auto
* 1"YES" string[chr]E:int
* 1"NO" string[chr]