Sha256: aaa349ee346987b88250784d4e30bb0718bb4c48e79b004f1eb5ed39ed657209

Contents?: true

Size: 304 Bytes

Versions: 549

Compression:

Stored size: 304 Bytes

Contents

(defpackage #:hamming
  (:use #:common-lisp)
  (:export #:distance))

(in-package #:hamming)

(defun distance (str1 str2 &key (test #'char=))
  "Number of positional differences in two equal length strings."
  (when (= (length str1) (length str2))
    (count nil
           (map 'list test str1 str2))))

Version data entries

549 entries across 396 versions & 1 rubygems

Version Path
trackler-2.2.1.180 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.179 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.178 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.177 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.176 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.175 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.174 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.173 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.172 tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.172 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.171 tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.171 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.170 tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.170 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.169 tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.169 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.167 tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.167 tracks/common-lisp/exercises/hamming/example.lisp
trackler-2.2.1.166 tracks/common-lisp/docs/SNIPPET.txt
trackler-2.2.1.166 tracks/common-lisp/exercises/hamming/example.lisp