Problem: Not Pascal Triangle

Code: Not+Pascal+Triangle/tails_1646627194

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)

< (take):[[int]] 
    20 (integer):int 
    | (filter):[[int]] 
        `. (iterate while uniq):[[int]] 
            _ (= ints):[int] 
            ! (zip with):[int] <--arg( A:[int] ) 
                : (append):[int] 
                    1 (integer):int 
                    \ (reverse):[int] 
                        $ (= A):[int] 
                : (append):[int] <--arg( B:int ) 
                    \ (reverse):[int] 
                        @ (= A):[int] 
                    0 (integer):int 
                + (zipop: add):null 
        (implicit arg = C):[int] <--arg( C:[int] )