Commit 5b7567bb authored by Steffen Michels's avatar Steffen Michels

fix stack overflow with bent generation mode

parent 88a2de70
Pipeline #29754 passed with stage
in 1 minute
......@@ -243,7 +243,7 @@ diagBent _ [] = []
diagBent lss=:[l: ls] rss=:[r: rs] =
diagBent` [(lss, rss)] [] (interleave [(ls`, rss) \\ ls` <- sublists ls] [(lss, rs`) \\ rs` <- sublists rs])
where
diagBent` :: ![([a], [b])] ![([a], [b])] ![([a], [b])] -> [(a, b)]
diagBent` :: ![([a], [b])] ![([a], [b])] [([a], [b])] -> [(a, b)]
diagBent` [] [] [] = []
diagBent` [] done nextDiags = diagBent` todo [] nextDiags`
where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment