例如
L1 = {{1, 1}, {2, 4}};
L2 = {{2, 2}, {0, 4}};
求直线L1和L2的交点
我虽然做了出来，但觉得实现很罗嗦，期待比较好的解法

没有比这个更简单的方法了吧。。

我只能想到Solve核心的代码……

我做的先发上来吧，最开始做的比这个更罗嗦
L1 = {{1, 1}, {2, 4}};
L2 = {{2, 2}, {0, 4}};
t = Solve[(y == k x + b /. Thread[{x, y} -> #] &) /@ #, {k, b}] & /@ {L1, L2};
Solve[y == k x + b /. t // Flatten, {x, y}]

Solve[(
#[[1]] - #
[[2]])[[2]] (x -
#[[1, 1]]) == (y - #
[[1, 2]]) (
#[[1]] - #
[[2]])[[1]] & /@ {L1, L2}, {x, y}]
依旧啰嗦嗯……

改进版：
Solve[Cross[
#[[1]] - {x, y}].(#
[[2]] - {x, y}) == 0 & /@ {L1, L2}, {x, y}]

再改进版：
Solve[Cross[
#1 - {x, y}].(#
2 - {x, y}) == 0 & @@@ {L1, L2}, {x, y}]

{x, Fit[L1, {1, x}, x]} /.
Solve[Fit[L1, {1, x}, x] == Fit[L2, {1, x}, x], x]

Solve[y == InterpolatingPolynomial[#, x] & /@ {L1, L2}]
求更短的