8皇后（tiger语言描述）

Tiger程序示例
1 QUEENS.TIG(8皇后)
 /*A program to solve the 8 queens problem*/
 let
   var N := 8

   type intArray = array of int

   var row := intArray [ N ] of 0
   var col := intArray [ N ] of 0
   var diag1 := intArray [ N+N-1 ] of 0
         var diag2 := intArray [ N+N-1 ] of 0

   function printboard() =
  (for i := 0 to N-1
    do (for j := 0 to N-1
   do print(if col[i]=j then " 0 " else " .");
        print("/n"));
    print("/n"))

   function try(c:int)=
     if c=N
     then printboard()
     else for r := 0 to N-1
    do if row[r]=0 & diag1[r+c]=0 & diag2[r+7-c]=0
       then (row[r]:=1; diag1[r+c]:=1;diag2[r+7-c]:=1;
      col[c]:=r;
      try(c+1);
                           row[r]:=0; diag1[r+c]:=0; diag2[r+7-c]:=0)
   in try(0)
 end
这个程序用tiger语言编写。输出了所有满足如下要求的棋盘布局：在国际象棋棋盘上放置8个皇后，使之满足同一行、同一列和同一对角线上不会有两个皇后。它说明了数组和递归的用法。假设我们已成功地在第0到c-1列放置了两个皇后，则当第r行放置了皇后时，row[r]将是1；当第d条左下角至右上角的对角线放置了皇后时，diag1[d]将是1；当第d条左上角至右下角的对角线放置了皇后时，diag2[d]将是1。接下来，try(c)尝试在第c至N-1行放置皇后。