diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:17:58 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-14 17:17:58 +0000 |
| commit | 9ab585d7affcfde2c48c6b52cb2d73953e95d428 (patch) | |
| tree | cbc1943227d7518e628ae5f8a85f1662b82b69dd | |
| parent | 3906be4d590ce740250bac2bd49b45129a32bb2b (diff) | |
| download | cantedraw-9ab585d7affcfde2c48c6b52cb2d73953e95d428.tar.gz cantedraw-9ab585d7affcfde2c48c6b52cb2d73953e95d428.tar.bz2 cantedraw-9ab585d7affcfde2c48c6b52cb2d73953e95d428.zip | |
Implement comparator functions for ranks, suits and cards.
| -rw-r--r-- | model.lisp | 12 | ||||
| -rw-r--r-- | packages.lisp | 3 |
2 files changed, 14 insertions, 1 deletions
@@ -76,3 +76,15 @@ (->> (suit->int suit) (* 13) (+ (rank->int rank))))) + +(fn suit< (s1 s2) (-> (suit suit) boolean) + (< (suit->int s1) (suit->int s2))) + +(fn rank< (r1 r2) (-> (rank rank) boolean) + (< (rank->int r1) (rank->int r2))) + +(fn card< (c1 c2) (-> (card card) boolean) + (destructuring-bind ((r1 . s1) (r2 . s2)) (list c1 c2) + (if (eq r1 r2) + (suit< s1 s2) + (rank< r1 r2)))) diff --git a/packages.lisp b/packages.lisp index 386abe1..14b4706 100644 --- a/packages.lisp +++ b/packages.lisp @@ -40,7 +40,8 @@ ;; Converters :int->suit :int->rank :int->card :suit->int :rank->int :card->int - )) + ;; Comparators + :suit< :rank< :card<)) (defpackage cantedraw.main (:use :cl :cantedraw.lib.macros :cantedraw.lib.functions) |