#Mathematica, (削除) 30 (削除ここまで) 17 bytes# -13 bytes by murphy

Sort@#.-Sort@-#2&

Function, input is vector1(list),vector2(list) Several revisions:

Plus@@(Sort@#*Reverse@Sort@#2)&(*me*)
Total[Sort@#*Reverse@Sort@#2]& 
Sort@#.Reverse@Sort@#2& (*alephalpha*)
Sort@#.Sort[#2,#>#2&]& (*murphy*)
Sort@#.SortBy[#2,-#&] (*me*)
Sort@#.-Sort@-#2& (*murphy*)

Mathematica, (削除) 30 (削除ここまで) 17 bytes

-13 bytes by murphy

Sort@#.-Sort@-#2&

Function, input is vector1(list),vector2(list) Several revisions:

Plus@@(Sort@#*Reverse@Sort@#2)&(*me*)
Total[Sort@#*Reverse@Sort@#2]& 
Sort@#.Reverse@Sort@#2& (*alephalpha*)
Sort@#.Sort[#2,#>#2&]& (*murphy*)
Sort@#.SortBy[#2,-#&] (*me*)
Sort@#.-Sort@-#2& (*murphy*)

#Mathematica, 30 bytes# Total[Sort@#*Reverse@Sort@#2]& Function, input is vector1(list),vector2(list)

#Mathematica, (削除) 30 (削除ここまで) 17 bytes# -13 bytes by murphy

Sort@#.-Sort@-#2&

Function, input is vector1(list),vector2(list) Several revisions:

Plus@@(Sort@#*Reverse@Sort@#2)&(*me*)
Total[Sort@#*Reverse@Sort@#2]& 
Sort@#.Reverse@Sort@#2& (*alephalpha*)
Sort@#.Sort[#2,#>#2&]& (*murphy*)
Sort@#.SortBy[#2,-#&] (*me*)
Sort@#.-Sort@-#2& (*murphy*)