$ od -c -N 50000 [qv]<IDL>koto>IDLARRAYUTIL.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - J u n - 8 6 1 1 : 5 1 : 3 7
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 > I D L A R R A Y U T I
0000120 L . ; 1 ) \r " 1 2 - N o v - 8
0000140 5 1 4 : 5 9 : 2 3 " r e c o
0000160 m p i l e d A L L i n " I
0000200 N T E R L I S P - D 1 1 - M a
0000220 y - 8 6 . . . " d a t e d
0000240 " 1 1 - M a y - 8 6 1 5 : 1 9
0000260 : 0 8 " ) \r ( F I L E C R E A T
0000300 E D " 6 - J u n - 8 6 1 1
0000320 : 5 0 : 4 6 " { Q V } < P E D
0000340 E R S E N > L I S P > I D L A R
0000360 R A Y U T I L . ; 1 6 2 4 8
0000400 c h a n g e s t o : ( V A R
0000420 S \r I D L A R R A Y U T I L C
0000440 O M S ) ( F N S I D L - A N
0000460 D I D L - C E I L I N G I D
0000500 L - C H O O S E I D L - E Q U
0000520 A L I D L - F A C T O R I A L
0000540 I D L - F L O O R I D L - N
0000560 O T I D L - O R \r L I S T R
0000600 E F L I S T S E T P E R M U
0000620 T E L I S T T E S T - R E S U
0000640 L T R A N D - N O R M A L R
0000660 A N D - P E R M U T A T I O N )
0000700 ) \r I D L - A N D D 1 \r ( L
0000720 ( 1 Y 0 X ) ) \0 \r \0 \0 \0
0000740 002 @ k 360 225 A k 360 221 k 020 j 020 \0 N I
0000760 L \r N I L \r ( ) \r I D L - C E I
0001000 L I N G D 1 \r ( P 1 F I X
0001020 X I 0 X ) \0 031 002 \0 \0 001 @
0001040 355 001 021 021 001 H 355 004 Y d 355 001 H 375 354 005
0001060 223 I k 330 020 I 020 \0 N I L \r N I L \r
0001100 ( ) \r I D L - C H O O S E D 1
0001120 \r ( I 1 R I 0 N ) \0
0001140 200 003 \0 \0 002 j @ 361 251 j A 361 245 A d @
0001160 361 231 277 o \0 \0 \0 \t \0 \0 277 A @ k \n \0
0001200 \0 361 225 @ A 331 b 002 277 @ j 360 221 k 020 A
0001220 d j 360 263 372 k 360 221 @ 020 l \b @ 361 262 4
0001240 @ d A 331 k 330 k 021 003 002 I H 363 251 J I
0001260 326 272 I k 324 Y 260 365 J 022 A k d 021 003 002
0001300 I H 363 251 J I 326 272 I k 324 Y 260 365 J 022
0001320 333 020 @ k 331 A \n \0 \0 @ k 331 A k 331 \n
0001340 \0 \0 330 020 \0 ( 1 7 4 Q I D L - C
0001360 H O O S E 1 6 3 Q I D L - C
0001400 H O O S E 3 3 Q R S H 2 4
0001420 Q H E L P ) \r N I L \r ( 2 1
0001440 Q " I n v a l i d a r g s "
0001460 ) \r I D L - E Q U A L D 1 \r (
0001500 I 1 Y I 0 X ) \0 \v \0
0001520 \0 \0 002 @ A \n \0 \0 221 k 020 j 020 \0 ( 4
0001540 E Q U A L P ) \r N I L \r ( ) \r
0001560 I D L - F A C T O R I A L D 1
0001600 \r ( L ( 0 N ) ) \0 027 003 \0 \0
0001620 001 @ k d 021 003 002 I H 363 251 J I 326 272 I
0001640 k 324 Y 260 365 J 020 \0 N I L \r N I L \r
0001660 ( ) \r I D L - F L O O R D 1 \r
0001700 ( P 1 F I X X I 0 X )
0001720 \0 030 002 \0 \0 001 @ 355 001 021 021 001 H 355 004
0001740 Y d 355 001 H 354 005 223 I k 331 020 I 020 \0 N
0001760 I L \r N I L \r ( ) \r I D L - N O
0002000 T D 1 \r ( L ( 0 L O G I C
0002020 A L - V A L U E ) ) \0 \t \0 \0 \0
0002040 001 @ j 360 221 k 020 j 020 \0 N I L \r N I
0002060 L \r ( ) \r I D L - O R D 1 \r (
0002100 L ( 1 Y 0 X ) ) \0 \r \0
0002120 \0 \0 002 @ k 360 243 A k 360 221 k 020 j 020 \0
0002140 N I L \r N I L \r ( ) \r L I S T R
0002160 E F D 1 \r ( I 1 I N D E X
0002200 I 0 L S T ) \0 \n \0 \0 \0 002
0002220 @ A k 330 \n \0 \0 001 020 \0 ( 6 F N T
0002240 H ) \r N I L \r ( ) \r P E R M U T
0002260 E L I S T D 1 \r ( P 7 L S
0002300 T E L T P 6 I N D E X P
0002320 5 R E S U L T I 1 P E
0002340 R M U T A T I O N I 0 L S
0002360 T ) \0 Y \b \0 \0 002 @ A \t \0 \0 \n \0
0002400 \0 247 o \0 \0 \0 \t \0 \0 277 @ A @ \t \0 \0
0002420 k 021 2 004 I H 363 264 \r J 022 021 # \a L 003
0002440 265 030 260 034 274 K 265 \r L h 032 [ 272 I k 324
0002460 Y 260 344 L & 273 260 367 001 276 K 003 265 004 M 020
0002500 001 _ 016 M N \v \0 \0 277 L 002 274 K 002 273 260
0002520 317 \0 ( 1 1 6 Q L I S T S E T
0002540 2 6 Q L E N G T H 1 7 Q H
0002560 E L P 7 E Q L E N G T H 4
0002600 L E N G T H ) \r N I L \r ( 1
0002620 4 Q " L S T a n d P E R M
0002640 U T A T I O N n o t o f s
0002660 a m e l e n g t h " ) \r L I S
0002700 T S E T D 1 \r ( I 2 I N D
0002720 E X I 1 L S T I 0 N
0002740 E W V A L U E ) \0 \v \0 \0 \0 003 A
0002760 B k 330 \n \0 \0 @ 030 020 \0 ( 6 F N T
0003000 H ) \r N I L \r ( ) \r R A N D - N
0003020 O R M A L D 1 \r ( P 7 B
0003040 P 6 A P 5 R 2 P 4
0003060 R 1 P 3 T W O P I P
0003100 2 S T O R E I 1 S I G M
0003120 A I 0 M U ) \0 206 \b \0 \0 002
0003140 @ 265 006 o \0 \0 \0 355 001 A 265 006 o \0 \0 \0
0003160 355 001 021 002 001 I h 354 005 250 o \0 \0 \0 A \n
0003200 \0 \0 277 H I o \0 \0 \0 021 001 002 J 001 227 J
0003220 001 J h 030 277 260 F o \0 \0 \0 o \0 \0 \0 o
0003240 \0 \0 \0 \n \0 \0 o \0 \0 \0 o \0 \0 \0 \n \0
0003260 \0 021 # \a L \t \0 \0 o \0 \0 \0 352 \t \0 \0
0003300 276 K M 352 _ 016 277 J N O 016 i \n \0 \0 352
0003320 030 277 N O 016 i \n \0 \0 352 022 022 355 001 354 003
0003340 354 \0 355 \0 020 \0 ( 1 7 0 Q S I N
0003360 1 5 6 Q C O S 1 3 7 Q S Q
0003400 R T 1 2 7 Q L O G 1 2 0 Q
0003420 R A N D 1 0 5 Q R A N D
0003440 4 1 Q E R R O R ) \r N I L \r (
0003460 1 3 3 Q - 2 . 0 1 1 5 Q
0003500 1 . 0 1 1 1 Q 0 . 0 1 0 2
0003520 Q 1 . 0 7 6 Q 0 . 0 7 2
0003540 Q 6 . 2 8 3 1 8 6 5 0 Q (
0003560 N I L ) 3 5 Q " S I G M A
0003600 m u s t b e p o s i t i v e
0003620 " 1 7 Q 1 . 0 6 0 . 0 )
0003640 \r R A N D - P E R M U T A T I O
0003660 N D 1 \r ( P 4 T E M P P
0003700 3 I P 2 N E W L S T
0003720 P 1 J I 0 L S T ) \0
0003740 F 005 \0 \0 001 j @ \t \0 \0 k 331 @ \t \0 \0
0003760 021 # 004 H I 363 263 2 I o \0 \0 \0 o \0 \0
0004000 \0 \n \0 \0 352 \t \0 \0 273 J K \n \0 \0 274 J
0004020 I \n \0 \0 J K \v \0 \0 277 L J I \v \0 \0
0004040 277 I m 377 324 271 260 315 J 020 \0 ( 7 2 Q
0004060 L I S T S E T 6 3 Q L I S T
0004100 S E T 5 6 Q L I S T R E F
0004120 5 0 Q L I S T R E F 4 2 Q
0004140 I D L - F L O O R 3 6 Q R A
0004160 N D 1 2 Q C O P Y 4 L E
0004200 N G T H ) \r N I L \r ( 3 3 Q
0004220 1 . 0 2 7 Q 0 . 0 ) \r T E S
0004240 T - R E S U L T D 1 \r ( I 2
0004260 R E S U L T E L T T Y P E I
0004300 1 R E S U L T D I M S I
0004320 0 R E S U L T A R R A Y ) \0
0004340 $ \0 \0 \0 003 @ 265 \v A g \0 \0 B \v \0 \0
0004360 020 B \n \0 \0 226 @ \t \0 \0 A 364 250 o \0 \0
0004400 \0 @ \n \0 \0 020 h 020 \0 ( 3 7 Q H E
0004420 L P 2 4 Q I D L A R R A Y -
0004440 D I M S 1 7 Q I D L A R R A
0004460 Y - E L T T Y P E P 1 2 Q M
0004500 A K E - I D L A R R A Y ) \r ( 6
0004520 : E L T T Y P E ) \r ( 3 3 Q
0004540 " I n v a l i d R E S U L T
0004560 " ) \r ( P R E T T Y C O M P R I
0004600 N T I D L A R R A Y U T I L C
0004620 O M S ) \r ( R P A Q Q I D L A
0004640 R R A Y U T I L C O M S ( ( *
0004660 F i l e c r e a t e d b y
0004700 C o m s M a n a g e r . )
0004720 ( F N S I D L - A N D I D L
0004740 - C E I L I N G I D L - C H O
0004760 O S E \r I D L - E Q U A L I
0005000 D L - F A C T O R I A L I D L
0005020 - F L O O R I D L - N O T I
0005040 D L - O R L I S T R E F P E
0005060 R M U T E L I S T L I S T S E
0005100 T R A N D - N O R M A L \r R
0005120 A N D - P E R M U T A T I O N
0005140 T E S T - R E S U L T ) ) ) \r (
0005160 P U T P R O P S I D L A R R A
0005200 Y U T I L C O P Y R I G H T
0005220 ( " X e r o x C o r p o r a t
0005240 i o n " 1 9 8 6 ) ) \r N I L \r
0005260