We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 1b36590 commit 102f783Copy full SHA for 102f783
src/2024/day23.lisp
@@ -21,7 +21,7 @@
21
(computers (gethash comp edges)))
22
(zapf clique #'canonicalize)
23
(unless-already-seen (seen clique)
24
- (cond ((= (length clique) size) (adjoin! (canonicalize clique)))
+ (cond ((= (length clique) size) (adjoin! clique))
25
(t (dolist (comp computers)
26
(recur (cons comp clique)
27
(intersection computers (gethash comp edges)
0 commit comments