tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Queue-Usage/Mathematica/queue-usage.math
+++ b/Task/Queue-Usage/Mathematica/queue-usage.math
@ -0,0 +1,16 @@
+Empty[a_] := If[Length[a] == 0, True, False]
+SetAttributes[Push, HoldAll]; Push[a_, elem_] := AppendTo[a, elem]
+SetAttributes[Pop, HoldAllComplete]; Pop[a_] := If[EmptyQ[a], False, b = First[a]; Set[a, Most[a]]; b]
+
+Queue = {}
+-> {}
+Empty[Queue]
+-> True
+Push[Queue, "1"]
+-> {"1"}
+EmptyQ[Queue]
+->False
+Pop[Queue]
+->1
+Pop[Queue]
+->False