| buf = mk(mkarray(2)[0, a], 2, 0, 1) ⊦ ⟪push#(b; buf)⟫ ⟪pop#(; buf, a0) ; assert#(a0 = a) ; push#(c; buf) ; pop#(; buf, a0) ; assert#(a0 = b) ; pop#(; buf, a0) ; assert#(a0 = c)⟫ true |
buf = mk(mkarray(2)[0, a], 2, 0, 1) ⊦ ⟪let j = (buf .first + buf .len) % buf .size in { buf0 := buf ; put#(j, b; buf0 .data) }⟫ ⟪buf0 := buf0 .len:= (buf0 .len + 1)⟫ ⟪pop#(; buf0, a0) ; assert#(a0 = a) ; push#(c; buf0) ; pop#(; buf0, a0) ; assert#(a0 = b) ; pop#(; buf0, a0) ; assert#(a0 = c)⟫ true
[[CONCRETESIMPRULES : ([CSIMPDECL : push# (a; buf) { let j = ( buf .first + buf .len ) % buf .size in put#(j, a; buf .data) ; buf := buf .len:= (buf .len + 1) }])]]