Problem: Arithmetic derivative

Code: Arithmetic+derivative/tails_1696492229

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):[[chr]] 
    % (split (remove empties)):[[chr]] 
        @ (= fstLine):[chr] 
        ~ (auto = words):auto 
    ? (if/else):[chr] <--arg( B:[chr] A:[chr] ) 
        == (equal?):int 
            $ (= B):[chr] 
            ; (save):int <--arg( C:[chr] ) -->let( D:int ) 
                `r (read int):int 
                    @ (= B):[chr] 
        + (sum):int <--arg( E:int ) -->let( N:[int] ) 
            `. (iterate while uniq):[int,int] 
                ~ (tuple):int,int 
                    0 (integer):int 
                    @ (= D):int 
                (implicit tuple):int,int <--arg( G:int F:int ) 
                    ? (if/else):int -->let( M:int ) 
                        - (subtract):int 
                            ^ (pow):int 
                                @ (= F):int 
                                ~ (auto = 2):auto 
                            ~ (auto = 1):auto 
                        ~ (tuple):int,int <--arg( H:int ) 
                            / (divide):int 
                                ;@ (= D):int 
                                ; (save):int -->let( L:int ) 
                                    / (foldr1):int 
                                        | (filter):[int] 
                                            >> (tail):[int] 
                                                , (range from 1):[int] 
                                                    ~ (auto = infinity):auto 
                                            ~ (not):null 
                                            % (modulus):int <--arg( I:int ) 
                                                ;$ (= F):int 
                                                $ (= I):int 
                                        $ (= K):int <--arg( K:int J:int ) 
                            / (divide):int 
                                ;$ (= F):int 
                                $ (= L):int 
                        ~ (default):null 
                    $ (= M):int 
        `D (to base from data):[chr] 
            -75 (to base from data arg):null 
(postdata (hex): to base from data)
3e3e66fcd37f68454ee77a7a5ce6be8f875f7717b2af
("Wait, that\'s not a number...")