From: Ummon <greg.burri@gmail.com>
Date: Mon, 4 Dec 2017 07:09:46 +0000 (+0100)
Subject: Improve conciseness...
X-Git-Url: https://git.euphorik.ch/?a=commitdiff_plain;h=d7cbab174852e3190a5976bf518adf2282e6e55e;p=advent_of_code_2017.git

Improve conciseness...
---

diff --git a/AdventOfCode2017/Day4.fs b/AdventOfCode2017/Day4.fs
index 0d2f6f8..87ad47e 100644
--- a/AdventOfCode2017/Day4.fs
+++ b/AdventOfCode2017/Day4.fs
@@ -1,7 +1,5 @@
 module AdventOfCode2017.Day4
 
-open System
-
 let forallDistinctPairs (f : string -> string -> bool) (pp : string) =
     let words = pp.Split ' '
     [
@@ -10,11 +8,6 @@ let forallDistinctPairs (f : string -> string -> bool) (pp : string) =
     ] |> List.forall not
 
 let passphraseValid = forallDistinctPairs (=)
-
-let isAnagram (w1 : string) (w2 : string) =
-    (w1.ToCharArray () |> Array.sort) = (w2.ToCharArray () |> Array.sort)
-
+let isAnagram (w1 : string) (w2 : string) = (w1.ToCharArray () |> Array.sort) = (w2.ToCharArray () |> Array.sort)
 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
+let nbPassphrasesValid (f : string -> bool) = Seq.map f >> Seq.sumBy (fun v -> if v then 1 else 0)
\ No newline at end of file