testlist <- list(a = c("qwfhupwctcfvbmlviteb", "nmivwgjhhemzrechjozm", NA ), b = c("lma", NA, "seywccgsts", "vwjnwy", "ebre", NA, "qxwcinivgaj",  "vjccwowzqkzjjzmdqvzq", "pbltshalyprlomjnswhg", NA, "hhzyqhhkqcnnqbbbuhrd",  "brbojmzwlrousfpafwxk", "kdvteccizonux", NA, "zmbimrnojqtrkqrwsaol",  "ffu", "nrftziqilyfkmtnsbgpz", NA, "ywf", "vjpbhkhpxumllioeto",  "dvjpqcynlerzhgwjhnw", NA, NA, "hnxigcsuekliatxcqzir", "ombeejkkrs",  "avieoj", NA, "samyxwxxwjzzezsryttd", NA, NA, "ckcbs", NA, "sfbkfhqfalfgadabrcfo",  "dknfliyxicqkxlkgbdyl", NA, "nryhfapwtbaucjhmnopz", "ijopbahhqluwdbimgzzb",  "acublcwzwuetqdmzvyjx", NA, NA, "gvcdnzcgjtvgsdz", "i", "pvnvdpksqpdsdisnlpqe",  "zwvyxxqcikvqrovrzpon", "nnhyyccitmvmqdlxtavw", NA, "eejajlljxjzrqdm",  "qnuevzgvnwcclqbvwvqk", "omzetwubatiefwy", "qpdlrseq", "tjkgdslurumjutzidant",  "rutkvc", "qfvukwxesakypwucchog", "kzowkgcboenkduykcjxb", "wezljlnfvdwlrwkmrbxx",  "nqjfkhckiimzkiuywzep", NA, "ly", "rrsowzncgcpreigonerv", "acdwffpehixlumsxruvs",  "dglw", "gjipzuliyarpoduzjjki", "dovcchtjbxfqyjmrcbva", "mykbvc",  "odavmbbuhquxnxqcmqsm", "htzlxfnhewwadivzvvuz", "dpvdb", "ecwdvcwucxnyhexockru",  NA, NA, "afgcaursqqnpslxqizlx", "ewkpetgnxfomupxdorey", "iacrxvlnnuxdncuqgnds" ))
result <- do.call(jmotif::is_equal_mindist,testlist)
str(result)