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)

(implicit string concatenation):[chr] 
    >> (tail):[[chr]] 
        `. (iterate while uniq):[[chr]] 
            @ (= fstLine):[chr] 
            & (justify):[chr] <--arg( A:[chr] ) 
                "0" (string):[chr] 
                , (length):int 
                    $ (= A):[chr] 
                = (subscript (wrapped)):chr 
                    r (read str at base):int 
                        \ (reverse):[chr] 
                            ; (let):[chr] -->let( B:[chr] ) 
                                `< (sort):[chr] 
                                    $ (= A):[chr] 
                        10 (integer):int 
                    $ (= B):[chr] 
    10 (integer):int <--arg( D:[chr] C:[chr] )