snake.cql

// Download snake.cql
// PGN output when run on sample.pgn

/* from snake.cql in cql-examples*/
cql(input hhdbvi.pgn)

◭T∊ ――(from)
 ✵ 5 ≤ sort "snake length"
      ⊢◎T nestban piecepath
      (――northeast 1 T
       ――southeast 1 T)+
       ――northeast 1 T ?