Problem: Equation Pyramid

Code: Equation+Pyramid/tails_1657279664

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 with implicit range):[[chr]] 
    9 (integer):int 
    / (foldr1):[chr] <--arg( B:int A:int ) 
        . (map):[[chr]] 
            `\ (n chunks):[[int]] 
                ~ (auto = 2):auto 
                + (add):[int] 
                    * (multiply):int 
                        $ (= B):int 
                        $ (= B):int 
                    `, (range from 0):[int] 
                        + (add):int 
                            + (add):int 
                                $ (= B):int 
                                $ (= B):int 
                            ~ (auto = 1):auto 
            * (join):[chr] <--arg( C:[int] ) 
                "+" (string):[chr] 
                . (map):[[chr]] 
                    $ (= C):[int] 
                    & (justify):[chr] <--arg( D:int ) 
                        " " (string):[chr] 
                        2 (integer):int 
                        $ (= D):int 
        : (append):[chr] <--arg( F:[chr] E:[chr] ) 
            & (justify):[chr] 
                " " (string):[chr] 
                29 (integer):int 
                $ (= F):[chr] 
            : (append):[chr] 
                "=" (string):[chr] 
                (implicit arg = E):[chr]