Problem: stable partition

Code: stable+partition/darrenks_1640230125

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)

+ (concat):[chr] 
    =~ (group all by):[[chr]] 
        @ (= fstLine):[chr] 
        `$ (signum):int <--arg( A:chr ) 
            - (subtract):int 
                $ (= A):chr 
                / (foldr1):chr 
                    _ (= fstLine):[chr] 
                    (implicit arg = C):chr <--arg( C:chr B:chr )