aboutsummaryrefslogtreecommitdiff
path: root/model.lisp
AgeCommit message (Collapse)Author
2025-02-14Split source code into different modules for cleanlinessAryadev Chavali
2025-02-14Refactor Joker generation in make-deck to use mapcar on a range.Aryadev Chavali
This new version is terser while still expressing what I want.
2025-02-14Deck and joker constructorAryadev Chavali
Joker constructor takes a rank for uniqueness - rank doesn't really change anything in terms of the "power" of a joker but helps with ensuring jokers are unique in a deck. Deck constructor takes an optional argument for the number of decks. A deck includes two jokers, so n decks include 2n jokers.
2025-02-14Fixed bug in int->rank where n >= 13 leads to errorAryadev Chavali
Because I assume n is modded already.
2025-02-14Some serialisers to make pretty outputsAryadev Chavali
I can now use this package for a console application since we can pretty print cards.
2025-02-14Implement comparator functions for ranks, suits and cards.Aryadev Chavali
2025-02-14Adjust rank->int and int->rank for ACE supremacyAryadev Chavali
Generally, ACE is the best card in Cantedraw in a card-by-card basis thus it should be the higher when comparing.
2025-02-14Implement some simple converters for custom types to/from integersAryadev Chavali
Given n in 0..51, certainly there exists r, s s.t. `n = 13s + r` where r in 0..12 and s in 0..3. `r` is the rank, and `s` is the suit. ranks are ordered Ace, 2, 3, ..., Queen, King and suits are ordered Diamond, Club, Heart, Spade. Therefore there is a 1-1 correspondence between 0..51 and any card in the deck. Jokers are a bit less straightforward; for now I'll define them as an outlier which doesn't exist in the same bounds (which is why they're the default return for suit in int->suit). Likely I'll go for -1 representing a Joker.
2025-02-14Add a package for modelling cardsAryadev Chavali
Time to do the fun non-yakshaving part. I'll start out by writing some custom types for the objects of concern: ranks, suits, cards and sets of cards.