Back to task

166 symbols perl
Sun Jan 11 20:27:21 2015 danieljabailey
#!/usr/bin/perl -n
s/(\D{3})$//;push@c,$1;$m{$1}=$_}{sub p{print@_}p"\\ ";p"   $_"for@c;p$/;for(@c){p$_;$v=$_;$v eq$_?p$c[-1]ne$v?"  1   ":"  1":printf"  %.2f",$m{$_}/$m{$v}for@c;p$/}


Leave a comment

Parsed as Markdown

Login to leave a comment