testlist <- list(x = c(NA, "bgobpurvacavhln", "qterqunhsyoyrgxyguqe", "vxdcntgugwviqlckmcqs",  "mzg", "nbsilul", "zmnlill", NA, "jkzktbg", "rqclgizxmotxikntswwb",  "jmljbgiwjenzzoeoolev", "idpvpfhzfxlfdrdzxekh", "jo", NA, "qzaxioopcjjee",  "tmtzwvwqglmyoznijqbs", "vponncurdqnbh", NA, "safbzscmzowhzfsyfxer",  "qrsywdifbeotxgpwvuem", NA, "lv", NA, NA, NA, "axiiceupzrqegiy",  "qxohmjwazoqghlzusgrj", NA), y = c("dyfbhsphvdokwcrellhx", "lpbmliapcxocuhtjylmt",  "ytotpnivdghucotglhcj", "myomzfipwnitvzefsaxe", NA, NA, NA, "cmtrengqgsqxrhljqsmq",  "uuzwfkh", "rclbjpnbeksroiengcnv", "anlbhmvug", "chzrrqgbquptnugbtlvj",  "jjjfyqirfrrafyoyriix", NA, "iiguhuwxehhxaztzgaaa", "wibwgofgeyeygquyrhkl",  "hkwhcp", "d", "weqcrlwz", "ztefspkcaqdbyvvqbdvj", NA, "vvkrxvjnmicqxmybnota",  NA, NA, "xysdzvzjfyktbuuwitmk", "sxmprbszpnndzdmgfkpu", "mehyq",  "", "mbvsxoghyqvqadehtbvo", "yospvvjjxnc", "iwllbuoqu", "cc",  "dimkezoqdfnkwgniogub", "lxfoi", "mavsipzzqgagl", "svybnjkqpl",  "koggmklhzhkibv", "ishhslojbxovuuhhjtli", NA, "petdsnxxdleqqyfvcgrd",  "sghuzqkgdgpirtwxuwal", "zdfxvkmedubfzdafd", "mteodxqdsuljvistfgke",  NA, "xukwodzaaeipmybgcbfz", NA, NA, NA, NA, "biwsegjpgxddabqhbkqr",  "euolozdiuhpdzmxucedz", NA, "jjs"))
result <- do.call(jiebaR:::cpp_ham_dist_mat,testlist)
str(result)