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):[[chr]] 
    . (map):[[chr]] 
        `* (nary cartesian product):[[[chr]]] 
            . (map):[[[chr]]] 
                "DCM""LXC""VIX" (string list):[[chr]] 
                . (map):[[chr]] <--arg( A:[chr] ) 
                    \ (reverse):[int] 
                        `D (to base from data):[int] 
                            54 (to base from data arg):null 
                    ! (zip with):[chr] <--arg( B:int ) 
                        @ (= A):[chr] 
                        `@ (to base):[int] <--arg( C:chr ) 
                            3 (integer):int 
                            @ (= B):int 
                        = (zipop: subscript):null 
        + (concat):[chr] <--arg( D:[[chr]] ) 
            $ (= D):[[chr]] 
    "M" (string):[chr] 
(postdata (hex): to base from data)
60ebace9a1408c