testlist <- list(kmax = 1354423213L, x = structure(c(2.68881539615423e-24,  7.81528900544019e+236, 3.13592708183374e+156, 6.6947318200905e+156,  8.4263629597648e-159, 2.42987386959095e+82, 1.04397851279865e+80,  3.04588606688489e+128, 1.10883129358143e+139, 9.83402056732403e-310,  7.43356638435133e+150, 123075602109362544), .Dim = c(2L, 6L)))
result <- do.call(RcppDynProg::solve_interval_partition_k,testlist)
str(result)