Data update

Task/Anagrams/PowerShell/anagrams-1.psh

@@ -1,13 +0,0 @@
-$c = New-Object Net.WebClient
-$words = -split ($c.DownloadString('http://wiki.puzzlers.org/pub/wordlists/unixdict.txt'))
-$top_anagrams = $words `
-    | ForEach-Object {
-          $_ | Add-Member -PassThru NoteProperty Characters `
-                   (-join (([char[]] $_) | Sort-Object))
-      } `
-    | Group-Object Characters `
-    | Group-Object Count `
-    | Sort-Object Count `
-    | Select-Object -First 1
-
-$top_anagrams.Group | ForEach-Object { $_.Group -join ', ' }

Task/Anagrams/PowerShell/anagrams-2.psh

@@ -1,43 +0,0 @@
-$Timer = [System.Diagnostics.Stopwatch]::StartNew()
-
-$uri = 'http://wiki.puzzlers.org/pub/wordlists/unixdict.txt'
-$words = -split [Net.WebClient]::new().DownloadString($uri)
-
-$anagrams = @{}
-$maxAnagramCount = 0
-
-foreach ($w in $words)
-{
-    # Sort the characters in the word into alphabetical order
-    $chars=[char[]]$w
-    [array]::sort($chars)
-    $orderedChars = [string]::Join('', $chars)
-
-
-    # If no anagrams list for these chars, make one
-    if (-not $anagrams.ContainsKey($orderedChars))
-    {
-        $anagrams[$orderedChars] = [Collections.Generic.List[String]]::new()
-    }
-
-
-    # Add current word as an anagram of these chars,
-    # in a way which keeps the list available
-    ($list = $anagrams[$orderedChars]).Add($w)
-
-
-    # Keep running score of max number of anagrams seen
-    if ($list.Count -gt $maxAnagramCount)
-    {
-        $maxAnagramCount = $list.Count
-    }
-
-}
-
-foreach ($entry in $anagrams.GetEnumerator())
-{
-    if ($entry.Value.Count -eq $maxAnagramCount)
-    {
-        [string]::join('', $entry.Value)
-    }
-}