Back to task

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


Leave a comment

Parsed as Markdown

Login to leave a comment