Problem: Triangular Text

Code: Triangular+Text/tails_1646213751

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 map):[[chr]] 
    `= (chunk by):[[chr,int]] 
        ! (zip with):[chr,int] 
            | (filter):[chr] 
                ;_ (= allInput):[chr] 
                $ (= A):chr <--arg( A:chr ) 
            + (concat):[int] <--arg( B:chr ) 
                . (map):[[int]] 
                    , (range from 1):[int] 
                        ~ (auto = infinity):auto 
                    ^ (replicate):[int] <--arg( C:int ) 
                        $ (= C):int 
                        : (append):[int] 
                            $ (= C):int 
                            ~ (auto = []):auto 
            , (zipop: make tuple):null 
        @ (= D):int <--arg( E:chr D:int ) 
    . (map):[chr] <--arg( G:[chr,int] F:[chr,int] ) 
        (implicit arg = G):[chr,int] 
        (implicit arg = I):chr <--arg( I:chr H:int )