R - Custom Sort

> `<.dfsc`
function(c1, c2) {
    return(lt_list(toList(c1),toList(c2)))
}

> lt_list
function(l1, l2) {
    n1 <- length(l1)
    n2 <- length(l2)
    j = 1
    while(j <= n1 && j <= n2) {
        if (l1[[j]] != l2[[j]]) {
            return (l1[[j]] < l2[[j]])
        }
        j = j + 1
    }
    return(n1 < n2)
}

> S1_E
[[1]]
[[1]][[1]]
[1] "(1,2,C,a,C)"

[[1]][[2]]
[1] 395

[[1]][[3]]
[1] 422


[[2]]
[[2]][[1]]
[1] "(1,2,C,d,C)"

[[2]][[2]]
[1] 378

[[2]][[3]]
[1] 422


[[3]]
[[3]][[1]]
[1] "(1,2,C,a,D)"

[[3]][[2]]
[1] 340

[[3]][[3]]
[1] 422


[[4]]
[[4]][[1]]
[1] "(1,2,B,a,C)"

[[4]][[2]]
[1] 326

[[4]][[3]]
[1] 422


[[5]]
[[5]][[1]]
[1] "(1,2,B,b,C)"

[[5]][[2]]
[1] 299

[[5]][[3]]
[1] 422

> class(S1_E[[1]][[1]])
[1] "dfsc"
> class(S1_E[[2]][[1]])
[1] "dfsc"

> S1_E[[1]][[1]] < S1_E[[1]][[1]]
[1] FALSE
> S1_E[[1]][[1]] < S1_E[[2]][[1]]
[1] TRUE
> S1_E[[3]][[1]] < S1_E[[2]][[1]]
[1] TRUE
> S1_E[[3]][[1]] < S1_E[[4]][[1]]
[1] FALSE