(in-package #:hangman)

(defun pick-sitcom (sitcoms)
  (nth (random (length sitcoms) (make-random-state t)) sitcoms))

(pick-sitcom '(1 2 3 4 5 6 ))

(defun status (scrambled-sitcom lives guessed-letters)
  (format nil "Lives: ~A~%Letters: ~{~A~^, ~} %Sitcom: ~A" lives guessed-letters scrambled-sitcom))


(defun scramble-sitcom (sitcom guessed-letters)
  (flet ((letter-or-underscore (letter)
       (if (or (member letter guessed-letters) (equal letter #\Space))
           letter
           #\_)))
    (format nil "~{~A~^~}" (mapcar #'letter-or-underscore (coerce sitcom 'list)))))

(scramble-sitcom "cheers" '(#\e #\c #\r #\h #\s))

(coerce "this string" 'list)

(defun game-over-p (lives scramble-sitcom)
  (if (or (<= lives 0) (eq nil (position #\_ scrambled-sitcom)))
      t
      nil))