Problem: Roman Numbers

Code: Roman+Numbers/tails_1706933055

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)

: (append) 
    . (map) 
        `* (nary cartesian product) 
            . (map) 
                "DCM""LXC""VIX" (string list) 
                . (map) <--arg( A ) 
                    \ (reverse) 
                        `D (to base from data) 
                            54 (to base from data arg) 
                    ! (zip with) <--arg( B ) 
                        @ (= A) 
                        `@ (to base) <--arg( C ) 
                            3 (integer) 
                            @ (= B) 
                        = (zipop: subscript) 
        + (concat) <--arg( D ) 
            $ (= D) 
    "M" (string) 
(postdata (hex): to base from data)
60ebace9a1408c