Problem: Shorter Roman Numerals

Code: Shorter+Roman+Numerals/tails_1703134971

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)

| (filter):[int] 
    , (range from 1):[int] 
        3000 (integer):int 
    > (drop):[chr] <--arg( A:int ) 
        + (sum):int 
            ! (zip with):[int] 
                `D (to base from data):[int] 
                    5 (to base from data arg):null 
                ; (save):[chr] <--arg( B:int ) -->let( C:[chr] ) 
                    `p (int to str):[chr] 
                        @ (= A):int 
                = (zipop: subscript):null 
        $ (= C):[chr] 
(postdata (hex): to base from data)
672e94