Problem: Twelve

Code: Twelve/darrenks_1642441177

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)

= (subscript (wrapped)):[chr] 
    + (add):int 
        + (sum):int 
            ! (zip with):[int] 
                >> (tail):[chr] 
                    ; (let):[chr] -->let( A:[chr] ) 
                        : (append):[chr] 
                            `, (range from 0):[int] 
                                10 (integer):int 
                            "AB" (string):[chr] 
                ;$ (= fstLine):[chr] <--arg( B:chr ) 
                ? (zipop: index):null 
        ~ (auto = 1):auto 
    : (append):[[chr]] 
        `' (transpose):[[chr]] 
            $ (= A):[chr] 
        . (map):[[chr]] 
            $ (= A):[chr] 
            : (append):[chr] <--arg( C:chr ) 
                1 (integer):int 
                (implicit arg = C):chr