R中mergesort中的比较数

我正在用R写一个合并排序。我有两个函数。第一个是mergelist（）

但它又回来了

$number
[1] 30

$data
 [1]  6  7  8  9 10 11 12 15 17 19

所以这意味着它计算了一个不应该进行的比较。我不知道在哪里。有人能告诉我我做错了什么吗？

你的代码不应该吗

p <- ceiling(**1**/2)

---

p很高兴它有帮助：）
$number [1] 22
$data [1] 6 7 8 9 10 11 12 15 17 19

$number
[1] 30

$data
 [1]  6  7  8  9 10 11 12 15 17 19

p <- ceiling(**1**/2)

p <- ceiling(**l**/2)