https://github.com/msabramo/haskell-poker

Simple poker game written in Haskell
https://github.com/msabramo/haskell-poker

haskell poker

Last synced: 15 days ago
JSON representation

Simple poker game written in Haskell

• Host: GitHub
• URL: https://github.com/msabramo/haskell-poker
• Owner: msabramo
• License: mit
• Created: 2010-07-31T13:31:02.000Z (over 14 years ago)
• Default Branch: master
• Last Pushed: 2019-03-05T01:00:18.000Z (almost 6 years ago)
• Last Synced: 2024-12-03T21:57:54.497Z (28 days ago)
• Topics: haskell, poker
• Language: Haskell
• Homepage:
• Size: 9.77 KB
• Stars: 3
• Watchers: 4
• Forks: 2
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • Changelog: CHANGELOG.md
  • License: LICENSE

Awesome Lists containing this project

README

        
Haskell Poker

=============

This is the result from playing around with Haskell.

# Running

```

$ cabal new-run

Up to date

Cards in deck: 0

Shuffling...

Cards in deck: 52

[JS,3S,10H,AS,JC] - Discard: 2

[JS,--,10H,AS,JC] - Discard:

[JS,10H,AS,JC] + [4H] = [JS,10H,AS,JC,4H]

group_hand -> [[JS,JC],[AS],[10H],[4H]]

You have: Just ("Two of a kind",[[JS,JC]])

Play again ([y], n)?

Cards in deck: 46

[KH,QC,6H,7H,6D] - Discard: 4

[KH,QC,6H,--,6D] - Discard: 2

[KH,--,6H,--,6D] - Discard:

[KH,6H,6D] + [3D,10S] = [KH,6H,6D,3D,10S]

group_hand -> [[6H,6D],[KH],[10S],[3D]]

You have: Just ("Two of a kind",[[6H,6D]])

Play again ([y], n)?

Cards in deck: 39

[KS,2S,10C,7D,JD] - Discard: 2

[KS,--,10C,7D,JD] - Discard: 4

[KS,--,10C,--,JD] - Discard:

[KS,10C,JD] + [3H,2D] = [KS,10C,JD,3H,2D]

group_hand -> [[KS],[JD],[10C],[3H],[2D]]

You have: Nothing

Play again ([y], n)?

```