You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
634 B
Plaintext
19 lines
634 B
Plaintext
2 years ago
|
import GameServer.Commands
|
||
|
|
|
||
|
|
open Lean
|
||
|
|
|
||
|
|
-- E → A → B → C → A and
|
||
|
|
-- F → G → F
|
||
|
|
open HashMap in
|
||
|
|
def testArrows : HashMap Name (HashSet Name) :=
|
||
|
|
ofList [("a", (HashSet.empty.insert "b": HashSet Name).insert "d"),
|
||
|
|
("b", (HashSet.empty.insert "c": HashSet Name)),
|
||
|
|
("c", (HashSet.empty.insert "a": HashSet Name)),
|
||
|
|
("d", {}),
|
||
|
|
("f", (HashSet.empty.insert "g": HashSet Name)),
|
||
|
|
("g", (HashSet.empty.insert "f": HashSet Name)),
|
||
|
|
("e", (HashSet.empty.insert "a": HashSet Name).insert "f")]
|
||
|
|
|
||
|
|
-- some permutation of ``[`c, `a, `b]`` or ``[`f, `g]``
|
||
|
|
#eval findLoops testArrows
|