Problem: A001037 long
Code: A001037+long/tails+%28xnor%29_1691059537
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)
/ (foldr):[int] -->let( G:int ) \ (reverse):[int] , (range from 1):[int] 50 (integer):int ~ (tuple):[int],int _ (= ints):[int] $ (= fstInt):int (implicit tuple):[int],int <--arg( C:int B:[int] A:int ) : (append):[int] @ (= B):[int] / (divide):int ; (save):int -->let( F:int ) - (subtract):int ; (save):int -->let( D:int ) ^ (pow):int 2 (integer):int $ (= C):int % (modulus):int / (divide):int ;$ (= A):int ; (save):int -->let( E:int ) ^ (pow):int $ (= D):int 50 (integer):int @ (= D):int ;$ (= C):int + (add):int ;_ (= A):int * (multiply):int / (divide):int ^ (pow):int @ (= E):int 10 (integer):int - (subtract):int @ (= E):int ~ (auto = 1):auto (implicit arg = F):int