IS
Есть возражения против https://reprex.tidyverse.org/index.html ?
Size: a a a
IS
ГД
IS
a
IS
IS
AS
ГД
library(stringdist)
a = c('my home', 'this flower', 'warm heart')
b = c('home empty', 'dog', 'war')
lcs = (nchar(a) + nchar(b) - stringdist(a, b, method = "lcs"))/2
lcs
# 4 1 3
AA
AA
AA
E
PU
PU
E
YS
nmb <- c(510, 1020, 35416)
nmb_new <- nmb / 10 ^ (nchar(nmb) - 1)
IS
E
IS
E