RosettaCodeData/Task/Fivenum/J/fivenum-1.j
2023-07-01 13:44:08 -04:00

3 lines
214 B
Text

midpts=: (1 + #) <:@(] , -:@[ , -) -:@<.@-:@(3 + #) NB. mid points of y
quartiles=: -:@(+/)@((<. ,: >.)@midpts { /:~@]) NB. quartiles of y
fivenum=: <./ , quartiles , >./ NB. fivenum summary of y