25 lines
686 B
R
25 lines
686 B
R
|
#' @title Number of M queues
|
|||
|
|
#' @param line line number
|
|||
|
|
#' @return count
|
|||
|
|
#' @export
|
|||
|
|
rivinSisaltamienMjonojenLkm <- function(line) {
|
|||
|
|
# Palauttaa line:n sis<69>lt<6C>mien mjonojen lukum<75><6D>r<EFBFBD>n.
|
|||
|
|
# Mjonojen v<>liss?t<>ytyy olla v<>lily<6C>nti.
|
|||
|
|
count <- 0
|
|||
|
|
pit <- length(line)
|
|||
|
|
tila <- 0 # 0, jos odotetaan v<>lily<6C>ntej? 1 jos odotetaan muita merkkej?
|
|||
|
|
for (i in seq_len(pit)) {
|
|||
|
|
merkki <- line[i]
|
|||
|
|
if (merkki == " " & tila == 0) {
|
|||
|
|
# Ei tehd?mit<69><74>n.
|
|||
|
|
} else if (merkki == " " & tila == 1) {
|
|||
|
|
tila <- 0
|
|||
|
|
} else if (merkki != " " & tila == 0) {
|
|||
|
|
tila <- 1
|
|||
|
|
count <- count + 1
|
|||
|
|
} else if (merkki != " " & tila == 1) {
|
|||
|
|
# %Ei tehd?mit<69><74>n
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
return(count)
|
|||
|
|
}
|