Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Queue-Definition/Klingphix/queue-definition.klingphix
+++ b/Task/Queue-Definition/Klingphix/queue-definition.klingphix
@ -0,0 +1,26 @@
+{ include ..\Utilitys.tlhy }
+"..\Utilitys.tlhy" load
+
+
+:push!   { l i -- l&i }
+    0 put
+;
+
+:empty?  { l -- flag }
+    len not   { len 0 equal }
+;
+
+:pop!    { l -- l-1 }
+    empty? (
+        ["Empty"]
+        [pop swap]
+    ) if
+;
+
+
+( ) { empty queue }
+
+1 push! 2 push! 3 push!
+pop! ? pop! ? pop! ? pop! ?
+
+"End " input