计算数据框行上的欧几里得距离

Question

说我有一个像这样的数据框：

d<-data.frame(x=c(400.4,400.2,400.1,394.3,396.5),
           y=c(330.2,330.2,330.1,289.9,288.8))

我可以像这样计算前两行的欧几里得距离：

dist(d[1:2,]) #0.2

如果我希望对每个连续的行执行此操作，例如行1＆2、2＆3、3＆4等之间的距离。我编写了一个for循环，但是成千上万行的速度非常慢。有更有效的方法吗？