Problem: Derangements

Code: Derangements/tails_1645189937

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)

(implicit map) 
    | (filter) 
        ``p (permutations) 
            , (range from 1) 
                6 (integer) 
        `* (product) <--arg( A ) 
            ! (zip with) 
                $ (= A) 
                , (range from 1) <--arg( B ) 
                    6 (integer) 
                ! (zipop: abs diff) 
    : (append) <--arg( D C ) 
        $ (= D) 
        ~ (auto)