ダメ出し：小細工せずに素直に（あるいは，効果を確かめてから） その2

驚くべきことに（??）

    w <- matrix(a, 2)[2,]

は

    v <- a[1:(n%/%2)*2L]                        # 最速！！

と同じくらいに速い。