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