Problem: kaprekars routine

Code: kaprekars+routine/tails_1766045584

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>> tail[[chr]]
* 1`. iterate while uniq[[chr]]
** 2@ = fstLine[chr]
** 2& justify[chr]A:[chr]
*** 3"0" string[chr]
*** 3, lengthint
**** 4$ = A[chr]
*** 3- subtractint
**** 4`r read intint
***** 5\ reverse[chr]
****** 6; save[chr]B:[chr]
******* 7`< sort[chr]
******** 8$ = A[chr]
**** 4`r read intint
***** 5$ = B[chr]

Back to the index