Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Queue-Definition/Phixmonti/queue-definition.phixmonti
+++ b/Task/Queue-Definition/Phixmonti/queue-definition.phixmonti
@ -0,0 +1,23 @@
+include ..\Utilitys.pmt
+
+def push    /# l i -- l&i #/
+    0 put
+enddef
+
+def empty?  /# l -- flag #/
+    len 0 ==
+enddef
+
+def pop     /# l -- l-1 #/
+    empty? if
+        "Empty"
+    else
+        head swap tail nip swap
+    endif
+enddef
+
+
+( ) /# empty queue #/
+
+1 push 2 push 3 push
+pop ? pop ? pop ? pop ?