September 2017 Update
This commit is contained in:
parent
bba7bfd280
commit
ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
|
|
@ -1,25 +1,24 @@
|
|||
#import system.
|
||||
#import system'collections.
|
||||
#import extensions.
|
||||
import system'collections.
|
||||
import extensions.
|
||||
|
||||
#symbol program =
|
||||
program =
|
||||
[
|
||||
// Create a queue and "push" items into it
|
||||
#var queue := Queue new.
|
||||
var queue := Queue new.
|
||||
|
||||
queue push:1.
|
||||
queue push:3.
|
||||
queue push:5.
|
||||
|
||||
// "Pop" items from the queue in FIFO order
|
||||
console writeLine:(queue pop). // 1
|
||||
console writeLine:(queue pop). // 3
|
||||
console writeLine:(queue pop). // 5
|
||||
console printLine(queue pop). // 1
|
||||
console printLine(queue pop). // 3
|
||||
console printLine(queue pop). // 5
|
||||
|
||||
// To tell if the queue is empty, we check the count
|
||||
console writeLine:"queue is ":((queue length == 0) iif:"empty":"nonempty").
|
||||
console printLine("queue is ",(queue length == 0) iif("empty","nonempty")).
|
||||
|
||||
// If we try to pop from an empty queue, an exception
|
||||
// is thrown.
|
||||
queue pop | if &Error: e [ console writeLine:"Queue empty.". ].
|
||||
queue pop | if(:e)[ console writeLine:"Queue empty.". ].
|
||||
].
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue