I quickly ran the code on J and got ratios of lines:0.5, characters: 0.74, tokens:0.5, over 432 comparisons IE J is about half the length of Mathematica code.
APL, has ratios of between 1 and 2 (IE a little longer than Mathematica, but over only 32 comparisons which is too few to be reliable).
Julia was also asked about, but there are only 9 comparisons which is certainly too few to be meaningful.
APL, has ratios of between 1 and 2 (IE a little longer than Mathematica, but over only 32 comparisons which is too few to be reliable).
Julia was also asked about, but there are only 9 comparisons which is certainly too few to be meaningful.