Problem: uppercase the 17th letter

Code: uppercase+the+17th+letter/darrenks_1684605276

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)

! (zip with):[chr] 
    @ (= fstLine):[chr] 
    , (range from 1):[int] <--arg( A:chr ) 
        ~ (auto = infinity):auto 
    ~ (zipop: by):null 
    - (subtract):chr <--arg( C:chr B:int ) 
        $ (= C):chr 
        * (multiply):int 
            == (equal?):int 
                @ (= B):int 
                ? (index):int <--arg( D:int ) 
                    `\ (special scans):[int] 
                        . (map):[int] 
                            ;@ (= fstLine):[chr] 
                            , (length):int <--arg( E:chr ) 
                                \ (char class):[chr] 
                                    $ (= E):chr 
                                    l (isLower):null 
                        + (foldop: add):null 
                    17 (integer):int 
            32 (integer):int