52 "

    53 !

    54 

    55 examples

    56 "

    57     using OC as a stack:

    58                                                                         [exBegin]

    59         |stack top|

    60 

    61         stack := OrderedCollection new.

    62 

    63         1 to:10 do:[:i |

    64             stack add:i

    65         ].

    66 

    67         10 timesRepeat:[

    68             top := stack removeLast.

    69             Transcript showCr:top

    70         ]

    71                                                                         [exEnd]

    72     using OC as a queue (you should use Queue right away ..):

    73                                                                         [exBegin]

    74         |queue dequeued|

    75 

    76         queue := OrderedCollection new.

    77 

    78         1 to:10 do:[:i |

    79             queue addLast:i

    80         ].

    81 

    82         10 timesRepeat:[

    83             dequeued := queue removeFirst.

    84             Transcript showCr:dequeued

    85         ]

    86                                                                         [exEnd]