Back to task

180 symbols perl
Mon Dec 29 20:14:09 2014 danieljabailey
sub p{print@_}for(<>){s/(\D{3})$//;push@c,$1;$m{$1}=$_}p"\\ ";for(@c){p"   ",$_}p$/;for(@c){p$_;$v=$_;for(@c){($v eq$_)?p$c[-1]ne$v?"  1   ":"  1":printf"  %.2f",$m{$_}/$m{$v}}p$/}


Leave a comment

Parsed as Markdown

Login to leave a comment