haskell mahjong library
import Mahjong.Parser
import Mahjong.Data
:t parseAgari
parseAgari :: NakiMentsu -> FetchType -> Pai -> [Pai] -> [Result]
parseAgari (NakiMentsu []) TUMO P1 [P1,P2,P2,P3,P3,M1,M2,M3,S1,S2,S3,S8,S8]
[Agari (Ryanmen P1 P4) [TUMO_AGARI,PINFU,IPEKO,SANSHOKU_DOJUN]]
parseAgari (NakiMentsu [Shuntsu P1]) RON P9 [P4,P5,P6,P7,P8,S1,S1,M1,M2,M3]
[Agari (Ryanmen P6 P9) [ITTSU_NAKI]]`
parseAgari (NakiMentsu [Koutsu P1]) RON TON [P2,P3,P4,P5,P6,P7,NAN,NAN,NAN,TON]
[Agari (Tanki TON) [HONITSU_NAKI]]