Sha256: d9673da51f457b6afc6b403ff4d1b2a621e6d31fe7ac9cbff9c153aa1f1bdc13
Contents?: true
Size: 440 Bytes
Versions: 127
Compression:
Stored size: 440 Bytes
Contents
(defpackage #:isogram
(:use #:common-lisp)
(:export #:is-isogram))
(in-package #:isogram)
(defun str-list (s)
(assert (stringp s) (s))
(coerce (string-upcase s) 'list))
(defun is-isogram-helper (xs)
(if (null xs) T
(and (not (and (find (car xs) "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
(find (car xs) (cdr xs))))
(is-isogram-helper (cdr xs)))))
(defun is-isogram (xs)
(is-isogram-helper (str-list xs)))
Version data entries
127 entries across 127 versions & 1 rubygems