Return to parallel.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / samples

Annotation of 43BSD/contrib/icon/samples/parallel.icn, revision 1.1

1.1     ! root        1: #
        !             2: #          P A R A L L E L   E V A L U A T I O N
        !             3: #
        !             4: 
        !             5: #  This program illustrates an alternative to Icon's normal
        !             6: #  last-in, first-out resumption of generators that results
        !             7: #  in "cross-product" evaluation of arguments.  Here, parallel
        !             8: #  evaluation is provided.
        !             9: 
        !            10: procedure main()
        !            11:    every Parallel{|write,!"abcd",1 to 10}
        !            12:    every Parallel{|write,octal(),star("abc")}
        !            13: end
        !            14: 
        !            15: procedure star(s)
        !            16:    suspend "" | (star(s) || !s)
        !            17: end
        !            18: 
        !            19: procedure octal()
        !            20:    suspend (0 to 3) || (0 to 7) || (0 to 7)
        !            21: end
        !            22: 
        !            23: procedure Parallel(a)
        !            24:    local i, x
        !            25:    x := list(*a)
        !            26:    repeat {
        !            27:       every i := 1 to *a do
        !            28:          x[i] := @a[i] | fail
        !            29:       suspend Call(x)
        !            30:       }
        !            31: end
        !            32: 
        !            33: procedure Call(a)
        !            34:    suspend case *a of {
        !            35:       1 : a[1]()
        !            36:       2 : a[1](a[2])
        !            37:       3 : a[1](a[2],a[3])
        !            38:       4 : a[1](a[2],a[3],a[4])
        !            39:       5 : a[1](a[2],a[3],a[4],a[5])
        !            40:       6 : a[1](a[2],a[3],a[4],a[5],a[6])
        !            41:       7 : a[1](a[2],a[3],a[4],a[5],a[6],a[7])
        !            42:       8 : a[1](a[2],a[3],a[4],a[5],a[6],a[7],a[8])
        !            43:       9 : a[1](a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9])
        !            44:       10 : a[1](a[2],a[3],a[4],a[5],a[6],a[7],a[8],a[9],a[10])
        !            45:       default :  stop("Call : too many args.")
        !            46:       }
        !            47: end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.