Return to queens.icn CVS log

Up to [Research Unix] / researchv10dc / cmd / icon / tests

Annotation of researchv10dc/cmd/icon/tests/queens.icn, revision 1.1

1.1     ! root        1: procedure main()
        !             2:    every bwrite([q(1),q(2),q(3),q(4),q(5),q(6),q(7),q(8)])
        !             3: end
        !             4: 
        !             5: procedure q(c)
        !             6:    suspend place(1 to 8,c)     # look for a row
        !             7: end
        !             8: 
        !             9: procedure place(r,c)
        !            10:    static up, down, row
        !            11:    initial {
        !            12:         up := list(15,0)
        !            13:         down := list(15,0)
        !            14:         row := list(8,0)
        !            15:         }
        !            16:    if row[r] = down[r + c - 1] = up[8 + r - c] = 0
        !            17:    then suspend row[r] <- down[r + c - 1] <-
        !            18:         up[8 + r - c] <- r     # place if free
        !            19: end
        !            20: 
        !            21: procedure bwrite(s) 
        !            22:        local i,l
        !            23:        every r := 1 to 8 do {
        !            24:        l := repl(" .",8)
        !            25:        s[i:=(1 to 8)] = r & l[2*i] := "Q"
        !            26:        write (l)
        !            27:        }
        !            28:        write("ok?")
        !            29: end

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