1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia de cada una de las letras que contiene el fichero #Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada [System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList ForEach ($elemento in gc .\quijote.txt){ #Agrega un objeto al final de ArrayList 0..($elemento.Length-1) | %{ [void]$arraylist.Add($elemento[$_]) } } #Representar la frecuencia gráficamente $arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{ $frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100)) $frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline}) Write-Host $_.name,$frecuencia,$frecuenciadibujo } |