Problem: Electron Configuration

Code: Electron+Configuration/tails_1708060697

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) 
    =\ (scanl) 
        : (append) 
            0 (integer) 
            : (append) 
                . (map) 
                    , (range from 1) 
                        8 (integer) 
                    2 (integer) <--arg( A ) 
                + (add) 
                    4 (integer) 
                    \ (reverse) 
                        `D (to base from data) 
                            9 (to base from data arg) 
        1 (integer) <--arg( C B ) 
        + (add) <--arg( E D ) 
            * (multiply) 
                ^ (pow) 
                    - (subtract) 
                        2 (integer) 
                        _ (= fstInt) 
                    `% (moddiv) -->let( F ) 
                        $ (= E) 
                        ~ (auto = 2) 
                ^ (pow) 
                    ;$ (= fstInt) 
                    $ (= F) 
            _ (= D) 
    + (concat) <--arg( G ) 
        ! (zip with) 
            , (range from 1) 
                ~ (auto = infinity) 
            \ (reverse) <--arg( H ) 
                `@ (to base) 
                    _ (= fstInt) 
                    @ (= G) 
            ~ (zipop: by) 
            . (map) <--arg( J I ) 
                ! (zip with) 
                    "spdf" (string) 
                    | (filter) <--arg( K ) 
                        =\ (scanl) 
                            , (range from 1) 
                                4 (integer) 
                            ~ (tuple) 
                                0 (integer) 
                                _ (= I) 
                            (implicit tuple) <--arg( N M L ) 
                                ; (save) -->let( O ) 
                                    [ (min) 
                                        _ (= L) 
                                        - (subtract) 
                                            * (multiply) 
                                                4 (integer) 
                                                $ (= N) 
                                            2 (integer) 
                                - (subtract) 
                                    ;$ (= L) 
                                    $ (= O) 
                        $ (= Q) <--arg( Q P ) 
                    : (zipop: cons) 
                : (append) <--arg( R ) 
                    @ (= J) 
                    $ (= R) 
(postdata (hex): to base from data)
22f9073c5ada8a442182e91f60710e72e4baed685a15094bda95d433ec7ec504313502d