Problem: Blood Type Compatibility

Code: Blood+Type+Compatibility/tails_1737723005

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) 
    + (concat) 
        ; (save) -->let( D ) 
            . (map) 
                `* (nary cartesian product) 
                    `: (list of 2 lists) 
                        : (append) 
                            `' (transpose) 
                                ; (save) -->let( A ) 
                                    "OAB" (string) 
                            >> (tail) 
                                $ (= A) 
                        `' (transpose) 
                            "-+" (string) 
                : (append) <--arg( B ) 
                    ; (save) -->let( C ) 
                        "\x09" (string) 
                    + (concat) 
                        @ (= B) 
    ! (zip with) 
        $ (= D) 
        \ (reverse) <--arg( E ) 
            ; (save) -->let( F ) 
                `, (range from 0) 
                    8 (integer) 
        ~ (zipop: by) 
        : (append) <--arg( H G ) 
            >> (tail) 
                $ (= H) 
            + (concat) 
                . (map) 
                    _ (= F) 
                    : (append) <--arg( I ) 
                        ;_ (= C) 
                        > (drop) 
                            `& (bit intersection) 
                                _ (= G) 
                                $ (= I) 
                            "X" (string)