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