Rosalind-Hamming Distance

s = "TGCCCAAGGAATTGCCAGCCATCGTCACTCAATCAAAATGGGAACATGTGGGAGCCCGCCGACTGTAATGATATCTCATCCCAGATAGCTCAAGGTTCAATTACGTGTTGAGCTAAACGGCGTGAAGGGACTTAATTCCCCCTCCGACGGCCGACCCACCCGGAGTAATTTCCGATGTGCTCGAAATTCGCAATCCCAATGAGGAGTATCTGAGCCATTCGTCAGGTCCAATGTCCCAGTTGGCATAAGGCTTCGAGGCGTGACACGCTCCCAGTTCTCGGCCTGCAGCGACATCTAGGAAATTACCTTAAACTCTGAGCAAATGGACCAAGAATTAACTCGCGCCGCGTATTTTTCAAAAATTCCAGCTGCGACGGGAGGCGCCCCAAGTTTAGTCATAGCACGGCTCATGTTAACTGGTGAGATCTATGGGTGCTGATTAGGACCAGTATTACGATATGGCTGCCCTAAATTCTATGAACTGTTCCAGCACGCTCGTAAAGAAGGTCCGGCTTGAGTTTTTAGCTAAGAAAGACTGCGAAATCGTTTCGTATCACAACTGCGCGACCAGGCCGAAGCCAGTCGCAACTATGTAGATAAGGCATCAAAAAGCCGTGAGCCGGCCGGACCACCAGGTCACTACTACATTTTTGAAACTTGTGGAAGGCCCCAAAGCTCGCACTATTCTAGGACGGTCGTCGCCGATCAATTCACAACATTTCCCATGTCCAAATCAATTCCCAGTACTGGGACACATTGACCGGGGGGTACGCCGTTTATAGGCCTCTCTGCAACAGATTACGGCGTCATTTTGTGATGATGAAACAGGCTAGCATCTTATAGCAAGATAGCTTTGGTTATTGTGTGTTGGTGTCTGCCTCAACCTGGGCAAAAGTGGAGCTCCGATTAGCGT"
t = "TGACTATGAACCCGCCAGACACCATGAGGTACAAAATTGGCTGTCGCCTTGGGGCCCGCCGTAGGCTACGGAACTTCAGCACCTATGGCTGCGAGGACTCTCACTGACTGCCCGACGGCGTCTACCCGAGATGACTCCACTCATCGTCAGCCTAACGGACAGGACTCCGTTCTGTTACGATGAAAATCCGCACATCCGGTCAGGATCATCACAATTACTAATTTGGTCCTCCTCCGCAGCTCTGGGAACGTTAGCAGCAGTCATGCTGAACAGGTTACCGTCGCGCAGCGGCTAGTTAGGCAATACGTCCTACTTTGAGCAGCTTAATCTAGTAATATTGAAATCCTAGGATATGCGCTCAACTGTAGATGCGTCAGGAGGCACACCACGGTCAATGAGAGCCCGAACCACCTTTTGTAAAGAGACCTATGGACTCTGATTAGGGCCCAGATTGTAATGTGCTTTGCCGAAATCCTGTGGTCGTTTTCAGGATGCGGGTGAGCCGGTGCGGAGTGCGGTTTTGAGCAACGGTAGCATGAGCTACCAACTTGGTACGCAACGGCGTGACCACACCCAGACCTAGCTCAAATATGGAGCTAGGGGAGGAAAAAGTCGGGATGGCTGCGTTACCCCCACTATTCTATGACTTGGGAAAACATATTGAATGTTAAATAAAGGTCACTTTAATAGCCATGACGTCGCAGCTAATTTCACAGGAGTGCCCATGTTCAAATTGGAAGACAGCACTCACACCAATTGCCGGGGATGTACTCGTTTTTAAGGCGCTCTTTCCGATCATTCACGCGACATATATGGATGAAAAACCCGGATATCATCATCGAACGAGATACCTCTGGCTAGTCGGTCGTCCAGATGCGCACTACTGCTTGATATTTGCCCTGCCTTTTATCGT"

s_prime = substr(s, 2, 2)
t_prime = substr(t, 2, 2)

total_length = nchar(s)
h = 0
for (i in 1:total_length) {
    if (substr(s,i,i) != substr(t,i,i)) {h = h + 1}
}

print(h)

## [1] 440