Add hamming exercise

config.json

@@ -4,6 +4,7 @@
   "repository": "https://github.com/exercism/xracket",
   "active": false,
   "problems": [
-    "bob"
+    "bob",
+    "hamming"
   ]
 }

hamming/example.rkt

@@ -0,0 +1,12 @@
+#lang racket
+
+(define (hamming-distance dna1 dna2)
+  (unless (= (string-length dna1) (string-length dna2))
+    (raise-argument-error 'hamming-distance "strings of equal length" 1 dna1 dna2))
+  (for/fold ([distance 0])
+            ([c1 (in-string dna1)]
+             [c2 (in-string dna2)]
+             #:unless (eq? c1 c2))
+            (add1 distance)))
+
+(provide hamming-distance)

hamming/hamming-test.rkt

@@ -0,0 +1,35 @@
+#lang racket
+
+(require rackunit
+         "hamming.rkt")
+
+(check-equal? 0 (hamming-distance "A" "A")
+              "identical strands")
+(check-equal? 0 (hamming-distance "GGACTGA" "GGACTGA")
+              "long identical strands")
+(check-equal? 1 (hamming-distance "A" "G")
+              "complete distance in single nucleotide strands")
+(check-equal? 2 (hamming-distance "AG" "CT")
+              "complete distance in small strands")
+(check-equal? 1 (hamming-distance "AT" "CT")
+              "small distance in small strands")
+(check-equal? 1 (hamming-distance "GGACG" "GGTCG")
+              "small distance")
+(check-equal? 2 (hamming-distance "ACCAGGG" "ACTATGG")
+              "small distance in long strands")
+(check-equal? 1 (hamming-distance "AGA" "AGG")
+              "non-unique character in first strand")
+(check-equal? 1 (hamming-distance "AGG" "AGA")
+              "non-unique character in second strand")
+(check-equal? 4 (hamming-distance "GATACA" "GCATAA")
+              "large distance")
+(check-equal? 9 (hamming-distance "GGACGGATTCTG" "AGGACGGATTCT")
+              "large distance in off-by-one strand")
+(check-equal? 0 (hamming-distance "" "")
+              "empty strands")
+(check-exn #rx"strings of equal length"
+           (thunk (hamming-distance "AATG" "AAA"))
+           "disallow first strand longer")
+(check-exn #rx"strings of equal length"
+           (thunk (hamming-distance "ATA" "AGTG"))
+           "disallow second string longer")