Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,7 @@
10 q:new \ create a new queue 10 deep
123 q:push
341 q:push \ push 123, 341 onto the queue
q:pop . cr \ displays 123
q:len . cr \ displays 1
q:pop . cr \ displays 341
q:len . cr \ displays 0

View file

@ -0,0 +1,20 @@
local(queue) = queue
#queue->size
// => 0
#queue->insert('a')
#queue->insert('b')
#queue->insert('c')
#queue->size
// => 3
loop(#queue->size) => {
stdoutnl(#queue->get)
}
// =>
// a
// b
// c
#queue->size == 0
// => true

View file

@ -0,0 +1,12 @@
import queues
var deq: TQueue[int] = initQueue[int]()
deq.enqueue(26)
deq.add(99) # same as enqueue()
deq.enqueue(2)
echo("Dequeue size: ", deq.len())
echo("De-queue: ", deq.dequeue())
echo("De-queue: ", deq.dequeue())
echo("De-queue: ", deq.dequeue())
#echo("De-queue: ", deq.dequeue()) # dequeue an empty dequeue raises [EAssertionFailed]

View file

@ -0,0 +1,5 @@
: testQueue
| q i |
Queue new ->q
20 loop: i [ i q push ]
while ( q empty not ) [ q pop . ] ;

View file

@ -0,0 +1,7 @@
?empty() -- 1
push(5)
?empty() -- 0
push(6)
?pop() -- 5
?pop() -- 6
?empty() -- 1

View file

@ -0,0 +1,10 @@
var f = FIFO();
say f.empty; # true
f.push('foo');
f.push('bar', 'baz');
say f.pop; # foo
say f.empty; # false
var g = FIFO('xxx', 'yyy');
say g.pop; # xxx
say f.pop; # bar