eyedevelop/poker-ex
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Formatting.

Browse source
This commit is contained in:
Hans Goor 2024-08-15 20:37:29 +02:00
parent 4210670e9e
commit f32bff0ec5
Signed by: eyedevelop
SSH key fingerprint: SHA256:Td89veptDEwCV8J3fjqnknNk7SbwzedYhauyC2nFBYg
1 changed files with 26 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
poker_ex/lib/poker_ex/card.ex
View file

@ -114,13 +114,14 @@ defmodule PokerEx.Card do
def from_integers(suit, rank) do def from_integers(suit, rank) do
suit = Enum.at(@valid_suits, suit) suit = Enum.at(@valid_suits, suit)
{:ok, case rank do {:ok,
n when n >= 2 and n <= 10 -> %Card{suit: suit, rank: n} case rank do
0x1 -> %Card{suit: suit, rank: :ace} n when n >= 2 and n <= 10 -> %Card{suit: suit, rank: n}
0xB -> %Card{suit: suit, rank: :jack} 0x1 -> %Card{suit: suit, rank: :ace}
0xD -> %Card{suit: suit, rank: :queen} 0xB -> %Card{suit: suit, rank: :jack}
0xE -> %Card{suit: suit, rank: :king} 0xD -> %Card{suit: suit, rank: :queen}
end} 0xE -> %Card{suit: suit, rank: :king}
end}
end end
@doc ~S""" @doc ~S"""
@ -169,23 +170,26 @@ defmodule PokerEx.Card do
""" """
@spec sigil_p(atom() | String.t(), [char()]) :: Card.t() @spec sigil_p(atom() | String.t(), [char()]) :: Card.t()
def sigil_p(<<suit::utf8, rank::binary>>, []) do def sigil_p(<<suit::utf8, rank::binary>>, []) do
suit = case suit do suit =
?S -> :spades case suit do
?H -> :hearts ?S -> :spades
?D -> :diamonds ?H -> :hearts
?C -> :clubs ?D -> :diamonds
end ?C -> :clubs
end
rank = case rank do rank =
"A" -> :ace case rank do
"K" -> :king "A" -> :ace
"Q" -> :queen "K" -> :king
"J" -> :jack "Q" -> :queen
n -> String.to_integer(n) "J" -> :jack
end n -> String.to_integer(n)
end
card = %Card{suit: suit, rank: rank} card = %Card{suit: suit, rank: rank}
if not valid? card do
if not valid?(card) do
raise "Invalid card!" raise "Invalid card!"
end end