Revisions to Histogram generation

added 159 characters in body

Source Link

edited Dec 11, 2013 at 13:59

Powershell, 97 93

$a=@{};$args-split ' '|%{$a[$_.length]++};1..($a.Keys|sort)[-1]|%{"{0,-2} |"-f $_+"#"*$a[$_]}

Example:

PS Z:\> .\hist.ps1 This is an example of this program running
1  |
2  |###
3  |
4  |##
5  |
6  |
7  |###

$a=@{};$args-split ' '|%{$a[$_.length]++};1..($a.Keys|sort)[-1]|%{"{0,-2} |"-f $_+"#"*$a[$_]}

$a=@{};$args-split ' '|%{$a[$_.length]++};1..($a.Keys|sort)[-1]|%{"{0,-2} |"-f $_+"#"*$a[$_]}

Example:

PS Z:\> .\hist.ps1 This is an example of this program running
1  |
2  |###
3  |
4  |##
5  |
6  |
7  |###

added 6 characters in body

Source Link

edited Dec 11, 2013 at 10:15

$a=@{};$args-split ' '|%{$a[$_.length]++};1..($a.Keys|sort -des)[0]|%[-1]|%{"{0,-2} |"-f $_+"#"*$a[$_]}

$a=@{};$args-split ' '|%{$a[$_.length]++};1..($a.Keys|sort -des)[0]|%{"{0,-2} |"-f $_+"#"*$a[$_]}

$a=@{};$args-split ' '|%{$a[$_.length]++};1..($a.Keys|sort)[-1]|%{"{0,-2} |"-f $_+"#"*$a[$_]}

Source Link

created Dec 11, 2013 at 9:56

$a=@{};$args-split ' '|%{$a[$_.length]++};1..($a.Keys|sort -des)[0]|%{"{0,-2} |"-f $_+"#"*$a[$_]}