https://github.com/koukyosyumei/haskell_blackjack
blackjack_app_with_haskell
https://github.com/koukyosyumei/haskell_blackjack
blackjack game haskell-language haskell-tutorial
Last synced: 8 months ago
JSON representation
blackjack_app_with_haskell
- Host: GitHub
- URL: https://github.com/koukyosyumei/haskell_blackjack
- Owner: Koukyosyumei
- License: bsd-3-clause
- Created: 2020-04-22T02:23:26.000Z (over 5 years ago)
- Default Branch: master
- Last Pushed: 2020-04-22T02:34:29.000Z (over 5 years ago)
- Last Synced: 2025-01-11T12:35:36.822Z (9 months ago)
- Topics: blackjack, game, haskell-language, haskell-tutorial
- Language: Haskell
- Size: 8.79 KB
- Stars: 0
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- Changelog: ChangeLog.md
- License: LICENSE
Awesome Lists containing this project
README
## haskell で ブラックジャック
モジュール等は、cabalを参照
実行コマンド
stack exec BJ-exe
実行画面の例
------------------
-- simple black jack --
------------------
Hand {fromHand = [H4_,C5_]}
Would you hit ?(y/n)
y
Hand {fromHand = [H4_,C5_,C6_]}
would you hit more ? (y/n)
n((AnyScore,15),Hand {fromHand = [H4_,C5_,C6_]})
AI_1の手札は
((Bust,23),Hand {fromHand = [D2_,S10,HA_]})AI_2の手札は
((Bust,23),Hand {fromHand = [C3_,CJ_,SQ_]})AI_3の手札は
((BlackJack,21),Hand {fromHand = [H2_,D3_,D6_,C10]})AI_4の手札は
((Bust,27),Hand {fromHand = [D7_,DQ_,SK_]})勝者は
(BlackJack,21)Would you continue to play game ?(y/n)
n
Good Bye !!