RosettaCodeData/Task/Fivenum/Mathematica/fivenum.math
2023-07-01 13:44:08 -04:00

3 lines
119 B
Text

ClearAll[FiveNum]
FiveNum[x_List] := Quantile[x, Range[0, 1, 1/4]]
FiveNum[RandomVariate[NormalDistribution[], 10000]]