Problem: Magic square

Code: Magic+square/darrenks_1640145890

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) 
    , (range from 1) 
        $ (= fstInt) 
    . (map) <--arg( A ) 
        , (range from 1) 
            @ (= fstInt) 
        & (justify) <--arg( B ) 
            " " (string) 
            3 (integer) 
            + (add) 
                + (add) 
                    % (modulus) 
                        + (add) 
                            + (add) 
                                - (subtract) 
                                    @ (= A) 
                                    * (multiply) 
                                        $ (= B) 
                                        ~ (auto) 
                                $ (= B) 
                            / (divide) 
                                _ (= fstInt) 
                                ~ (auto) 
                        _ (= fstInt) 
                    ~ (auto) 
                * (multiply) 
                    % (modulus) 
                        - (subtract) 
                            @ (= A) 
                            * (multiply) 
                                $ (= B) 
                                ~ (auto) 
                        _ (= fstInt) 
                    _ (= fstInt) 

Back to the index