testlist <- list(kmax = 1666114722L, x = structure(c(2.2836359792536e+172,  1.11963415625277e-82, 1.09117172659866e-16, 6.47863592989429e+85,  3.13834430890743e-26, 1.70560446739525e-308, 2.01523647395021e+52,  9.44135839594843e-245, 3.95075408437362e+28, 1.28657049498892e-54,  1.56717470913987e+200, 5.52794816769634e+197, 5406.45528624355,  1.70466318750203e-169, 5.9336471885062e+282, 7.82283354246949e-254,  1.26177783189528e+84, 9.39572389188151e-280, 5.2867596200833e+174,  1.71135124771876e-77), .Dim = c(2L, 10L)))
result <- do.call(RcppDynProg::solve_interval_partition,testlist)
str(result)