Back to task

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


Leave a comment

Parsed as Markdown

Login to leave a comment