Problem: Shorter Roman Numerals

Code: Shorter+Roman+Numerals/darrenks_1703193274

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 
    + (sum):int <--arg( A:int ) 
        . (map):[int] 
            `p (int to str):[chr] 
                $ (= A):int 
            - (subtract):int <--arg( B:chr ) 
                ~ (auto = 1):auto 
                `# (hashmod):int 
                    $ (= B):chr 
                    4 (hashmod arg):null 
(postdata (hex): hashmod)
92843