9 lines
210 B
Plaintext
9 lines
210 B
Plaintext
data State = Idle | Waiting | Connected
|
|
|
|
data Message = Hello Int | Data Int | Close
|
|
|
|
match classify (s : State) (m : Message) : Int =
|
|
| Idle (Hello n) -> n
|
|
| Waiting (Data n) -> n
|
|
| Connected Close -> 0
|