Sample Program
The following is a Pascal program by Niklaus Wirth. It finds one solution to the eight queens problem.
program eightqueen1(output); var i : integer; q : boolean; a : array of boolean; b : array of boolean; c : array of boolean; x : array of integer; procedure try( i : integer; var q : boolean); var j : integer; begin j := 0; repeat j := j + 1; q := false; if a and b and c then begin x := j; a := false; b := false; c := false; if i < 8 then begin try( i + 1, q); if not q then begin a := true; b := true; c := true; end end else q := true end until q or (j = 8); end; begin for i := 1 to 8 do a := true; for i := 2 to 16 do b := true; for i := -7 to 7 do c := true; try( 1, q); if q then for i := 1 to 8 do write( x:4); writeln end.Read more about this topic: Eight Queens Puzzle
Famous quotes containing the words sample and/or program:
“As a rule they will refuse even to sample a foreign dish, they regard such things as garlic and olive oil with disgust, life is unliveable to them unless they have tea and puddings.”
—George Orwell (1903–1950)
“Beluthahatchee is a country where all unpleasant doings and sayings are forgotten, a land of forgiveness and forgetfulness. When a woman accusingly reminds her man of something in the past, he replies, ‘I thought that was in Beluthahatchee.’ Or a person may say to another, to dismiss some matter, “Oh, that’s in Beluthahatchee.’”
—For the State of Florida, U.S. public relief program (1935-1943)