Using "same?" in more places.

[factor.git] / unmaintained / sudokus / sudokus.factor

diff --git a/unmaintained/sudokus/sudokus.factor b/unmaintained/sudokus/sudokus.factor
index c7bc6944fb9eb6812edcf08438fcad9dbfc3eb04..8944488019809d23b11c3f4dd90eb6120c3baecc 100644 (file)
--- a/unmaintained/sudokus/sudokus.factor
+++ b/unmaintained/sudokus/sudokus.factor
@@ -8,7 +8,7 @@ IN: sudokus
 : row ( index -- row ) 1 + 9 / ceiling ;
 : col ( index -- col ) 9 mod 1 + ;
 : sq ( index -- square ) [ row ] [ col ] bi [ 3 / ceiling ] bi@ 2array ;
-: near ( a pos -- ? ) { [ [ row ] bi@ = ] [ [ col ] bi@ = ] [ [ sq ] bi@ = ] } 2|| ;
+: near ( a pos -- ? ) { [ [ row ] same? ] [ [ col ] same? ] [ [ sq ] same? ] } 2|| ;
 : nth-or-lower ( n seq -- elt ) [ length 1 - 2dup > [ nip ] [ drop ] if ] keep nth ;
 
 :: solutions ( puzzle random? -- solutions )