testlist <- list(x = structure(c(2.6969570564198e-289, 1.28737854772294e+241,  3.56718727887535e-175, 1.39624806214873e-81, 4.37315686600932e-104,  1.25335875511798e-127, 103.221411595604, 6.09184301594772e+78,  4.41012960738668e+38, 1.30580388849969e-299, 1.88243363534114e+163,  1.6078447889103e+71, 3.56813364105851e+262, 1.00083389868248e-199,  3.44519137871255e-93, 1.21436414496556e+292, 1.26223773179948e-182,  9.18808516356479e+246, 1.58669268346394e+148, 3.41667065334773e+44,  2.32669303562326e+236), .Dim = c(7L, 3L)))
result <- do.call(RcppDynProg::solve_interval_partition_no_k,testlist)
str(result)