The cl-poker-eval Reference Manual

Table of Contents

The cl-poker-eval Reference Manual

This is the cl-poker-eval Reference Manual, version 0.1, generated automatically by Declt version 3.0 "Montgomery Scott" on Wed Oct 13 10:00:53 2021 GMT+0.

1 Introduction

cl-poker-eval

Pure common lisp 7 card poker hand evaluation. Evaluation based on pokersource.

Loadable via quicklisp.

* (ql:quickload "cl-poker-eval")

cl-poker-eval uses the following enumeration for card values:

2c-Ac = 0-12  
2d-Ad = 13-25  
2h-Ah = 26-38  
2s-As = 39-51  

You can use eval-hand-var to evaluate hands with 5 to 7 cards, or eval-hand-7 to evaluate a 7 card hand only. For example, to get the value of 7 cards in a list you could do the following:

(defvar *hand* '(1 2 3 4 5 6 7)) ;this would be the hand 3c 4c 5c 6c 7c 8c 9c  
(apply #'cl-poker-eval:eval-hand-var *hand*)  

You could also call eval-hand-* functions with the cards values you want to evaluate, like so:

(cl-poker-eval:eval-hand-7 1 2 3 4 5 6 7)  
(cl-poker-eval:eval-hand-var 3 4 5 6 7)  

Values returned by eval-hand-* integers representing the strength of a hand. High values are stronger hands.

2 Systems

The main system appears first, followed by any subsystem dependency.

2.1 cl-poker-eval

Author

Jason Person

License

BSD

Description

7-card hand poker evaluator

Version

0.1

Source

cl-poker-eval.asd (file)

Components

• package.lisp (file)
• cl-poker-eval.lisp (file)
• top-5-cards-tbl.lisp (file)
• straight-tbl.lisp (file)
• top-card-tbl.lisp (file)
• poker-defs.lisp (file)
• nbits-tbl.lisp (file)
• hands.lisp (file)

3 Files

Files are sorted by type and then listed depth-first from the systems components trees.

3.1 Lisp

3.1.1 cl-poker-eval.asd

Location

cl-poker-eval.asd

Systems

cl-poker-eval (system)

3.1.2 cl-poker-eval/package.lisp

Parent

cl-poker-eval (system)

Location

package.lisp

Packages

cl-poker-eval

3.1.3 cl-poker-eval/cl-poker-eval.lisp

Dependencies

• package.lisp (file)
• poker-defs.lisp (file)
• straight-tbl.lisp (file)
• hands.lisp (file)

Parent

cl-poker-eval (system)

Location

cl-poker-eval.lisp

Exported Definitions

• eval-hand-7 (function)
• eval-hand-var (function)

Internal Definitions

• eval-fullhouse (function)
• eval-hand (function)
• eval-quads (function)
• eval-trips (function)
• eval-twopair (function)
• eval-twopair-2 (function)
• handtype-topcard-value (macro)
• str-strflush-value (macro)

3.1.4 cl-poker-eval/top-5-cards-tbl.lisp

Dependencies

• package.lisp (file)
• poker-defs.lisp (file)

Parent

cl-poker-eval (system)

Location

top-5-cards-tbl.lisp

Internal Definitions

*top-five-cards-tbl* (special variable)

3.1.5 cl-poker-eval/straight-tbl.lisp

Dependencies

• package.lisp (file)
• poker-defs.lisp (file)

Parent

cl-poker-eval (system)

Location

straight-tbl.lisp

Internal Definitions

*straight-table* (special variable)

3.1.6 cl-poker-eval/top-card-tbl.lisp

Dependencies

• package.lisp (file)
• poker-defs.lisp (file)

Parent

cl-poker-eval (system)

Location

top-card-tbl.lisp

Internal Definitions

*top-card-tbl* (special variable)

3.1.7 cl-poker-eval/poker-defs.lisp

Dependency

package.lisp (file)

Parent

cl-poker-eval (system)

Location

poker-defs.lisp

Internal Definitions

• +clubs-mask+ (constant)
• +diamonds-mask+ (constant)
• +handval-card-mask+ (constant)
• +handval-card-width+ (constant)
• +handval-cards-mask+ (constant)
• +handval-cards-shift+ (constant)
• +handval-fifth-card-mask+ (constant)
• +handval-fifth-card-shift+ (constant)
• +handval-flush+ (constant)
• +handval-fourth-card-mask+ (constant)
• +handval-fourth-card-shift+ (constant)
• +handval-fullhouse+ (constant)
• +handval-handtype-mask+ (constant)
• +handval-handtype-shift+ (constant)
• +handval-nopair+ (constant)
• +handval-onepair+ (constant)
• +handval-quads+ (constant)
• +handval-second-card-mask+ (constant)
• +handval-second-card-shift+ (constant)
• +handval-stflush+ (constant)
• +handval-straight+ (constant)
• +handval-third-card-mask+ (constant)
• +handval-third-card-shift+ (constant)
• +handval-top-card-mask+ (constant)
• +handval-top-card-shift+ (constant)
• +handval-trips+ (constant)
• +handval-twopair+ (constant)
• +hearts-mask+ (constant)
• +spades-mask+ (constant)
• get-high-card (function)
• get-top-card (function)
• handval-fifth-card-value (function)
• handval-fourth-card-value (function)
• handval-handtype-value (function)
• handval-second-card-value (function)
• handval-third-card-value (function)
• handval-top-card-value (function)

3.1.8 cl-poker-eval/nbits-tbl.lisp

Dependency

package.lisp (file)

Parent

cl-poker-eval (system)

Location

nbits-tbl.lisp

Internal Definitions

*nbits-tbl* (special variable)

3.1.9 cl-poker-eval/hands.lisp

Dependency

package.lisp (file)

Parent

cl-poker-eval (system)

Location

hands.lisp

Internal Definitions

• get-cards (function)
• make-cards-masks (function)
• make-hand-var (function)

4 Packages

Packages are listed by definition order.

4.1 cl-poker-eval

Provides interface for evaluating 7-card poker hands

Source

package.lisp (file)

Use List

• asdf/interface
• common-lisp

Exported Definitions

• eval-hand-7 (function)
• eval-hand-var (function)

Internal Definitions

• *nbits-tbl* (special variable)
• *straight-table* (special variable)
• *top-card-tbl* (special variable)
• *top-five-cards-tbl* (special variable)
• +clubs-mask+ (constant)
• +diamonds-mask+ (constant)
• +handval-card-mask+ (constant)
• +handval-card-width+ (constant)
• +handval-cards-mask+ (constant)
• +handval-cards-shift+ (constant)
• +handval-fifth-card-mask+ (constant)
• +handval-fifth-card-shift+ (constant)
• +handval-flush+ (constant)
• +handval-fourth-card-mask+ (constant)
• +handval-fourth-card-shift+ (constant)
• +handval-fullhouse+ (constant)
• +handval-handtype-mask+ (constant)
• +handval-handtype-shift+ (constant)
• +handval-nopair+ (constant)
• +handval-onepair+ (constant)
• +handval-quads+ (constant)
• +handval-second-card-mask+ (constant)
• +handval-second-card-shift+ (constant)
• +handval-stflush+ (constant)
• +handval-straight+ (constant)
• +handval-third-card-mask+ (constant)
• +handval-third-card-shift+ (constant)
• +handval-top-card-mask+ (constant)
• +handval-top-card-shift+ (constant)
• +handval-trips+ (constant)
• +handval-twopair+ (constant)
• +hearts-mask+ (constant)
• +spades-mask+ (constant)
• eval-fullhouse (function)
• eval-hand (function)
• eval-quads (function)
• eval-trips (function)
• eval-twopair (function)
• eval-twopair-2 (function)
• get-cards (function)
• get-high-card (function)
• get-top-card (function)
• handtype-topcard-value (macro)
• handval-fifth-card-value (function)
• handval-fourth-card-value (function)
• handval-handtype-value (function)
• handval-second-card-value (function)
• handval-third-card-value (function)
• handval-top-card-value (function)
• make-cards-masks (function)
• make-hand-var (function)
• str-strflush-value (macro)

5 Definitions

Definitions are sorted by export status, category, package, and then by lexicographic order.

5.1 Exported definitions

5.1.1 Functions

Function: eval-hand-7 ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Function: eval-hand-var ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

5.2 Internal definitions

5.2.1 Constants

Constant: +clubs-mask+

For masking out all clubs in a hand

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +diamonds-mask+

For masking out all diamonds in a hand

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-card-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-card-width+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-cards-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-cards-shift+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-fifth-card-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-fifth-card-shift+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-flush+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-fourth-card-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-fourth-card-shift+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-fullhouse+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-handtype-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-handtype-shift+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-nopair+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-onepair+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-quads+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-second-card-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-second-card-shift+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-stflush+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-straight+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-third-card-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-third-card-shift+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-top-card-mask+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-top-card-shift+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-trips+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +handval-twopair+

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +hearts-mask+

For masking out all hearts in a hand

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Constant: +spades-mask+

For masking out all spades in a hand

Package

cl-poker-eval

Source

poker-defs.lisp (file)

5.2.2 Special variables

Special Variable: *nbits-tbl*

Package

cl-poker-eval

Source

nbits-tbl.lisp (file)

Special Variable: *straight-table*

Package

cl-poker-eval

Source

straight-tbl.lisp (file)

Special Variable: *top-card-tbl*

Package

cl-poker-eval

Source

top-card-tbl.lisp (file)

Special Variable: *top-five-cards-tbl*

Package

cl-poker-eval

Source

top-5-cards-tbl.lisp (file)

5.2.3 Macros

Macro: handtype-topcard-value HV TPC

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Macro: str-strflush-value DUPS RANK &rest SUIT-MASKS

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

5.2.4 Functions

Function: eval-fullhouse ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Function: eval-hand ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Function: eval-quads ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Function: eval-trips ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Function: eval-twopair ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Function: eval-twopair-2 ()

Package

cl-poker-eval

Source

cl-poker-eval.lisp (file)

Function: get-cards HAND

Package

cl-poker-eval

Source

hands.lisp (file)

Function: get-high-card ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: get-top-card ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: handval-fifth-card-value ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: handval-fourth-card-value ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: handval-handtype-value ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: handval-second-card-value ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: handval-third-card-value ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: handval-top-card-value ()

Package

cl-poker-eval

Source

poker-defs.lisp (file)

Function: make-cards-masks &rest CARDS

Package

cl-poker-eval

Source

hands.lisp (file)

Function: make-hand-var &rest CARDS

Package

cl-poker-eval

Source

hands.lisp (file)

Appendix A Indexes

A.1 Concepts

A.2 Functions

A.3 Variables

A.4 Data types