RosettaCodeData/Task/Display-a-linear-combination/Mathematica/display-a-linear-combination.math

3 lines
198 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
tests = {{1, 2, 3}, {0, 1, 2, 3}, {1, 0, 3, 4}, {1, 2, 0}, {0, 0, 0}, {0}, {1, 1, 1}, {-1, -1, -1}, {-1, -2, 0, -3}, {-1}};
Column[TraditionalForm[Total[MapIndexed[#1 e[#2[[1]]] &, #]]] & /@ tests]