Return to Answer

added 6 characters in body

edited May 19, 2020 at 11:35

edited May 19, 2020 at 11:35

R, 72(削除) 72 (削除ここまで) 71 bytes

function(k,s)all(t(sapply(k,function(x)match(s,x,0)))<=<(lengths(k)+1+2)/2)

function(k,s)all(t(sapply(k,function(x)match(s,x,0)))<=(lengths(k)+1)/2)

function(k,s)all(t(sapply(k,function(x)match(s,x,0)))<(lengths(k)+2)/2)

answered May 15, 2020 at 22:12

answered May 15, 2020 at 22:12

function(k,s)all(t(sapply(k,function(x)match(s,x,0)))<=(lengths(k)+1)/2)