21 lines
348 B
BQN
21 lines
348 B
BQN
|
queue ← {
|
|||
|
|
data ← ⟨⟩
|
|||
|
|
Push ⇐ {data∾˜↩𝕩}
|
|||
|
|
Pop ⇐ {
|
|||
|
|
𝕊𝕩:
|
|||
|
|
0=≠data ? •Show "Cannot pop from empty queue";
|
|||
|
|
(data↓˜↩¯1)⊢⊑⌽data
|
|||
|
|
}
|
|||
|
|
Empty ⇐ {𝕊𝕩: 0=≠data}
|
|||
|
|
Display ⇐ {𝕊𝕩: •Show data}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
q1 ← queue
|
|||
|
|
|
|||
|
|
•Show q1.Empty@
|
|||
|
|
q1.Push 3
|
|||
|
|
q1.Push 4
|
|||
|
|
q1.Display@
|
|||
|
|
•Show q1.Pop@
|
|||
|
|
q1.Display@
|