a<-as.numeric(str_split(c(«76 _ 4 _ 51 _ 3»),"_", simplify = T))
b<-c("*","-", "/","+")
for (i in 1:4) for (j in 1:4) for (k in 1:4)
if (eval(parse(text=paste0(a[1], b[i], a[2] ,b[j], a[3], b[k], a[4] )))==36) print(c(b[i],b[j],b[k]))
А нельзя ли решать эту задачу через теорию сравнительных преимуществ?
Попарные относительные преимущества относительно друг друга или такое решение неявно и сведется к данному алгоритму?
Да, в любую сторону, и иногда, например в конвейерных пайпах, логичнее и «красивее» записать результат справа (dt%>%filter()%>%group_by()%>%summarize()->res)
Можно еще проще и короче
# тестовые данные:
testdata < — floor(runif(10000, min = 1, max = 10))
# длинa самой большой возрастающей подпоследовательности в массиве:
max(diff(grep(0, ifelse(diff(testdata)>0,1,0))))
Это делается одной строчкой (как передачей через строку, так и сохранением на сервере)
Прошло 7 лет - Покупка оптимальной квартиры с R, а все тоже самое)
b<-c("*","-", "/","+")
for (i in 1:4) for (j in 1:4) for (k in 1:4)
if (eval(parse(text=paste0(a[1], b[i], a[2] ,b[j], a[3], b[k], a[4] )))==36) print(c(b[i],b[j],b[k]))
Каких кандидатов? контент наверное, ведь ниже сказано, что в файле отправки пользователи должны идти просто по порядку id
2.
1_2 видимо, а не 2_2
а стемминг можно сделать из пакета SnowcallC
Попарные относительные преимущества относительно друг друга или такое решение неявно и сведется к данному алгоритму?
11 093 резюме это сильно завышено.
В js-реализациях диаграмм, нажатие (наведение) уже включено в св-ва объекта обычно.
# тестовые данные:
testdata < — floor(runif(10000, min = 1, max = 10))
# длинa самой большой возрастающей подпоследовательности в массиве:
max(diff(grep(0, ifelse(diff(testdata)>0,1,0))))