aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

38
Task/Queue-Usage/Bracmat/queue-usage.bracmat Normal file
View file

@ -0,0 +1,38 @@
( queue
= (list=)
(enqueue=.(.!arg) !(its.list):?(its.list))
( dequeue
= x
. !(its.list):?(its.list) (.?x)
& !x
)
(empty=.!(its.list):)
)
& new$queue:?Q
& ( (Q..enqueue)$1
& (Q..enqueue)$2
& (Q..enqueue)$3
& out$((Q..dequeue)$)
& (Q..enqueue)$4
& out$((Q..dequeue)$)
& out$((Q..dequeue)$)
& out
$ ( The
queue
is
((Q..empty)$&|not)
empty
)
& out$((Q..dequeue)$)
& out
$ ( The
queue
is
((Q..empty)$&|not)
empty
)
& out$((Q..dequeue)$)
& out$Success!
| out$"Attempt to dequeue failed"
)
;