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[int]
* 1;;@ = sndLine[chr]
* 1, range from 1[int]A:chr
** 2~ auto = infinityauto
* 1~ zipop: bynull
* 1% modulusintC:chr B:int
** 2$ = Cchr
** 2? if/elsechr
*** 3% modulusint
**** 4_ = fstIntint
**** 4~ auto = 2auto
*** 3`) to uppercasechrD:int
**** 4@ = Cchr
*** 3`( to lowercasechr
**** 4$ = Cchr

Back to the index