object ĠH am ming Ġ{ ĊĠĠĠ Ġfun Ġcompute ( strand 1 : ĠString , Ġstr and 2 : ĠString ): ĠInt Ġ{ ĊĠĠĠĠĠĠĠ Ġrequire ( strand 1 . length Ġ== Ġstr and 2 . length ) Ġ{ Ġ" left Ġand Ġright Ġstr ands Ġmust Ġbe Ġof Ġequal Ġlength ." Ġ} ĊĠĠĠĠĠĠĠ Ġreturn Ġstr and 1 . zip ( strand 2 ). count Ġ{ Ġit . first Ġ!= Ġit . second Ġ} ĊĠĠĠ Ġ} Ċ }