λ-Nomic Voting Rule (LISPRule)

(assgn voteEvent
    (func (comb event) (
        (do
(if
(contains (voted) (username (sender (event))))

(if
    (contains (comb "yea" "nay") (lowercase (value (event))))
(do
(append (voted) (username (sender (event))))
(if-else
    (= (lowercase (value (event))) "yea")
    (+= yea 1)
    (+= nay 1)
)
)
)
)

(if
    (sameElems (voted) (players))
    (do
        (destroy eh)
        (if
            (<= (nay) (yea))
            (addRule (parse (rule)))
        )
    )
)
        )
    )
)

(assgn vote
    (func (comb rule) (
        (assgn yea 0)
        (assgn nay 0)
        (assgn voted (comb))

        (assgn eh
(eventHandler "messageReceived" voteEvent)
)

(deploy eh)
)
)