From: Ummon <greg.burri@gmail.com>
Date: Mon, 4 Dec 2017 07:35:44 +0000 (+0100)
Subject: Can't compare sequences directly
X-Git-Url: https://git.euphorik.ch/?a=commitdiff_plain;h=510215f0f2e2e19f02053b770e3f460b1b154299;p=advent_of_code_2017.git

Can't compare sequences directly
---

diff --git a/AdventOfCode2017/Day4.fs b/AdventOfCode2017/Day4.fs
index 9b73bf7..c71ec77 100644
--- a/AdventOfCode2017/Day4.fs
+++ b/AdventOfCode2017/Day4.fs
@@ -8,6 +8,6 @@ let forallDistinctPairs (f : string -> string -> bool) (pp : string) =
     ] |> List.forall not
 
 let passphraseValid = forallDistinctPairs (=)
-let isAnagram w1 w2 = Seq.sort w1 = Seq.sort w2
+let isAnagram w1 w2 = Seq.compareWith (compare) (Seq.sort w1) (Seq.sort w2) = 0
 let passphraseValidAnagram = forallDistinctPairs isAnagram
 let nbPassphrasesValid (f : string -> bool) = Seq.map f >> Seq.sumBy (fun v -> if v then 1 else 0)
\ No newline at end of file