Problem: Old Magician

Code: Old+Magician/tails_1642263306

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)

! (zip with):[[chr],[chr]] 
    , (range from 1):[int] 
        ~ (auto = infinity):auto 
    >> (tail):[[int]] <--arg( A:int ) 
        ;;@ (= intMatrix):[[int]] 
    ~ (zipop: by):null 
    ~ (tuple):[chr],[chr] <--arg( C:int B:[int] ) 
        : (append):[chr] 
            : (append):[chr] 
                "Case #" (string):[chr] 
                $ (= C):int 
            ":" (string):[chr] 
        = (subscript (wrapped)):[chr] 
            / (foldr1):int 
                @ (= B):[int] 
                @ (= D):int <--arg( E:int D:int ) 
            "BLACK""WHITE" (string list):[[chr]]