| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 20:28:12 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=c99f5d4c3f50c95978cfd96df8e6d8d427c522d8270aa4404d78f80e03b1a1d0a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22wbcsggXOK0bYwrsFRSzBocOFYA3cZtj6%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d11a3c9e80d86d-BLR
GENERIC MODULE StackArray(Elem);REVEAL T = BRANDED REF RECORD Top:INTEGER - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- GENERIC MODULE StackArray(Elem);
- REVEAL T = BRANDED REF RECORD
- Top:INTEGER := -1;
- Capacity:CARDINAL := 0;
- Data:REF ARRAY OF Elem.T := NIL;
- END;
- PROCEDURE Create(READONLY Capacity:CARDINAL := 5):T =
- BEGIN
- RETURN NEW(T,
- Capacity := Capacity,
- Top := -1,
- Data := NEW(REF ARRAY OF Elem.T,Capacity))
- END Create;
- (*
- TC = O(1)
- SC = O(1)
- *)
- PROCEDURE IsFull(VAR Stack:T):BOOLEAN =
- BEGIN
- RETURN Stack.Top = Stack.Capacity - 1
- END IsFull;
- (*
- TC = O(1)
- SC = O(1)
- *)
- PROCEDURE IsEmpty(VAR Stack:T):BOOLEAN =
- BEGIN
- RETURN Stack.Top = -1
- END IsEmpty;
- (*
- TC = O(1)
- SC = O(1)
- *)
- PROCEDURE Push(VAR Stack:T;Data:Elem.T) RAISES{StackFull} =
- BEGIN
- IF IsFull(Stack) THEN RAISE StackFull END;
- INC(Stack.Top);
- Stack.Data[Stack.Top] := Data
- END Push;
- (*
- TC = O(1)
- SC = O(1)
- *)
- PROCEDURE Pop(VAR Stack:T):Elem.T RAISES{StackEmpty} =
- BEGIN
- IF IsEmpty(Stack) THEN RAISE StackEmpty END;
- DEC(Stack.Top);
- RETURN Stack.Data[Stack.Top+1]
- END Pop;
- (*
- TC = O(1)
- SC = O(1)
- *)
- PROCEDURE Peek(VAR Stack:T):Elem.T RAISES{StackEmpty} =
- BEGIN
- IF IsEmpty(Stack) THEN RAISE StackEmpty END;
- RETURN Stack.Data[Stack.Top]
- END Peek;
- BEGIN
- END StackArray.
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make huge profits on trading ⭐⭐ 5
JavaScript | 5 sec ago | 0.25 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ P
JavaScript | 8 sec ago | 0.25 KB
-
📌 Instant BTC Profit Method ✅ Working
JavaScript | 10 sec ago | 0.24 KB
-
⭐✅ Marketplace Glitch ✅ Working ✅ NEVER SEEN...
JavaScript | 14 sec ago | 0.25 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ G
JavaScript | 17 sec ago | 0.25 KB
-
📝 MAKE $2500 IN 15 MIN ✅ Working
JavaScript | 19 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 7
JavaScript | 22 sec ago | 0.25 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ 0
JavaScript | 26 sec ago | 0.25 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
