Evaluating a function using arguments from a sliding window over a list AbsoluteTiming[Slide1[Mean, Range[1, 100000], 3]][[1]] ==> 3.487248 AbsoluteTiming[slide3[Mean, Range[1, 100000], 3]][[1]] ==> 0.119232 AbsoluteTiming[Developer`PartitionMap[Mean, Range[1, 100000], 3, 1]][[1]] ==> 0.088112