hg.stevelosh.com > rosalind

src/problems/hamm.lisp @ 8f6ef53eac55 

ASPC, portability fixes
author Steve Losh <steve@stevelosh.com>
date Mon, 20 Jan 2020 13:41:09 -0500
parents 870270771fde
children (none) 
(defpackage :rosalind/hamm (:use :cl :rosalind :losh :iterate))
(in-package :rosalind/hamm)

(defparameter *input* "GAGCCTACTAACGGGAT
CATCGTAATGACGGCCT")

(define-problem hamm (data stream)
    *input*
    "7"
  (u:hamming (read-line data) (read-line data) :test #'char=))