clojurepoker
A poker library for Clojure and Clojurescript, early stages.
Usage
Append the following to the dependencies in your project.clj file:
:dependencies [[clojurepoker "0.1.0-SNAPSHOT"]]API
A card is a map with this format:
{:suit :hearts, :rank :ace}Generate a hand:
(hand [:hearts :ace] [:spades :queen] [:diamonds :king] [:clubs :4 :8])
; result
[{:suit :hearts :rank :ace}
{:suit :spades :rank :queen}]
{:suit :diamonds :rank :king}]
{:suit :clubs :rank :4}]
{:suit :clubs :rank :8}]]Draw seven cards and determine the best possible hand that can generated from them:
(bestallhands (:drawncards (drawmulti 7 deck)))
; result
{:best :straight, :result ({:suit :clubs, :rank :jack}
{:suit :spades, :rank :9}
{:suit :hearts, :rank :8}
{:suit :diamonds, :rank :10}
{:suit :spades, :rank :queen})}Compare two seven card hands (as in Texas Hold 'em):
(comparetwo7 (hand [:hearts :queen :10 :jack :ace :king])
(hand [:hearts :2 :3 :4] [:spades :4 :jack]))
; result
{:best :flush :result [{:suit :hearts, :rank :ace}
{:suit :hearts, :rank :2}
{:suit :hearts, :rank :3}
{:suit :hearts, :rank :jack}
{:suit :hearts, :rank :8}]}License
Copyright © 2013 Erik Ferguson and Chip Hogg. All rights reserved. The use and distribution terms for this software are covered by the Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which can be found in the file epl-v10.html at the root of this distribution. By using this software in any fashion, you are agreeing to be bound by the terms of this license. You must not remove this notice, or any other, from this software.
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.