Select Code to Download

#! perl -slw
use warnings;
...

print "\n@a\n@b\n";
print "@$_" for map{ @$_ } @d;

P:\test>377814
1.0 cmp 1.0 : (0.00000000000000000000000000000000) : 0
...
+ 4 5.0
- 5 5.8
+ 5 6.0

 1:24:24.44 C:\Perl\test>377814
1.0 cmp 1.0 : (0.00000000000000000000000000000000) : 0
...
+ 2 3.0
- 5 5.8
+ 5 6.0