Problem: Life Liberty and Property

Code: Life+Liberty+and+Property/tails_1681268499

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)

. (map):[int,[chr]] 
    - (diff):[chr] 
        `$ (uniq):[chr] 
            `< (sort):[chr] 
                ; (save):[chr] -->let( A:[chr] ) 
                    \ (reverse):[chr] 
                        ;_ (= allInput):[chr] 
        ".\n" (string):[chr] 
    ~ (tuple):int,[chr] <--arg( B:chr ) 
        ; (save):int -->let( H:int ) 
            + (sum):int 
                ! (zip with):[int] 
                    > (drop):[int] 
                        22 (integer):int 
                        \ (reverse):[int] 
                            `@ (to base):[int] 
                                ~ (auto = 10):auto 
                                `* (product):int 
                                    : (append):[int] 
                                        + (add):[int] 
                                            ^ (pow):int 
                                                ~ (auto = 10):auto 
                                                21 (integer):int 
                                            : (append):[int] 
                                                1 (integer):int 
                                                _ (= fstInt):int 
                                        `@ (from base):int 
                                            ~ (auto = 10):auto 
                                            . (map):[int] 
                                                \ (reverse):[chr] 
                                                    @ (= A):[chr] 
                                                == (equal?):int <--arg( C:chr ) 
                                                    $ (= C):chr 
                                                    _ (= B):chr <--arg( D:chr ) 
                    _ (= A):[chr] <--arg( E:int ) 
                    ~ (zipop: by):null 
                    ? (index):int <--arg( G:int F:chr ) 
                        < (take):[chr] 
                            $ (= G):int 
                            "." (string):[chr] 
                        @ (= F):chr 
        ^ (replicate):[chr] 
            $ (= H):int 
            @ (= B):chr