列出密码中最连续的胜利

Question

I am trying to get the most consecutive wins for a team. Firstly I have specified the win and lost results for every team but I have no idea how to get the most consecutive wins for the team

MATCH (a:TeamFootbal )-[r]->(m:Games)<-[r2]-(op:TeamFootbal)
with a.name as teamnames,
case when r.scores > r2.scores then 1 else 0 end as result
return teamnames, result
order by teamnames

The output will be like this

Team Name                     Result
A                             1
A                             1
A                             1
A                             0
A                             1
B                             1
B                             1
B                             1
B                             1
B                             0
C                             1
C                             0
C                             1
C                             1
C                             0
D                             0
D                             1
D                             0
D                             0
D                             1
E                             1
E                             1
E                             1
E                             1
E                             0

I want to get

B        4
E        4

without using the apoc procedure

Answer 1

I adapted my answer to a similar question:

MATCH (a:TeamFootbal)-[r]->(m:Games)<-[r2]-(op:TeamFootbal)
WITH
  a.name AS teamname,
  CASE WHEN r.scores > r2.scores THEN 1 ELSE 0 END AS result
ORDER BY m.date ASC // (*)
WITH teamname AS s, collect([teamname, result]) AS p
WITH s, reduce(acc = [], i IN range(0, size(p) - 1) | 
    CASE p[i] = p[i-1]
      WHEN true THEN [j IN range(0, size(acc) - 1) |
          CASE j = size(acc) - 1
            WHEN true THEN acc[j] + [p[i]]
            ELSE acc[j]
          END
        ]
      ELSE acc + [[p[i]]]
    END
  ) AS streaks
UNWIND streaks AS streak
WITH s, streak
WHERE streak[0] <> 0
RETURN s, max(size(streak)) AS consecutivePasses

Note that ordering should be inserted at (*)

Answer 2

Here is a little trick to search the max number of following 1 in a list :

WITH [1,0,0,1,1,1,0,1,1,1,1] AS results
RETURN 
  reduce(
    // current value, highest value so far
    x=[0,0],
    i IN results |
      CASE 
        WHEN i=0 THEN [0 , x[1]]
        WHEN (x[0]+i) > x[1]  THEN [x[0] +1 , x[0]+1]
        ELSE [x[0] +1 , x[1]]
    END
  )