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