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
0implicit string concatenation[chr]
* 1>> tail[[chr]]
** 2`. iterate while uniq[[chr]]
*** 3@ = fstLine[chr]
*** 3& justify[chr]A:[chr]
**** 4"0" string[chr]
**** 4, lengthint
***** 5$ = A[chr]
**** 4= subscript (wrapped)chr
***** 5r read str at baseint
****** 6\ reverse[chr]
******* 7; let[chr]B:[chr]
******** 8`< sort[chr]
********* 9$ = A[chr]
****** 610 integerint
***** 5$ = B[chr]
* 110 integerintD:[chr] C:[chr]

Back to the index