Problem: pascal golf

Code: pascal+golf/tails_1693450823

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`& bit intersectionint
** 2; saveintA:int
*** 3`r read intint
**** 4@ = fstLine[chr]
** 2; saveintB:int
*** 3- subtractint
**** 4$ = Aint
**** 4~ auto = 1auto
* 1;@ = fstLine[chr]C:int
* 1: append[chr]
** 2$ = Bint
** 2"and x" string[chr]