Change "3dup drop" to "2over".

[factor.git] / extra / sudoku / sudoku.factor

diff --git a/extra/sudoku/sudoku.factor b/extra/sudoku/sudoku.factor
index 848d647fe0561a91aac8d4453cde14bb4737f671..43ca1e9511cff6e14ff74b45ac37b142df99ed9f 100644 (file)
--- a/extra/sudoku/sudoku.factor
+++ b/extra/sudoku/sudoku.factor
@@ -30,7 +30,7 @@ DEFER: search
 : attempt ( n x y -- )
     {
         { [ 3dup nip row-any? ] [ 3drop ] }
-        { [ 3dup drop col-any? ] [ 3drop ] }
+        { [ 2over col-any? ] [ 3drop ] }
         { [ 3dup box-any? ] [ 3drop ] }
         [ assume ]
     } cond ;