Search
Write a publication
Pull to refresh
0
0
Send message
# R
print((nchar("Конкурс на лучшую программную реализацию, выводящую число сорок два") - nchar("Главный вопрос жизни, вселенной и всего такого")) * 2)
Простенький код на R:

# тестовые данные:
testdata <- floor(runif(10000, min = 1, max = 10))
# вспомогательный датафрейм:
temp_data <- data.frame(testdata)
temp_data$prev[2:nrow(temp_data)] <- temp_data$testdata[1:nrow(temp_data)-1]
temp_data$diff_prev <- temp_data$testdata - temp_data$prev
temp_data$incr <- ifelse(temp_data$diff_prev > 0 , 1, 0) # показатель возрастания
# преобразование в строку
str <- paste(temp_data$incr, collapse = "")
library(stringr)
str_vector <- str_split(str, "0")[[1]]
# длинa самой большой возрастающей подпоследовательности в массиве:
max(nchar(str_vector )) + 1
Гораздо проще использовать google analytics api: developers.google.com/analytics

Information

Rating
Does not participate
Registered
Activity