$ od -c -N 50000 [qv]<IDL>koto>EARRAY-SORTFNS.DCOM!1
0000000 ( F I L E C R E A T E D " 1 7
0000020 - J u n - 8 6 1 8 : 2 5 : 4 3
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > E A R R A Y - S O R T
0000120 F N S . ; 2 ) \r " 1 2 - N o v
0000140 - 8 5 1 4 : 5 9 : 2 3 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : n o t h i n g i n " I N
0000220 T E R L I S P - D 1 1 - M a y
0000240 - 8 6 . . . " d a t e d \r
0000260 " 1 1 - M a y - 8 6 1 5 : 1 9
0000300 : 0 8 " ) \r ( F I L E C R E A T
0000320 E D " 1 7 - J u n - 8 6 1 8
0000340 : 2 5 : 1 3 " { Q V } < P E D
0000360 E R S E N > L I S P > E A R R A
0000400 Y - S O R T F N S . ; 2 8 5 9
0000420 7 c h a n g e s t o : ( V
0000440 A R S \r E A R R A Y - S O R T
0000460 F N S C O M S ) p r e v i o u
0000500 s d a t e : " 1 6 - J u n -
0000520 8 6 1 8 : 3 7 : 4 5 " { Q V
0000540 } < P E D E R S E N > L I S P >
0000560 E A R R A Y - S O R T F N S . ;
0000600 1 ) \r E A R R A Y - F L O A T -
0000620 M E D I A N D 1 \r ( L ( 0
0000640 F L O A T V E C T O R ) ) \0 .
0000660 002 \0 \0 001 @ \t \0 \0 021 021 001 H k 331 l 002
0000700 333 271 H k 345 j 360 245 @ I \n \0 \0 020 @ I
0000720 \n \0 \0 @ I k 330 \n \0 \0 350 o \0 \0 \0 353
0000740 020 \0 ( 4 5 Q F L O A T - A R R
0000760 A Y - K T H - E L T 3 6 Q F
0001000 L O A T - A R R A Y - K T H - E
0001020 L T 3 0 Q F L O A T - A R R
0001040 A Y - K T H - E L T 3 E A R
0001060 R A Y - T O T A L - S I Z E ) \r
0001100 N I L \r ( 5 2 Q 2 . 0 ) \r E
0001120 A R R A Y - F L O A T - Q U A N
0001140 T I L E D 1 \r ( L ( 1 F L
0001160 O A T V E C T O R 0 Q U A N
0001200 T I L E ) ) \0 2 003 \0 \0 002 A \t \0
0001220 \0 021 ! 002 @ H k 331 352 Y \t \0 \0 272 I J
0001240 \n \0 \0 225 A J \n \0 \0 020 A J \n \0 \0 A
0001260 I \t \0 \0 \n \0 \0 350 o \0 \0 \0 353 020 \0 (
0001300 5 1 Q F L O A T - A R R A Y -
0001320 K T H - E L T 4 6 Q S C A L
0001340 A R - C E I L I N G 4 1 Q F
0001360 L O A T - A R R A Y - K T H - E
0001400 L T 3 3 Q F L O A T - A R R
0001420 A Y - K T H - E L T 2 5 Q E
0001440 Q P 1 7 Q S C A L A R - F L
0001460 O O R 3 E A R R A Y - T O T
0001500 A L - S I Z E ) \r N I L \r ( 5
0001520 6 Q 2 . 0 ) \r E A R R A Y - G
0001540 E N E R I C - M E D I A N D 1
0001560 \r ( L ( 0 V E C T O R ) F
0001600 2 C O M P A R E F N ) \0 /
0001620 002 001 \0 001 @ \t \0 \0 021 021 001 H k 331 l 002
0001640 333 271 H k 345 j 360 246 @ I R \v \0 \0 020 @
0001660 I \n \0 \0 @ I k 330 \n \0 \0 350 o \0 \0 \0
0001700 353 020 \0 ( 4 6 Q A R R A Y - K T
0001720 H - E L T 3 7 Q A R R A Y -
0001740 K T H - E L T 3 1 Q A R R A
0001760 Y - K T H - E L T 3 E A R R
0002000 A Y - T O T A L - S I Z E ) \r N
0002020 I L \r ( 5 3 Q 2 . 0 ) \r E A
0002040 R R A Y - G E N E R I C - Q U A
0002060 N T I L E D 1 \r ( L ( 1 V
0002100 E C T O R 0 Q U A N T I L E
0002120 ) ) \0 2 003 \0 \0 002 A \t \0 \0 021 ! 002
0002140 @ H k 331 352 Y \t \0 \0 272 I J \n \0 \0 225
0002160 A J \n \0 \0 020 A J \n \0 \0 A I \t \0 \0
0002200 \n \0 \0 350 o \0 \0 \0 353 020 \0 ( 5 1 Q
0002220 A R R A Y - K T H - E L T 4 6
0002240 Q S C A L A R - C E I L I N G
0002260 4 1 Q A R R A Y - K T H - E
0002300 L T 3 3 Q A R R A Y - K T H
0002320 - E L T 2 5 Q E Q P 1 7 Q
0002340 S C A L A R - F L O O R 3
0002360 E A R R A Y - T O T A L - S I Z
0002400 E ) \r N I L \r ( 5 6 Q 2 . 0
0002420 ) \r E A R R A Y - G R A D E - D
0002440 O W N D 1 \r ( L ( 1 R E S
0002460 U L T 0 V E C T O R ) ) \0
0002500 \n \0 \0 \0 002 @ g \0 \0 A \v \0 \0 020 \0 (
0002520 7 E A R R A Y - S O R T ) \r (
0002540 3 G R E A T E R P ) \r ( ) \r E
0002560 A R R A Y - G R A D E - D O W N
0002600 - S C A N D 1 \r ( L ( 2 R
0002620 E S U L T 1 A X I S 0 A
0002640 R R A Y ) ) \0 020 \0 \0 \0 003 g \0 \0
0002660 @ A B @ \t \0 \0 \r 005 \0 \0 020 \0 ( 1 5
0002700 Q E A R R A Y - S C A N 1 1
0002720 Q E A R R A Y - E L E M E N T
0002740 - T Y P E ) \r ( 2 G R A D E -
0002760 D O W N ) \r ( ) \r E A R R A Y -
0003000 G R A D E - U P D 1 \r ( L (
0003020 1 R E S U L T 0 V E C T O
0003040 R ) ) \0 \n \0 \0 \0 002 @ g \0 \0 A \v
0003060 \0 \0 020 \0 ( 7 E A R R A Y - S O
0003100 R T ) \r ( 3 L E S S P ) \r ( )
0003120 \r E A R R A Y - G R A D E - U P
0003140 - S C A N D 1 \r ( L ( 2 R
0003160 E S U L T 1 A X I S 0 A
0003200 R R A Y ) ) \0 020 \0 \0 \0 003 g \0 \0
0003220 @ A B @ \t \0 \0 \r 005 \0 \0 020 \0 ( 1 5
0003240 Q E A R R A Y - S C A N 1 1
0003260 Q E A R R A Y - E L E M E N T
0003300 - T Y P E ) \r ( 2 G R A D E -
0003320 U P ) \r ( ) \r E A R R A Y - I N
0003340 D E X - G R A D E - D O W N D
0003360 1 \r ( L ( 1 R E S U L T 0
0003400 V E C T O R ) ) \0 \n \0 \0 \0 002
0003420 @ g \0 \0 A \v \0 \0 020 \0 ( 7 E A R
0003440 R A Y - I N D E X - S O R T ) \r
0003460 ( 3 G R E A T E R P ) \r ( ) \r
0003500 E A R R A Y - I N D E X - G R A
0003520 D E - D O W N - S C A N D 1 \r
0003540 ( L ( 2 R E S U L T 1 A
0003560 X I S 0 A R R A Y ) ) \0 020
0003600 \0 \0 \0 003 g \0 \0 @ A B @ \t \0 \0 \r 005
0003620 \0 \0 020 \0 ( 1 5 Q E A R R A Y -
0003640 S C A N 1 1 Q E A R R A Y -
0003660 E L E M E N T - T Y P E ) \r ( 2
0003700 I N D E X - G R A D E - D O W
0003720 N ) \r ( ) \r E A R R A Y - I N D
0003740 E X - G R A D E - U P D 1 \r (
0003760 L ( 1 R E S U L T 0 V E
0004000 C T O R ) ) \0 \n \0 \0 \0 002 @ g \0
0004020 \0 A \v \0 \0 020 \0 ( 7 E A R R A Y
0004040 - I N D E X - S O R T ) \r ( 3
0004060 L E S S P ) \r ( ) \r E A R R A Y
0004100 - I N D E X - G R A D E - U P -
0004120 S C A N D 1 \r ( L ( 2 R E
0004140 S U L T 1 A X I S 0 A R
0004160 R A Y ) ) \0 020 \0 \0 \0 003 g \0 \0 @
0004200 A B @ \t \0 \0 \r 005 \0 \0 020 \0 ( 1 5 Q
0004220 E A R R A Y - S C A N 1 1 Q
0004240 E A R R A Y - E L E M E N T -
0004260 T Y P E ) \r ( 2 I N D E X - G
0004300 R A D E - U P ) \r ( ) \r E A R R
0004320 A Y - I N D E X - S O R T D 1
0004340 \r ( L ( 2 R E S U L T 1
0004360 C O M P A R E F N 0 V E C T
0004400 O R ) ) \0 P \0 \0 \0 003 @ \t \0 \0 k
0004420 360 250 o \0 \0 \0 @ \n \0 \0 277 A 245 g \0 \0
0004440 b 002 277 B @ \t \0 \0 \n \0 \0 b 004 @ d \t
0004460 \0 \0 g \0 \0 360 262 036 277 A d g \0 \0 360 226
0004500 277 @ B \n \0 \0 020 g \0 \0 360 226 @ B i \v
0004520 \0 \0 020 @ B A \v \0 \0 020 \0 ( 1 1 5 Q
0004540 I N D E X - A R R A Y - S O R
0004560 T 1 0 6 Q I N D E X - F L O
0004600 A T - A R R A Y - S O R T 7 2
0004620 Q I N D E X - F L O A T - A R
0004640 R A Y - S O R T 4 6 Q E A R
0004660 R A Y - E L E M E N T - T Y P E
0004700 3 7 Q E A R R A Y - T E S T
0004720 - R E S U L T 3 4 Q E A R R
0004740 A Y - D I M E N S I O N S 1 6
0004760 Q E R R O R 3 E A R R A Y
0005000 - R A N K ) \r ( 7 6 Q G R E A
0005020 T E R P 6 2 Q L E S S P 5
0005040 1 Q S I N G L E - F L O A T
0005060 2 4 Q L E S S P ) \r ( 1 2 Q
0005100 " A r r a y n o t o f r
0005120 a n k 1 " ) \r E A R R A Y - M
0005140 E D I A N D 1 \r ( L ( 1 R
0005160 E S U L T 0 V E C T O R ) )
0005200 \0 > \0 \0 \0 002 @ \t \0 \0 k 360 250 o \0
0005220 \0 \0 @ \n \0 \0 277 A @ \t \0 \0 @ \t \0 \0
0005240 \v \0 \0 b 002 @ A 360 246 @ h A \v \0 \0 277
0005260 A d \t \0 \0 g \0 \0 360 225 277 A \t \0 \0 020
0005300 \t \0 \0 020 \0 ( 7 3 Q E A R R A Y
0005320 - G E N E R I C - M E D I A N
0005340 6 7 Q E A R R A Y - F L O A T
0005360 - M E D I A N 5 5 Q E A R R
0005400 A Y - E L E M E N T - T Y P E
0005420 4 7 Q E A R R A Y - B L T 3
0005440 3 Q E A R R A Y - T E S T - R
0005460 E S U L T 3 0 Q E A R R A Y
0005500 - E L E M E N T - T Y P E 2 4
0005520 Q E A R R A Y - D I M E N S I
0005540 O N S 1 6 Q E R R O R 3
0005560 E A R R A Y - R A N K ) \r ( 6 0
0005600 Q S I N G L E - F L O A T ) \r
0005620 ( 1 2 Q " A r r a y n o t
0005640 o f r a n k 1 " ) \r E A R
0005660 R A Y - M E D I A N - R E D U C
0005700 E D 1 \r ( L ( 2 R E S U L
0005720 T 1 A X I S 0 A R R A Y
0005740 ) ) \0 020 \0 \0 \0 003 g \0 \0 @ A B @
0005760 \t \0 \0 \r 005 \0 \0 020 \0 ( 1 5 Q E A
0006000 R R A Y - R E D U C E 1 1 Q
0006020 E A R R A Y - E L E M E N T - T
0006040 Y P E ) \r ( 2 M E D I A N ) \r
0006060 ( ) \r E A R R A Y - Q U A N T I
0006100 L E D 1 \r ( L ( 2 R E S U
0006120 L T 1 V E C T O R 0 Q U
0006140 A N T I L E ) ) \0 S \0 \0 \0 003 @
0006160 j 363 226 o \0 \0 \0 @ 363 250 o \0 \0 \0 @ \n
0006200 \0 \0 277 A \t \0 \0 k 360 250 o \0 \0 \0 A \n
0006220 \0 \0 277 B A \t \0 \0 A \t \0 \0 \v \0 \0 b
0006240 004 A B 360 246 A h B \v \0 \0 277 B \t \0 \0
0006260 g \0 \0 360 225 @ B \n \0 \0 020 @ B \n \0 \0
0006300 020 \0 ( 1 2 0 Q E A R R A Y - G
0006320 E N E R I C - Q U A N T I L E
0006340 1 1 2 Q E A R R A Y - F L O A
0006360 T - Q U A N T I L E 1 0 0 Q
0006400 E A R R A Y - E L E M E N T - T
0006420 Y P E 7 3 Q E A R R A Y - B
0006440 L T 5 7 Q E A R R A Y - T E
0006460 S T - R E S U L T 5 4 Q E A
0006500 R R A Y - E L E M E N T - T Y P
0006520 E 5 0 Q E A R R A Y - D I M
0006540 E N S I O N S 4 2 Q E R R O
0006560 R 2 7 Q E A R R A Y - R A N
0006600 K 2 2 Q E R R O R ) \r ( 1 0
0006620 3 Q S I N G L E - F L O A T )
0006640 \r ( 3 6 Q " A r r a y n o
0006660 t o f r a n k 1 " 1 6 Q
0006700 " Q U A N T I L E o u t o
0006720 f b o u n d s " 7 1 . 0 )
0006740 \r E A R R A Y - S O R T D 1 \r
0006760 ( L ( 2 R E S U L T 1 C
0007000 O M P A R E F N 0 V E C T O
0007020 R ) ) \0 f \0 \0 \0 003 @ \t \0 \0 k 360
0007040 250 o \0 \0 \0 @ \n \0 \0 277 A 245 g \0 \0 b
0007060 002 277 B @ \t \0 \0 @ \t \0 \0 \v \0 \0 b 004
0007100 @ d B 360 246 h B \v \0 \0 277 @ \t \0 \0 g
0007120 \0 \0 360 262 & B d \t \0 \0 g \0 \0 360 262 034
0007140 277 A d g \0 \0 360 225 277 B \t \0 \0 020 g \0
0007160 \0 360 225 B i \n \0 \0 020 B A \n \0 \0 020 \0
0007200 ( 1 4 3 Q A R R A Y - S O R T
0007220 1 3 5 Q F L O A T - A R R A
0007240 Y - S O R T 1 2 2 Q F L O A
0007260 T - A R R A Y - S O R T 7 7 Q
0007300 E A R R A Y - E L E M E N T -
0007320 T Y P E 6 4 Q E A R R A Y -
0007340 E L E M E N T - T Y P E 5 7 Q
0007360 E A R R A Y - B L T 4 3 Q
0007400 E A R R A Y - T E S T - R E S U
0007420 L T 4 0 Q E A R R A Y - E L
0007440 E M E N T - T Y P E 3 4 Q E
0007460 A R R A Y - D I M E N S I O N S
0007500 1 6 Q E R R O R 3 E A R
0007520 R A Y - R A N K ) \r ( 1 2 6 Q
0007540 G R E A T E R P 1 1 3 Q L E
0007560 S S P 1 0 2 Q S I N G L E -
0007600 F L O A T 6 7 Q S I N G L E
0007620 - F L O A T 2 4 Q L E S S P
0007640 ) \r ( 1 2 Q " A r r a y n
0007660 o t o f r a n k 1 " ) \r (
0007700 P R E T T Y C O M P R I N T E
0007720 A R R A Y - S O R T F N S C O M
0007740 S ) \r ( R P A Q Q E A R R A Y
0007760 - S O R T F N S C O M S ( ( *
0010000 F i l e c r e a t e d b y
0010020 C o m s M a n a g e r . )
0010040 ( F N S E A R R A Y - F L O A
0010060 T - M E D I A N \r E A R R A Y
0010100 - F L O A T - Q U A N T I L E
0010120 E A R R A Y - G E N E R I C - M
0010140 E D I A N E A R R A Y - G E N
0010160 E R I C - Q U A N T I L E E A
0010200 R R A Y - G R A D E - D O W N
0010220 \r E A R R A Y - G R A D E - D O
0010240 W N - S C A N E A R R A Y - G
0010260 R A D E - U P E A R R A Y - G
0010300 R A D E - U P - S C A N E A R
0010320 R A Y - I N D E X - G R A D E -
0010340 D O W N \r E A R R A Y - I N D
0010360 E X - G R A D E - D O W N - S C
0010400 A N E A R R A Y - I N D E X -
0010420 G R A D E - U P E A R R A Y -
0010440 I N D E X - G R A D E - U P - S
0010460 C A N E A R R A Y - I N D E X
0010500 - S O R T \r E A R R A Y - M E
0010520 D I A N E A R R A Y - M E D I
0010540 A N - R E D U C E E A R R A Y
0010560 - Q U A N T I L E E A R R A Y
0010600 - S O R T ) ( D E C L A R E :
0010620 D O N T E V A L @ L O A D D
0010640 O E V A L @ C O M P I L E \r D
0010660 O N T C O P Y ( L O C A L V A
0010700 R S . T ) ) ) ) \r ( P U T P
0010720 R O P S E A R R A Y - S O R T
0010740 F N S C O P Y R I G H T ( "
0010760 X e r o x C o r p o r a t i o
0011000 n " 1 9 8 6 ) ) \r N I L \r
0011016