Problem: alternating case lines

Code: alternating+case+lines/tails_1645795701

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! zip with[[chr]]
* 1;;@ = allLines[[chr]]
* 1, range from 1[int]A:[chr]
** 2~ auto = infinityauto
* 1~ zipop: bynull
* 1. map[chr]C:[chr] B:int
** 2$ = C[chr]
** 2? if/elsechrD:chr
*** 3% modulusint
**** 4_ = Bint
**** 4~ auto = 2auto
*** 3`) to uppercasechrE:int
**** 4@ = Dchr
*** 3`( to lowercasechr
**** 4$ = Dchr