Return to 8qp.icn CVS log

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

Annotation of 43BSD/contrib/icon/book/f/8qp.icn, revision 1.1.1.1

1.1       root        1: procedure main()
                      2:    every print([q(1),q(2),q(3),q(4),q(5),q(6),q(7),q(8)])
                      3: end
                      4: 
                      5: procedure q(r)
                      6:    suspend place(1 to 8,r)
                      7: end
                      8: 
                      9: procedure place(c,r)
                     10:    static up, down, col
                     11:    initial {
                     12:       up := list(15,0)
                     13:       down := list(15,0)
                     14:       col := list(8,0)
                     15:       }
                     16:    if col[c] = up[8 + r - c] = down[r + c - 1] = 0
                     17:    then suspend col[c] <- up[8 + r - c] <-
                     18:       down[r + c - 1] <- c
                     19: end
                     20: 
                     21: procedure print(a)
                     22:    static line, bar
                     23:    initial {
                     24:       line := repl("+-",8) || "+"
                     25:       bar := repl("| ",8) || "|"
                     26:       }
                     27:    every bar[!a*2] <- "Q" do {
                     28:       write(line)
                     29:       write(bar)
                     30:       }
                     31:    write(line,"\n\n")
                     32:    return
                     33: end

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