John Asbaghi

You code doesn't compile: (defn rand-replace [m k v](assoc %28dissoc m %28rand-nth %28keys m%29%29%29 k v)) (defn range-from [x](map %28partial + x%29 %28range%29)) (defn sample-exactly [k coll](->> coll %28drop k%29...

The following from page 70 is missing an opening parenthesis: user=> parse-fasta test-data)

seqeuence-1.fasta should be sequence-1.fasta also, sequences.fasta is empty