Functions/Get-WordList.ps1
|
function Get-WordList { <# .SYNOPSIS Returns a list of over 38,000 words. .DESCRIPTION Returns a list of over 38,000 words. .NOTES Originally taken from a Linux distribution and original file name was linuxwords Over 38,000 words appear in the file WordList.txt found in the installation folder of this module. .EXAMPLE # Desire to get a list the First 2 palindromes Get-WordList | Where-Object { $_ -eq (format-reversestring $_)} | Select-Object -First 2 | Tee-Object -Variable Palindrome Would return bib bob .EXAMPLE # Desire to get the longest word in the wordlist Get-WordList | Select-Object @{Name='Word';Expr={$_}}, @{Name='WordLength';Expr={$_.Length}} | Sort WordLength -Descending | Select-Object -First 1 Word WordLength ---- ---------- antidisestablishmentarianism 28 .EXAMPLE # Desire to get a count of words by length Get-WordList | Select-Object @{Name='Word';Expr={$_}}, @{Name='Len';Expr={$_.Length}} | Group-Object Len | Select-Object Name, Count | Select-Object @{Name='WordLength';Expr={([int] $_.Name)}}, Count | Sort-Object WordLength WordLength Count ---------- ----- 2 39 3 437 4 1785 5 3264 6 4962 7 6126 8 6020 9 5287 10 4115 11 2826 12 1759 13 1070 14 507 15 251 16 88 17 53 18 21 19 3 20 2 21 1 22 1 28 1 .OUTPUTS [string[]] #> [CmdletBinding(ConfirmImpact='None')] [OutputType([string[]])] Param() #endregion Parameter begin { Write-Verbose -Message "Starting $($MyInvocation.Mycommand)" } process { $Script:WordList } end { Write-Verbose -Message "Ending $($MyInvocation.Mycommand)" } } |