0564132人目の素数さん垢版 | 大砲2018/11/09(金) 10:10:01.39ID:Ui6BpICy >>563 センスないなあ。 rle01 <- function(x) { r <- rle(x) one <- r$values == 1 if (any(one)) max(r$length[one]) else 0 }