drunken-bishop: make sure starting position never duplicates

diff --git a/extra/drunken-bishop/drunken-bishop.factor b/extra/drunken-bishop/drunken-bishop.factor
index 03d9ccb8dcb5c16a57fe835e61aba9240ef224e7..c0be7560a280e3055647992e138e3b84838f373c 100644 (file)
--- a/extra/drunken-bishop/drunken-bishop.factor
+++ b/extra/drunken-bishop/drunken-bishop.factor
@@ -36,7 +36,7 @@ board-height [ 9 ] initialize
             } case :> ( dy dx )
             dy y + 0 h 1 - clamp y!
             dx x + 0 w 1 - clamp x!
-            x y board nth [ 1 + 0 15 clamp ] change-nth
+            x y board nth [ dup 14 < [ 1 + ] when ] change-nth
         ] with each
     ] each