Ticket #378: ticket-cmt2-Examples.cobra

class Program
    shared
        def createEmptyStream<of T> as T*
            return T[](0)
            
        def numbered<of T>(a as T*) as KeyValuePair<of int, T>*
            i = 0
            for item in a
                yield KeyValuePair<of int, T>(i, item)
                i += 1
            
        def reverse<of T>(a as T*) as T*
            return System.Linq.Enumerable.reverse<of T>(a) to !

        def concat<of T>(a as T*, b as T*) as T*
            return System.Linq.Enumerable.concat<of T>(a, b) to !

        def example0
            a = [1, 2, 3]
            b = .reverse<of int>(a)
            print "source", a
            print "reverse", b
            print

        def example1<of T>
            x = .createEmptyStream<of T>
            n = 0
            for i in x
                n += 1
            print "empty stream:", x, "count:", n
            print

        def example2<of T>(a as T*)
            b = .reverse<of T>(a)
            c = .concat<of T>(a, b)
            d = .numbered<of T>(c)
            print "source:", a
            print "reverse:", b
            print "concat:", c
            print "numbered:", d
            print

        def main
            .example0
            .example1<of int>
            .example2<of int>([1, 2, 3])
            .example2<of String>(['a', 'b', 'c'])