Back to task

170 symbols perl
Sun Jan 4 01:46:13 2015 vakorol
#!/usr/bin/perl -ap
/\S+$/;$s||='\ ';push@n,$&;push@v,$`;$s.="   $&"}{$s.="\n";$s.=$n[$i],(map{$s.=sprintf$_==$v[$i]?"  %-4i":"  %.2f",$_/$v[$i]}@v),$s.="\n",$i++while$i<@n;$_=$s;s/ +.$//


Leave a comment

Parsed as Markdown

Login to leave a comment