Return to 8q.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 14

Annotation of 43BSD/contrib/icon/book/14/8q.icn, revision 1.1

1.1     ! root        1: procedure main()
        !             2:    write(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

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