(defpackage :fwoar.condorcet
  (:use :cl )
  (:export ))
(in-package :fwoar.condorcet)

(defmacro define-data-class (name (&rest super-classes) &body slots)
  `(defclass ,name ,super-classes
     ,(mapcar
       (lambda (slot-name)
         `(,slot-name :initarg ,(alexandria:make-keyword slot-name) :reader ,slot-name))
       slots)))

(define-data-class ballot ()
  voter-name confirmation rankings)

(define-data-class ranking ()
  rank candidates)

(define-data-class secret-ballot ()
  confirmation rankings)

(define-data-class tally-election-request ()
  election candidates eligible-voters ballots)

(define-data-class tally-election-response ()
  election candidates voted did-not-vote rankings ballots preference-matrix strongest-path-matrix)

(define-data-class tally-election-response ()
  election candidates voted did-not-vote rankings ballots)