Problem: Growing Vines

Code: Growing+Vines/tails_1647241322

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< take[[chr]]
* 110 integerint
* 1`. iterate while uniq[[chr]]
** 2@ = fstLine[chr]
** 2. map[chr]A:[chr]
*** 3<< init[[chr]]
**** 4`\ special scans[[chr]]
***** 5: append[chr]
****** 6" " string[chr]
****** 6$ = A[chr]
***** 5; foldop: rev consnull
*** 3? if/elsechrB:[chr]
**** 4!= abs diffint
***** 5'\\' charchr
***** 5; savechrD:chr
****** 6`( unconschrC:[chr]
******* 7: append[chr]
******** 8$ = B[chr]
******** 8" " string[chr]
**** 4? if/elsechrE:int
***** 5; saveintJ:int
****** 6% modulusint
******* 7; savechrI:chr
******** 8/ foldr1chr
********* 9`) swapped uncons[chr]F:chr
********** 10_ = C[chr]
********* 9$ = HchrH:chr G:chr
******* 7~ auto = 2auto
***** 5_ = IchrK:int
***** 5? if/elsechr
****** 6/ divideint
******* 7_ = Fchr
******* 7; savechrL:chr
******** 8'|' charchr
****** 6@ = LchrM:int
****** 6~ defaultnull
**** 4? if/elsechr
***** 5@ = Jint
***** 5@ = LchrN:int
***** 5implicit arg = Dchr