/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / C / ioccc / obfuscate_1989.shar

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 73 70 | 69 6e 69 66 65 78 21 65 |Path: sp|inifex!e|
|00000010| 6c 65 63 76 61 78 21 75 | 73 61 67 65 21 62 61 73 |lecvax!u|sage!bas|
|00000020| 73 65 72 21 6d 75 6e 6e | 61 72 69 2e 6f 7a 2e 61 |ser!munn|ari.oz.a|
|00000030| 75 21 6d 75 72 74 6f 61 | 2e 63 73 2e 6d 75 2e 6f |u!murtoa|.cs.mu.o|
|00000040| 7a 2e 61 75 21 75 75 6e | 65 74 21 67 69 6e 6f 73 |z.au!uun|et!ginos|
|00000050| 6b 6f 21 67 65 6d 2e 6d | 70 73 2e 6f 68 69 6f 2d |ko!gem.m|ps.ohio-|
|00000060| 73 74 61 74 65 2e 65 64 | 75 21 61 70 70 6c 65 21 |state.ed|u!apple!|
|00000070| 6f 6c 69 76 65 62 21 74 | 6f 6c 73 6f 66 74 21 63 |oliveb!t|olsoft!c|
|00000080| 68 6f 6e 67 6f 0a 46 72 | 6f 6d 3a 20 63 68 6f 6e |hongo.Fr|om: chon|
|00000090| 67 6f 40 74 6f 6c 65 72 | 61 6e 74 2e 63 6f 6d 20 |go@toler|ant.com |
|000000a0| 28 4c 61 6e 64 6f 6e 20 | 43 75 72 74 20 4e 6f 6c |(Landon |Curt Nol|
|000000b0| 6c 29 0a 4e 65 77 73 67 | 72 6f 75 70 73 3a 20 63 |l).Newsg|roups: c|
|000000c0| 6f 6d 70 2e 6c 61 6e 67 | 2e 63 2c 63 6f 6d 70 2e |omp.lang|.c,comp.|
|000000d0| 75 6e 69 78 2e 77 69 7a | 61 72 64 73 2c 61 6c 74 |unix.wiz|ards,alt|
|000000e0| 2e 73 6f 75 72 63 65 73 | 0a 53 75 62 6a 65 63 74 |.sources|.Subject|
|000000f0| 3a 20 31 39 38 39 20 49 | 6e 74 65 72 6e 61 74 69 |: 1989 I|nternati|
|00000100| 6f 6e 61 6c 20 4f 62 66 | 75 73 63 61 74 65 64 20 |onal Obf|uscated |
|00000110| 43 20 43 6f 64 65 20 43 | 6f 6e 74 65 73 74 20 57 |C Code C|ontest W|
|00000120| 69 6e 6e 65 72 73 0a 4b | 65 79 77 6f 72 64 73 3a |inners.K|eywords:|
|00000130| 20 69 6f 63 63 63 2c 31 | 39 38 39 0a 4d 65 73 73 | ioccc,1|989.Mess|
|00000140| 61 67 65 2d 49 44 3a 20 | 3c 31 39 38 39 4f 63 74 |age-ID: |<1989Oct|
|00000150| 39 2e 31 34 33 34 32 35 | 2e 31 35 30 38 35 40 74 |9.143425|.15085@t|
|00000160| 6f 6c 65 72 61 6e 74 2e | 63 6f 6d 3e 0a 44 61 74 |olerant.|com>.Dat|
|00000170| 65 3a 20 39 20 4f 63 74 | 20 38 39 20 31 34 3a 33 |e: 9 Oct| 89 14:3|
|00000180| 34 3a 32 35 20 47 4d 54 | 0a 52 65 70 6c 79 2d 54 |4:25 GMT|.Reply-T|
|00000190| 6f 3a 20 63 68 6f 6e 67 | 6f 40 74 6f 6c 65 72 61 |o: chong|o@tolera|
|000001a0| 6e 74 2e 55 55 43 50 20 | 28 4c 61 6e 64 6f 6e 20 |nt.UUCP |(Landon |
|000001b0| 43 75 72 74 20 4e 6f 6c | 6c 29 0a 4f 72 67 61 6e |Curt Nol|l).Organ|
|000001c0| 69 7a 61 74 69 6f 6e 3a | 20 54 6f 6c 65 72 61 6e |ization:| Toleran|
|000001d0| 74 20 53 6f 66 74 77 61 | 72 65 0a 4c 69 6e 65 73 |t Softwa|re.Lines|
|000001e0| 3a 20 31 34 36 34 0a 58 | 72 65 66 3a 20 73 70 69 |: 1464.X|ref: spi|
|000001f0| 6e 69 66 65 78 20 63 6f | 6d 70 2e 6c 61 6e 67 2e |nifex co|mp.lang.|
|00000200| 63 3a 31 38 34 34 20 63 | 6f 6d 70 2e 75 6e 69 78 |c:1844 c|omp.unix|
|00000210| 2e 77 69 7a 61 72 64 73 | 3a 37 31 30 35 0a 0a 49 |.wizards|:7105..I|
|00000220| 20 61 6d 20 72 65 70 6f | 73 74 69 6e 67 20 74 68 | am repo|sting th|
|00000230| 65 20 31 39 38 39 20 49 | 6e 74 65 72 6e 61 74 69 |e 1989 I|nternati|
|00000240| 6f 6e 61 6c 20 4f 62 66 | 75 73 63 61 74 65 64 20 |onal Obf|uscated |
|00000250| 43 20 43 6f 64 65 20 43 | 6f 6e 74 65 73 74 20 57 |C Code C|ontest W|
|00000260| 69 6e 6e 65 72 73 0a 73 | 69 6e 63 65 20 69 74 20 |inners.s|ince it |
|00000270| 73 65 65 6d 73 20 74 68 | 61 74 20 6d 61 6e 79 20 |seems th|at many |
|00000280| 70 65 6f 70 6c 65 20 64 | 69 64 20 6e 6f 74 20 72 |people d|id not r|
|00000290| 65 63 65 69 76 65 20 74 | 68 65 20 66 69 72 73 74 |eceive t|he first|
|000002a0| 20 70 6f 73 74 69 6e 67 | 2e 0a 0a 53 65 6e 64 20 | posting|...Send |
|000002b0| 63 6f 6d 6d 65 6e 74 73 | 20 61 6e 64 20 71 75 65 |comments| and que|
|000002c0| 73 74 69 6f 6e 73 20 61 | 62 6f 75 74 20 74 68 65 |stions a|bout the|
|000002d0| 20 31 39 38 39 20 77 69 | 6e 6e 65 72 73 20 74 6f | 1989 wi|nners to|
|000002e0| 3a 0a 0a 09 2e 2e 2e 21 | 7b 73 75 6e 2c 70 61 63 |:......!|{sun,pac|
|000002f0| 62 65 6c 6c 2c 75 75 6e | 65 74 2c 70 79 72 61 6d |bell,uun|et,pyram|
|00000300| 69 64 2c 61 6d 64 61 68 | 6c 7d 21 68 6f 70 74 6f |id,amdah|l}!hopto|
|00000310| 61 64 21 6a 75 64 67 65 | 73 0a 09 6a 75 64 67 65 |ad!judge|s..judge|
|00000320| 73 40 74 6f 61 64 2e 63 | 6f 6d 0a 0a 50 6c 65 61 |s@toad.c|om..Plea|
|00000330| 73 65 20 6e 6f 74 65 20 | 74 68 61 74 20 74 68 65 |se note |that the|
|00000340| 20 31 39 39 30 20 63 6f | 6e 74 65 73 74 20 77 69 | 1990 co|ntest wi|
|00000350| 6c 6c 20 6e 6f 74 20 6f | 70 65 6e 20 75 6e 74 69 |ll not o|pen unti|
|00000360| 6c 20 61 62 6f 75 74 20 | 4d 61 72 63 68 20 31 35 |l about |March 15|
|00000370| 2c 20 31 39 39 30 2e 20 | 20 0a 57 61 69 74 20 66 |, 1990. | .Wait f|
|00000380| 6f 72 20 74 68 65 20 31 | 39 39 30 20 63 6f 6e 74 |or the 1|990 cont|
|00000390| 65 73 74 20 72 75 6c 65 | 73 20 74 6f 20 62 65 20 |est rule|s to be |
|000003a0| 70 6f 73 74 65 64 20 62 | 65 66 6f 72 65 20 73 65 |posted b|efore se|
|000003b0| 6e 64 69 6e 67 20 69 6e | 20 65 6e 74 69 72 65 73 |nding in| entires|
|000003c0| 2e 0a 59 6f 75 20 63 61 | 6e 20 73 65 6e 64 20 65 |..You ca|n send e|
|000003d0| 6d 61 69 6c 20 74 6f 20 | 74 68 65 20 61 62 6f 76 |mail to |the abov|
|000003e0| 65 20 61 64 64 72 65 73 | 73 20 69 66 20 79 6f 75 |e addres|s if you|
|000003f0| 20 74 68 69 6e 6b 20 79 | 6f 75 20 6d 69 73 73 65 | think y|ou misse|
|00000400| 64 20 74 68 65 0a 70 6f | 73 74 69 6e 67 2c 20 61 |d the.po|sting, a|
|00000410| 73 73 75 6d 69 6e 67 20 | 69 74 20 69 73 20 61 66 |ssuming |it is af|
|00000420| 74 65 72 20 4d 61 72 63 | 68 20 31 35 2c 20 31 39 |ter Marc|h 15, 19|
|00000430| 39 30 20 6f 66 20 63 6f | 75 72 73 65 2e 20 20 3a |90 of co|urse.  :|
|00000440| 2d 29 0a 0a 63 68 6f 6e | 67 6f 20 3c 46 6f 72 20 |-)..chon|go <For |
|00000450| 61 20 67 6f 6f 64 20 70 | 72 69 6d 65 2c 20 63 61 |a good p|rime, ca|
|00000460| 6c 6c 3a 20 20 33 39 31 | 35 38 31 20 2a 20 32 5e |ll:  391|581 * 2^|
|00000470| 32 31 36 31 39 33 20 2d | 31 3e 20 2f 5c 63 63 2f |216193 -|1> /\cc/|
|00000480| 5c 0a 0a 0a 23 23 23 23 | 23 23 23 23 23 23 23 23 |\...####|########|
|00000490| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000004c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 0a |########|#######.|
|000004d0| 23 20 54 68 69 73 20 69 | 73 20 61 20 73 68 65 6c |# This i|s a shel|
|000004e0| 6c 20 61 72 63 68 69 76 | 65 2e 20 20 52 65 6d 6f |l archiv|e.  Remo|
|000004f0| 76 65 20 61 6e 79 74 68 | 69 6e 67 20 62 65 66 6f |ve anyth|ing befo|
|00000500| 72 65 20 74 68 69 73 20 | 6c 69 6e 65 2c 20 74 68 |re this |line, th|
|00000510| 65 6e 0a 23 20 75 6e 70 | 61 63 6b 20 69 74 20 62 |en.# unp|ack it b|
|00000520| 79 20 73 61 76 69 6e 67 | 20 69 74 20 69 6e 20 61 |y saving| it in a|
|00000530| 20 66 69 6c 65 20 61 6e | 64 20 74 79 70 69 6e 67 | file an|d typing|
|00000540| 20 22 73 68 20 66 69 6c | 65 22 2e 20 20 28 46 69 | "sh fil|e".  (Fi|
|00000550| 6c 65 73 0a 23 20 75 6e | 70 61 63 6b 65 64 20 77 |les.# un|packed w|
|00000560| 69 6c 6c 20 62 65 20 6f | 77 6e 65 64 20 62 79 20 |ill be o|wned by |
|00000570| 79 6f 75 20 61 6e 64 20 | 68 61 76 65 20 64 65 66 |you and |have def|
|00000580| 61 75 6c 74 20 70 65 72 | 6d 69 73 73 69 6f 6e 73 |ault per|missions|
|00000590| 2e 29 0a 23 0a 23 20 54 | 68 69 73 20 61 72 63 68 |.).#.# T|his arch|
|000005a0| 69 76 65 20 63 6f 6e 74 | 61 69 6e 73 3a 0a 23 20 |ive cont|ains:.# |
|000005b0| 31 39 38 39 2f 4d 61 6b | 65 66 69 6c 65 20 31 39 |1989/Mak|efile 19|
|000005c0| 38 39 2f 52 45 41 44 4d | 45 20 31 39 38 39 2f 66 |89/READM|E 1989/f|
|000005d0| 75 62 61 72 2e 63 20 31 | 39 38 39 2f 66 75 62 61 |ubar.c 1|989/fuba|
|000005e0| 72 2e 68 69 6e 74 20 31 | 39 38 39 2f 66 75 62 61 |r.hint 1|989/fuba|
|000005f0| 72 2e 6f 72 69 67 2e 63 | 0a 23 20 31 39 38 39 2f |r.orig.c|.# 1989/|
|00000600| 66 75 62 61 72 2e 6f 72 | 69 67 2e 73 68 20 31 39 |fubar.or|ig.sh 19|
|00000610| 38 39 2f 66 75 62 61 72 | 2e 73 68 20 31 39 38 39 |89/fubar|.sh 1989|
|00000620| 2f 6a 61 72 2e 31 2e 63 | 20 31 39 38 39 2f 6a 61 |/jar.1.c| 1989/ja|
|00000630| 72 2e 31 2e 68 69 6e 74 | 20 0a 23 20 31 39 38 39 |r.1.hint| .# 1989|
|00000640| 2f 6a 61 72 2e 31 2e 6f | 72 69 67 2e 63 20 31 39 |/jar.1.o|rig.c 19|
|00000650| 38 39 2f 6a 61 72 2e 31 | 2e 6f 72 69 67 2e 73 68 |89/jar.1|.orig.sh|
|00000660| 20 31 39 38 39 2f 6a 61 | 72 2e 31 2e 73 68 20 31 | 1989/ja|r.1.sh 1|
|00000670| 39 38 39 2f 6a 61 72 2e | 32 2e 63 20 0a 23 20 31 |989/jar.|2.c .# 1|
|00000680| 39 38 39 2f 6a 61 72 2e | 32 2e 68 69 6e 74 20 31 |989/jar.|2.hint 1|
|00000690| 39 38 39 2f 6f 76 64 6c | 75 68 65 2e 63 20 31 39 |989/ovdl|uhe.c 19|
|000006a0| 38 39 2f 6f 76 64 6c 75 | 68 65 2e 68 69 6e 74 20 |89/ovdlu|he.hint |
|000006b0| 31 39 38 39 2f 70 61 75 | 6c 2e 63 20 31 39 38 39 |1989/pau|l.c 1989|
|000006c0| 2f 70 61 75 6c 2e 68 69 | 6e 74 20 0a 23 20 31 39 |/paul.hi|nt .# 19|
|000006d0| 38 39 2f 72 6f 62 69 73 | 6f 6e 2e 63 20 31 39 38 |89/robis|on.c 198|
|000006e0| 39 2f 72 6f 62 69 73 6f | 6e 2e 68 69 6e 74 20 31 |9/robiso|n.hint 1|
|000006f0| 39 38 39 2f 72 6f 77 6d | 65 72 2e 63 20 31 39 38 |989/rowm|er.c 198|
|00000700| 39 2f 72 6f 77 6d 65 72 | 2e 68 69 6e 74 20 31 39 |9/rowmer|.hint 19|
|00000710| 38 39 2f 72 75 6c 65 73 | 20 0a 23 20 31 39 38 39 |89/rules| .# 1989|
|00000720| 2f 74 72 6f 6d 70 2e 62 | 73 64 2e 63 20 31 39 38 |/tromp.b|sd.c 198|
|00000730| 39 2f 74 72 6f 6d 70 2e | 68 69 6e 74 20 31 39 38 |9/tromp.|hint 198|
|00000740| 39 2f 74 72 6f 6d 70 2e | 73 35 2e 63 20 31 39 38 |9/tromp.|s5.c 198|
|00000750| 39 2f 76 61 6e 62 2e 63 | 20 31 39 38 39 2f 76 61 |9/vanb.c| 1989/va|
|00000760| 6e 62 2e 68 69 6e 74 20 | 0a 23 20 31 39 38 39 2f |nb.hint |.# 1989/|
|00000770| 77 65 73 74 6c 65 79 2e | 63 20 31 39 38 39 2f 77 |westley.|c 1989/w|
|00000780| 65 73 74 6c 65 79 2e 68 | 69 6e 74 0a 0a 3a 20 3d |estley.h|int..: =|
|00000790| 2d 3d 2d 3d 2d 3d 2d 3d | 2d 3d 2d 3d 20 66 69 72 |-=-=-=-=|-=-= fir|
|000007a0| 73 74 20 6c 69 6e 65 20 | 6f 66 20 73 68 61 72 20 |st line |of shar |
|000007b0| 31 20 6f 66 20 31 20 3d | 2d 3d 2d 3d 2d 3d 2d 3d |1 of 1 =|-=-=-=-=|
|000007c0| 2d 3d 2d 3d 2d 3d 2d 3d | 2d 0a 65 63 68 6f 20 6d |-=-=-=-=|-.echo m|
|000007d0| 6b 64 69 72 20 2e 2f 31 | 39 38 39 0a 6d 6b 64 69 |kdir ./1|989.mkdi|
|000007e0| 72 20 2e 2f 31 39 38 39 | 0a 65 63 68 6f 20 78 20 |r ./1989|.echo x |
|000007f0| 2d 20 31 39 38 39 2f 4d | 61 6b 65 66 69 6c 65 0a |- 1989/M|akefile.|
|00000800| 73 65 64 20 2d 65 20 27 | 73 2f 5e 58 2f 2f 27 20 |sed -e '|s/^X//' |
|00000810| 3e 20 22 31 39 38 39 2f | 4d 61 6b 65 66 69 6c 65 |> "1989/|Makefile|
|00000820| 22 20 3c 3c 20 27 2f 2f | 45 2a 4f 2a 46 20 31 39 |" << '//|E*O*F 19|
|00000830| 38 39 2f 4d 61 6b 65 66 | 69 6c 65 2f 2f 27 0a 58 |89/Makef|ile//'.X|
|00000840| 23 20 25 57 25 20 25 47 | 25 20 25 55 25 0a 58 23 |# %W% %G|% %U%.X#|
|00000850| 0a 58 23 20 31 39 38 39 | 20 6d 61 6b 65 66 69 6c |.X# 1989| makefil|
|00000860| 65 0a 58 0a 58 53 48 45 | 4c 4c 3d 2f 62 69 6e 2f |e.X.XSHE|LL=/bin/|
|00000870| 73 68 0a 58 43 46 4c 41 | 47 53 3d 2d 4f 0a 58 43 |sh.XCFLA|GS=-O.XC|
|00000880| 43 3d 63 63 0a 58 0a 58 | 57 49 4e 4e 45 52 53 3d |C=cc.X.X|WINNERS=|
|00000890| 6f 76 64 6c 75 68 65 20 | 6a 61 72 2e 31 20 6a 61 |ovdluhe |jar.1 ja|
|000008a0| 72 2e 32 20 66 75 62 61 | 72 20 77 65 73 74 6c 65 |r.2 fuba|r westle|
|000008b0| 79 20 70 61 75 6c 20 72 | 6f 62 69 73 6f 6e 20 72 |y paul r|obison r|
|000008c0| 6f 77 6d 65 72 20 76 61 | 6e 62 20 74 72 6f 6d 70 |owmer va|nb tromp|
|000008d0| 2e 62 73 64 0a 58 41 4c | 54 45 52 4e 41 54 45 3d |.bsd.XAL|TERNATE=|
|000008e0| 6a 61 72 2e 31 2e 6f 72 | 69 67 20 66 75 62 61 72 |jar.1.or|ig fubar|
|000008f0| 2e 6f 72 69 67 20 74 72 | 6f 6d 70 2e 73 35 0a 58 |.orig tr|omp.s5.X|
|00000900| 0a 58 61 6c 6c 3a 20 24 | 7b 57 49 4e 4e 45 52 53 |.Xall: $|{WINNERS|
|00000910| 7d 0a 58 0a 58 6f 76 64 | 6c 75 68 65 3a 20 6f 76 |}.X.Xovd|luhe: ov|
|00000920| 64 6c 75 68 65 2e 63 0a | 58 09 24 7b 43 43 7d 20 |dluhe.c.|X.${CC} |
|00000930| 24 7b 43 46 4c 41 47 53 | 7d 20 24 3f 20 2d 6f 20 |${CFLAGS|} $? -o |
|00000940| 24 40 0a 58 0a 58 23 20 | 4e 4f 54 45 3a 20 6a 61 |$@.X.X# |NOTE: ja|
|00000950| 72 2e 31 2e 63 20 6f 75 | 74 70 75 74 73 20 69 74 |r.1.c ou|tputs it|
|00000960| 73 20 73 74 72 69 6e 67 | 20 69 6e 20 6f 6e 65 20 |s string| in one |
|00000970| 73 65 63 74 69 6f 6e 0a | 58 23 20 20 20 20 20 20 |section.|X#      |
|00000980| 20 74 68 69 73 20 70 72 | 6f 67 72 61 6d 20 6d 61 | this pr|ogram ma|
|00000990| 79 20 6e 6f 74 20 70 72 | 69 6e 74 20 77 65 6c 6c |y not pr|int well|
|000009a0| 20 6f 6e 20 73 6f 6d 65 | 20 74 65 72 6d 69 6e 61 | on some| termina|
|000009b0| 6c 73 0a 58 6a 61 72 2e | 31 3a 20 6a 61 72 2e 31 |ls.Xjar.|1: jar.1|
|000009c0| 2e 63 20 6a 61 72 2e 31 | 2e 73 68 0a 58 09 72 6d |.c jar.1|.sh.X.rm|
|000009d0| 20 2d 66 20 6a 61 72 2e | 31 0a 58 09 63 70 20 6a | -f jar.|1.X.cp j|
|000009e0| 61 72 2e 31 2e 73 68 20 | 6a 61 72 2e 31 0a 58 09 |ar.1.sh |jar.1.X.|
|000009f0| 63 68 6d 6f 64 20 2b 78 | 20 6a 61 72 2e 31 0a 58 |chmod +x| jar.1.X|
|00000a00| 23 20 4e 4f 54 45 3a 20 | 54 68 65 20 6a 61 72 2e |# NOTE: |The jar.|
|00000a10| 31 2e 6f 72 69 67 20 66 | 69 6c 65 20 69 73 20 74 |1.orig f|ile is t|
|00000a20| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 65 6e 74 72 |he origi|nal entr|
|00000a30| 79 0a 58 6a 61 72 2e 31 | 2e 6f 72 69 67 3a 20 6a |y.Xjar.1|.orig: j|
|00000a40| 61 72 2e 31 2e 6f 72 69 | 67 2e 63 20 6a 61 72 2e |ar.1.ori|g.c jar.|
|00000a50| 31 2e 6f 72 69 67 2e 73 | 68 0a 58 09 72 6d 20 2d |1.orig.s|h.X.rm -|
|00000a60| 66 20 6a 61 72 2e 31 2e | 6f 72 69 67 0a 58 09 63 |f jar.1.|orig.X.c|
|00000a70| 70 20 6a 61 72 2e 31 2e | 73 68 20 6a 61 72 2e 31 |p jar.1.|sh jar.1|
|00000a80| 2e 6f 72 69 67 0a 58 09 | 63 68 6d 6f 64 20 2b 78 |.orig.X.|chmod +x|
|00000a90| 20 6a 61 72 2e 31 2e 6f | 72 69 67 0a 58 0a 58 6a | jar.1.o|rig.X.Xj|
|00000aa0| 61 72 2e 32 3a 20 6a 61 | 72 2e 32 2e 63 0a 58 09 |ar.2: ja|r.2.c.X.|
|00000ab0| 24 7b 43 43 7d 20 24 7b | 43 46 4c 41 47 53 7d 20 |${CC} ${|CFLAGS} |
|00000ac0| 24 3f 20 2d 6f 20 24 40 | 0a 58 0a 58 23 20 4e 4f |$? -o $@|.X.X# NO|
|00000ad0| 54 45 3a 20 66 75 62 61 | 72 2e 63 20 75 73 65 73 |TE: fuba|r.c uses|
|00000ae0| 20 74 68 65 20 2f 62 69 | 6e 2f 73 68 20 73 68 65 | the /bi|n/sh she|
|00000af0| 6c 6c 0a 58 66 75 62 61 | 72 3a 20 66 75 62 61 72 |ll.Xfuba|r: fubar|
|00000b00| 2e 63 20 66 75 62 61 72 | 2e 73 68 0a 58 09 72 6d |.c fubar|.sh.X.rm|
|00000b10| 20 2d 66 20 66 75 62 61 | 72 0a 58 09 63 70 20 66 | -f fuba|r.X.cp f|
|00000b20| 75 62 61 72 2e 73 68 20 | 66 75 62 61 72 0a 58 09 |ubar.sh |fubar.X.|
|00000b30| 63 68 6d 6f 64 20 2b 78 | 20 66 75 62 61 72 0a 58 |chmod +x| fubar.X|
|00000b40| 23 20 4e 4f 54 45 3a 20 | 54 68 65 20 66 75 62 61 |# NOTE: |The fuba|
|00000b50| 72 2e 6f 72 69 67 2e 63 | 20 66 69 6c 65 20 69 73 |r.orig.c| file is|
|00000b60| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 65 6e | the ori|ginal en|
|00000b70| 74 72 79 0a 58 66 75 62 | 61 72 2e 6f 72 69 67 3a |try.Xfub|ar.orig:|
|00000b80| 20 66 75 62 61 72 2e 6f | 72 69 67 2e 63 20 66 75 | fubar.o|rig.c fu|
|00000b90| 62 61 72 2e 6f 72 69 67 | 2e 73 68 0a 58 09 72 6d |bar.orig|.sh.X.rm|
|00000ba0| 20 2d 66 20 66 75 62 61 | 72 2e 6f 72 69 67 0a 58 | -f fuba|r.orig.X|
|00000bb0| 09 63 70 20 66 75 62 61 | 72 2e 6f 72 69 67 2e 73 |.cp fuba|r.orig.s|
|00000bc0| 68 20 66 75 62 61 72 2e | 6f 72 69 67 0a 58 09 63 |h fubar.|orig.X.c|
|00000bd0| 68 6d 6f 64 20 2b 78 20 | 66 75 62 61 72 2e 6f 72 |hmod +x |fubar.or|
|00000be0| 69 67 0a 58 0a 58 77 65 | 73 74 6c 65 79 3a 20 77 |ig.X.Xwe|stley: w|
|00000bf0| 65 73 74 6c 65 79 2e 63 | 0a 58 09 24 7b 43 43 7d |estley.c|.X.${CC}|
|00000c00| 20 24 7b 43 46 4c 41 47 | 53 7d 20 2d 44 74 72 67 | ${CFLAG|S} -Dtrg|
|00000c10| 70 75 6e 65 3d 70 75 74 | 63 68 61 72 20 24 3f 20 |pune=put|char $? |
|00000c20| 2d 6f 20 24 40 0a 58 0a | 58 70 61 75 6c 3a 20 70 |-o $@.X.|Xpaul: p|
|00000c30| 61 75 6c 2e 63 0a 58 09 | 24 7b 43 43 7d 20 24 7b |aul.c.X.|${CC} ${|
|00000c40| 43 46 4c 41 47 53 7d 20 | 24 3f 20 2d 6f 20 24 40 |CFLAGS} |$? -o $@|
|00000c50| 0a 58 0a 58 72 6f 62 69 | 73 6f 6e 3a 20 72 6f 62 |.X.Xrobi|son: rob|
|00000c60| 69 73 6f 6e 2e 63 0a 58 | 09 24 7b 43 43 7d 20 24 |ison.c.X|.${CC} $|
|00000c70| 7b 43 46 4c 41 47 53 7d | 20 24 3f 20 2d 6f 20 24 |{CFLAGS}| $? -o $|
|00000c80| 40 0a 58 0a 58 72 6f 77 | 6d 65 72 3a 20 72 6f 77 |@.X.Xrow|mer: row|
|00000c90| 6d 65 72 2e 63 0a 58 09 | 24 7b 43 43 7d 20 24 7b |mer.c.X.|${CC} ${|
|00000ca0| 43 46 4c 41 47 53 7d 20 | 24 3f 20 2d 6f 20 24 40 |CFLAGS} |$? -o $@|
|00000cb0| 0a 58 0a 58 23 20 4e 4f | 54 45 3a 20 74 68 69 73 |.X.X# NO|TE: this|
|00000cc0| 20 76 65 72 73 69 6f 6e | 20 72 65 71 75 69 72 65 | version| require|
|00000cd0| 73 20 42 53 44 20 73 74 | 79 6c 65 20 73 69 67 6e |s BSD st|yle sign|
|00000ce0| 61 6c 73 20 61 6e 64 20 | 73 65 74 69 74 69 6d 65 |als and |setitime|
|00000cf0| 72 0a 58 23 09 74 68 69 | 73 20 6d 61 79 20 6e 6f |r.X#.thi|s may no|
|00000d00| 74 20 77 6f 72 6b 20 77 | 65 6c 6c 20 6f 6e 20 6c |t work w|ell on l|
|00000d10| 6f 77 20 62 61 75 64 20 | 72 61 74 65 20 74 65 72 |ow baud |rate ter|
|00000d20| 6d 69 6e 61 6c 73 0a 58 | 23 09 74 68 65 20 66 69 |minals.X|#.the fi|
|00000d30| 6c 65 20 74 72 6f 6d 70 | 2e 62 73 64 2e 63 20 69 |le tromp|.bsd.c i|
|00000d40| 73 20 74 68 65 20 6f 72 | 69 67 69 6e 61 6c 20 76 |s the or|iginal v|
|00000d50| 65 72 73 69 6f 6e 0a 58 | 74 72 6f 6d 70 3a 20 74 |ersion.X|tromp: t|
|00000d60| 72 6f 6d 70 2e 62 73 64 | 2e 63 0a 58 09 24 7b 43 |romp.bsd|.c.X.${C|
|00000d70| 43 7d 20 24 7b 43 46 4c | 41 47 53 7d 20 24 3f 20 |C} ${CFL|AGS} $? |
|00000d80| 2d 6f 20 24 40 0a 58 09 | 74 6f 75 63 68 20 48 49 |-o $@.X.|touch HI|
|00000d90| 0a 58 09 2d 63 68 6d 6f | 64 20 30 36 36 36 20 48 |.X.-chmo|d 0666 H|
|00000da0| 49 0a 58 23 20 4e 4f 54 | 45 3a 20 73 69 74 65 73 |I.X# NOT|E: sites|
|00000db0| 20 77 69 74 68 6f 75 74 | 20 42 53 44 20 73 74 79 | without| BSD sty|
|00000dc0| 6c 65 20 73 69 67 6e 61 | 6c 73 20 61 6e 64 20 73 |le signa|ls and s|
|00000dd0| 65 74 69 74 69 6d 65 72 | 20 28 65 2e 67 2e 20 53 |etitimer| (e.g. S|
|00000de0| 79 73 74 65 6d 20 56 2e | 33 29 0a 58 23 09 73 68 |ystem V.|3).X#.sh|
|00000df0| 6f 75 6c 64 20 75 73 65 | 20 74 68 69 73 20 76 65 |ould use| this ve|
|00000e00| 72 73 69 6f 6e 0a 58 74 | 72 6f 6d 70 2e 73 35 3a |rsion.Xt|romp.s5:|
|00000e10| 20 74 72 6f 6d 70 2e 73 | 35 2e 63 0a 58 09 24 7b | tromp.s|5.c.X.${|
|00000e20| 43 43 7d 20 24 7b 43 46 | 4c 41 47 53 7d 20 24 3f |CC} ${CF|LAGS} $?|
|00000e30| 20 2d 6f 20 24 40 0a 58 | 09 74 6f 75 63 68 20 48 | -o $@.X|.touch H|
|00000e40| 49 0a 58 09 2d 63 68 6d | 6f 64 20 30 36 36 36 20 |I.X.-chm|od 0666 |
|00000e50| 48 49 0a 58 0a 58 76 61 | 6e 62 3a 20 76 61 6e 62 |HI.X.Xva|nb: vanb|
|00000e60| 2e 63 0a 58 09 24 7b 43 | 43 7d 20 24 7b 43 46 4c |.c.X.${C|C} ${CFL|
|00000e70| 41 47 53 7d 20 24 3f 20 | 2d 6f 20 24 40 0a 58 0a |AGS} $? |-o $@.X.|
|00000e80| 58 63 6c 65 61 6e 3a 0a | 58 09 72 6d 20 2d 66 20 |Xclean:.|X.rm -f |
|00000e90| 6f 76 64 6c 75 68 65 2e | 6f 20 6a 61 72 2e 32 2e |ovdluhe.|o jar.2.|
|00000ea0| 6f 20 66 75 62 61 72 2e | 6f 20 77 65 73 74 6c 65 |o fubar.|o westle|
|00000eb0| 79 2e 6f 20 70 61 75 6c | 2e 6f 20 72 6f 62 69 73 |y.o paul|.o robis|
|00000ec0| 6f 6e 2e 6f 0a 58 09 72 | 6d 20 2d 66 20 72 6f 77 |on.o.X.r|m -f row|
|00000ed0| 6d 65 72 2e 6f 20 74 72 | 6f 6d 70 2e 6f 20 76 61 |mer.o tr|omp.o va|
|00000ee0| 6e 62 2e 6f 20 0a 58 09 | 72 6d 20 2d 66 20 78 20 |nb.o .X.|rm -f x |
|00000ef0| 78 31 20 6f 75 72 6f 62 | 6f 72 6f 73 2e 63 20 6f |x1 ourob|oros.c o|
|00000f00| 75 72 6f 62 6f 72 6f 73 | 2e 6f 20 66 75 62 61 72 |uroboros|.o fubar|
|00000f10| 2e 6f 72 69 67 2e 6f 20 | 74 72 6f 6d 70 2e 62 73 |.orig.o |tromp.bs|
|00000f20| 64 2e 6f 20 74 72 6f 6d | 70 2e 73 35 2e 6f 20 63 |d.o trom|p.s5.o c|
|00000f30| 6f 72 65 0a 58 63 6c 6f | 62 62 65 72 3a 20 63 6c |ore.Xclo|bber: cl|
|00000f40| 65 61 6e 0a 58 09 72 6d | 20 2d 66 20 24 7b 57 49 |ean.X.rm| -f ${WI|
|00000f50| 4e 4e 45 52 53 7d 20 0a | 58 09 72 6d 20 2d 66 20 |NNERS} .|X.rm -f |
|00000f60| 6a 61 72 2e 31 2e 6f 20 | 48 49 20 0a 58 09 72 6d |jar.1.o |HI .X.rm|
|00000f70| 20 2d 66 20 24 7b 41 4c | 54 45 52 4e 41 54 45 7d | -f ${AL|TERNATE}|
|00000f80| 0a 58 6e 75 6b 65 3a 20 | 63 6c 6f 62 62 65 72 0a |.Xnuke: |clobber.|
|00000f90| 58 09 40 74 72 75 65 0a | 58 69 6e 73 74 61 6c 6c |X.@true.|Xinstall|
|00000fa0| 3a 20 61 6c 6c 0a 58 09 | 63 61 74 20 24 7b 57 49 |: all.X.|cat ${WI|
|00000fb0| 4e 4e 45 52 53 7d 20 3e | 20 2f 64 65 76 2f 6e 75 |NNERS} >| /dev/nu|
|00000fc0| 6c 6c 0a 2f 2f 45 2a 4f | 2a 46 20 31 39 38 39 2f |ll.//E*O|*F 1989/|
|00000fd0| 4d 61 6b 65 66 69 6c 65 | 2f 2f 0a 0a 65 63 68 6f |Makefile|//..echo|
|00000fe0| 20 78 20 2d 20 31 39 38 | 39 2f 52 45 41 44 4d 45 | x - 198|9/README|
|00000ff0| 0a 73 65 64 20 2d 65 20 | 27 73 2f 5e 58 2f 2f 27 |.sed -e |'s/^X//'|
|00001000| 20 3e 20 22 31 39 38 39 | 2f 52 45 41 44 4d 45 22 | > "1989|/README"|
|00001010| 20 3c 3c 20 27 2f 2f 45 | 2a 4f 2a 46 20 31 39 38 | << '//E|*O*F 198|
|00001020| 39 2f 52 45 41 44 4d 45 | 2f 2f 27 0a 58 31 39 38 |9/README|//'.X198|
|00001030| 39 20 6d 61 72 6b 65 64 | 20 74 68 65 20 22 54 68 |9 marked| the "Th|
|00001040| 65 20 53 69 78 74 68 20 | 49 6e 74 65 72 6e 61 74 |e Sixth |Internat|
|00001050| 69 6f 6e 61 6c 20 4f 62 | 66 75 73 63 61 74 65 64 |ional Ob|fuscated|
|00001060| 20 43 20 43 6f 64 65 20 | 43 6f 6e 74 65 73 74 22 | C Code |Contest"|
|00001070| 0a 58 0a 58 49 6e 73 74 | 72 75 63 74 69 6f 6e 73 |.X.XInst|ructions|
|00001080| 20 66 6f 72 20 75 73 65 | 3a 20 52 75 6e 20 6d 61 | for use|: Run ma|
|00001090| 6b 65 20 74 6f 20 63 6f | 6d 70 69 6c 65 20 65 6e |ke to co|mpile en|
|000010a0| 74 72 69 65 73 20 28 69 | 74 20 69 73 20 70 6f 73 |tries (i|t is pos|
|000010b0| 73 69 62 6c 65 0a 58 74 | 68 61 74 20 6f 6e 20 53 |sible.Xt|hat on S|
|000010c0| 79 73 74 65 6d 20 56 20 | 6f 72 20 6e 6f 6e 2d 75 |ystem V |or non-u|
|000010d0| 6e 69 78 20 73 79 73 74 | 65 6d 73 20 74 68 65 20 |nix syst|ems the |
|000010e0| 6d 61 6b 65 66 69 6c 65 | 20 6e 65 65 64 73 20 74 |makefile| needs t|
|000010f0| 6f 20 62 65 0a 58 63 68 | 61 6e 67 65 64 29 2e 20 |o be.Xch|anged). |
|00001100| 4c 6f 6f 6b 20 61 74 20 | 74 68 65 20 73 6f 75 72 |Look at |the sour|
|00001110| 63 65 20 61 6e 64 20 74 | 72 79 20 74 6f 20 66 69 |ce and t|ry to fi|
|00001120| 67 75 72 65 20 6f 75 74 | 20 77 68 61 74 20 74 68 |gure out| what th|
|00001130| 65 20 70 72 6f 67 72 61 | 6d 73 0a 58 64 6f 2c 20 |e progra|ms.Xdo, |
|00001140| 61 6e 64 20 72 75 6e 20 | 74 68 65 6d 20 77 69 74 |and run |them wit|
|00001150| 68 20 76 61 72 69 6f 75 | 73 20 69 6e 70 75 74 73 |h variou|s inputs|
|00001160| 2e 20 49 66 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |. If you| want to|
|00001170| 2c 20 6c 6f 6f 6b 20 61 | 74 20 74 68 65 0a 58 68 |, look a|t the.Xh|
|00001180| 69 6e 74 73 20 66 69 6c | 65 73 20 66 6f 72 20 28 |ints fil|es for (|
|00001190| 6d 69 6e 6f 72 29 20 73 | 70 6f 69 6c 65 72 73 2e |minor) s|poilers.|
|000011a0| 0a 58 0a 58 54 68 69 73 | 20 79 65 61 72 2c 20 74 |.X.XThis| year, t|
|000011b0| 68 65 20 47 72 61 6e 64 | 20 50 72 69 7a 65 20 77 |he Grand| Prize w|
|000011c0| 61 73 20 67 69 76 65 6e | 20 74 6f 20 74 68 65 20 |as given| to the |
|000011d0| 6d 6f 73 74 20 75 73 65 | 66 75 6c 20 70 72 6f 67 |most use|ful prog|
|000011e0| 72 61 6d 2e 0a 58 0a 58 | 54 68 65 20 22 53 74 72 |ram..X.X|The "Str|
|000011f0| 61 6e 67 65 73 74 20 61 | 62 75 73 65 20 6f 66 20 |angest a|buse of |
|00001200| 74 68 65 20 72 75 6c 65 | 73 22 20 61 77 61 72 64 |the rule|s" award|
|00001210| 20 77 61 73 20 67 69 76 | 65 6e 20 74 68 69 73 20 | was giv|en this |
|00001220| 79 65 61 72 20 74 6f 20 | 73 74 72 65 73 73 0a 58 |year to |stress.X|
|00001230| 74 68 65 20 66 61 63 74 | 20 74 68 61 74 20 73 74 |the fact| that st|
|00001240| 61 72 74 69 6e 67 20 69 | 6e 20 31 39 39 30 2c 20 |arting i|n 1990, |
|00001250| 63 6f 6d 70 69 6c 69 6e | 67 20 65 6e 74 72 69 65 |compilin|g entrie|
|00001260| 73 20 6d 75 73 74 20 72 | 65 73 75 6c 74 20 61 6e |s must r|esult an|
|00001270| 0a 58 65 78 65 63 75 74 | 61 62 6c 65 20 72 65 67 |.Xexecut|able reg|
|00001280| 75 6c 61 72 20 66 69 6c | 65 2e 0a 58 0a 58 49 6e |ular fil|e..X.XIn|
|00001290| 20 74 77 6f 20 6f 74 68 | 65 72 20 63 61 73 65 73 | two oth|er cases|
|000012a0| 2c 20 77 65 20 69 6e 63 | 6c 75 64 65 64 20 53 79 |, we inc|luded Sy|
|000012b0| 73 74 65 6d 20 56 20 70 | 6f 72 74 61 62 6c 65 20 |stem V p|ortable |
|000012c0| 76 65 72 73 69 6f 6e 73 | 20 6f 66 20 77 69 6e 6e |versions| of winn|
|000012d0| 69 6e 67 0a 58 70 72 6f | 67 72 61 6d 73 2e 20 20 |ing.Xpro|grams.  |
|000012e0| 54 68 65 20 6d 61 6b 65 | 66 69 6c 65 20 61 6c 77 |The make|file alw|
|000012f0| 61 79 73 20 75 73 65 73 | 20 74 68 65 20 70 6f 72 |ays uses| the por|
|00001300| 74 61 62 6c 65 20 76 65 | 72 73 69 6f 6e 20 6f 66 |table ve|rsion of|
|00001310| 20 74 68 65 20 22 42 65 | 73 74 0a 58 73 65 6c 66 | the "Be|st.Xself|
|00001320| 20 6d 6f 64 69 66 79 69 | 6e 67 20 70 72 6f 67 72 | modifyi|ng progr|
|00001330| 61 6d 22 20 62 65 63 61 | 75 73 65 20 74 68 65 72 |am" beca|use ther|
|00001340| 65 20 61 73 20 6e 6f 20 | 6c 6f 73 73 20 6f 66 20 |e as no |loss of |
|00001350| 66 75 6e 63 74 69 6f 6e | 61 6c 69 74 79 20 69 6e |function|ality in|
|00001360| 0a 58 75 73 69 6e 67 20 | 69 74 2e 20 20 49 6e 20 |.Xusing |it.  In |
|00001370| 74 68 65 20 63 61 73 65 | 20 6f 66 20 74 68 65 20 |the case| of the |
|00001380| 22 42 65 73 74 20 67 61 | 6d 65 22 20 77 69 6e 6e |"Best ga|me" winn|
|00001390| 65 72 2c 20 68 6f 77 65 | 76 65 72 2c 20 73 6f 6d |er, howe|ver, som|
|000013a0| 65 0a 58 66 75 6e 63 74 | 69 6f 6e 61 6c 69 74 79 |e.Xfunct|ionality|
|000013b0| 20 69 73 20 6c 6f 73 74 | 20 69 6e 20 74 68 65 20 | is lost| in the |
|000013c0| 70 6f 72 74 61 62 6c 65 | 20 76 65 72 73 69 6f 6e |portable| version|
|000013d0| 20 61 6e 64 20 73 6f 20 | 74 68 65 20 6d 61 6b 65 | and so |the make|
|000013e0| 66 69 6c 65 20 75 73 65 | 73 0a 58 74 68 65 20 6f |file use|s.Xthe o|
|000013f0| 72 69 67 69 6e 61 6c 20 | 70 72 6f 67 72 61 6d 2e |riginal |program.|
|00001400| 20 20 53 79 73 74 65 6d | 20 56 20 75 73 65 72 73 |  System| V users|
|00001410| 20 6d 61 79 20 6e 65 65 | 64 20 74 6f 20 63 68 61 | may nee|d to cha|
|00001420| 6e 67 65 20 74 68 65 20 | 6d 61 6b 65 66 69 6c 65 |nge the |makefile|
|00001430| 0a 58 74 6f 20 75 73 65 | 20 74 68 65 20 73 35 20 |.Xto use| the s5 |
|00001440| 76 65 72 73 69 6f 6e 2e | 20 20 53 65 65 20 74 68 |version.|  See th|
|00001450| 65 20 68 69 6e 74 20 66 | 69 6c 65 73 20 6f 72 20 |e hint f|iles or |
|00001460| 74 68 65 20 4d 61 6b 65 | 66 69 6c 65 20 66 6f 72 |the Make|file for|
|00001470| 20 64 65 74 61 69 6c 73 | 2e 0a 58 0a 58 52 75 6c | details|..X.XRul|
|00001480| 65 73 20 61 6e 64 20 72 | 65 73 75 6c 74 73 20 77 |es and r|esults w|
|00001490| 65 72 65 20 70 6f 73 74 | 65 64 20 74 6f 20 63 6f |ere post|ed to co|
|000014a0| 6d 70 2e 6c 61 6e 67 2e | 63 2c 20 63 6f 6d 70 2e |mp.lang.|c, comp.|
|000014b0| 73 6f 75 72 63 65 73 2e | 75 6e 69 78 2c 20 61 6e |sources.|unix, an|
|000014c0| 64 0a 58 61 6c 74 2e 73 | 6f 75 72 63 65 73 2e 20 |d.Xalt.s|ources. |
|000014d0| 20 54 68 65 79 20 68 61 | 76 65 20 62 65 65 6e 20 | They ha|ve been |
|000014e0| 6d 61 64 65 20 61 76 61 | 69 6c 61 62 6c 65 20 6f |made ava|ilable o|
|000014f0| 6e 20 61 20 77 69 64 65 | 20 6e 75 6d 62 65 72 20 |n a wide| number |
|00001500| 6f 66 20 55 73 65 6e 65 | 74 0a 58 61 72 63 68 69 |of Usene|t.Xarchi|
|00001510| 76 65 20 73 69 74 65 73 | 20 73 75 63 68 20 61 73 |ve sites| such as|
|00001520| 20 75 75 6e 65 74 2e 20 | 20 54 68 65 20 31 39 38 | uunet. | The 198|
|00001530| 39 20 77 69 6e 6e 65 72 | 73 20 77 69 6c 6c 20 62 |9 winner|s will b|
|00001540| 65 20 70 75 62 6c 69 73 | 68 65 64 20 69 6e 20 74 |e publis|hed in t|
|00001550| 68 65 0a 58 4d 69 63 72 | 6f 2f 53 79 73 74 65 6d |he.XMicr|o/System|
|00001560| 73 20 4a 6f 75 72 6e 61 | 6c 2e 0a 2f 2f 45 2a 4f |s Journa|l..//E*O|
|00001570| 2a 46 20 31 39 38 39 2f | 52 45 41 44 4d 45 2f 2f |*F 1989/|README//|
|00001580| 0a 0a 65 63 68 6f 20 78 | 20 2d 20 31 39 38 39 2f |..echo x| - 1989/|
|00001590| 66 75 62 61 72 2e 63 0a | 73 65 64 20 2d 65 20 27 |fubar.c.|sed -e '|
|000015a0| 73 2f 5e 58 2f 2f 27 20 | 3e 20 22 31 39 38 39 2f |s/^X//' |> "1989/|
|000015b0| 66 75 62 61 72 2e 63 22 | 20 3c 3c 20 27 2f 2f 45 |fubar.c"| << '//E|
|000015c0| 2a 4f 2a 46 20 31 39 38 | 39 2f 66 75 62 61 72 2e |*O*F 198|9/fubar.|
|000015d0| 63 2f 2f 27 0a 58 0a 58 | 23 69 6e 63 6c 75 64 65 |c//'.X.X|#include|
|000015e0| 20 3c 73 74 64 69 6f 2e | 68 3e 0a 58 23 64 65 66 | <stdio.|h>.X#def|
|000015f0| 69 6e 65 20 51 51 20 20 | 20 20 20 20 31 0a 58 23 |ine QQ  |    1.X#|
|00001600| 64 65 66 69 6e 65 20 54 | 54 20 20 20 20 20 20 20 |define T|T       |
|00001610| 20 20 31 0a 58 23 64 65 | 66 69 6e 65 20 63 63 20 |  1.X#de|fine cc |
|00001620| 6d 61 69 6e 28 63 2c 76 | 29 20 69 6e 74 20 63 3b |main(c,v|) int c;|
|00001630| 20 63 68 61 72 20 2a 2a | 76 3b 7b 63 68 61 72 20 | char **|v;{char |
|00001640| 74 74 5b 31 32 5d 2c 71 | 71 5b 37 5d 3b 20 69 6e |tt[12],q|q[7]; in|
|00001650| 74 20 71 3d 30 2c 6f 3d | 31 2c 6c 3d 31 2c 6d 3d |t q=0,o=|1,l=1,m=|
|00001660| 31 3b 73 74 72 75 63 74 | 20 7b 69 6e 74 20 63 3b |1;struct| {int c;|
|00001670| 7d 20 66 3b 0a 58 23 64 | 65 66 69 6e 65 20 6f 75 |} f;.X#d|efine ou|
|00001680| 72 6f 62 6f 72 6f 73 20 | 71 71 5b 36 5d 3d 27 5c |roboros |qq[6]='\|
|00001690| 30 27 3b 74 74 5b 31 31 | 5d 3d 27 5c 30 27 3b 69 |0';tt[11|]='\0';i|
|000016a0| 66 28 51 51 3d 3d 61 74 | 6f 69 28 76 5b 31 5d 29 |f(QQ==at|oi(v[1])|
|000016b0| 2b 31 29 7b 28 76 6f 69 | 64 29 66 70 72 69 6e 74 |+1){(voi|d)fprint|
|000016c0| 66 28 73 74 64 65 72 72 | 2c 22 25 73 20 66 61 63 |f(stderr|,"%s fac|
|000016d0| 74 6f 72 69 61 6c 20 3d | 20 25 64 5c 6e 22 2c 76 |torial =| %d\n",v|
|000016e0| 5b 31 5d 2c 20 54 54 29 | 3b 65 78 69 74 28 31 29 |[1], TT)|;exit(1)|
|000016f0| 3b 7d 6f 3d 63 2b 66 0a | 58 23 64 65 66 69 6e 65 |;}o=c+f.|X#define|
|00001700| 20 78 20 3b 77 68 69 6c | 65 28 45 4f 46 21 3d 28 | x ;whil|e(EOF!=(|
|00001710| 6f 3d 67 65 74 63 68 61 | 72 28 29 29 29 7b 69 66 |o=getcha|r())){if|
|00001720| 28 6c 20 26 26 20 71 3d | 3d 27 51 27 20 26 26 20 |(l && q=|='Q' && |
|00001730| 6f 3d 3d 27 51 27 29 7b | 6c 3d 30 3b 28 76 6f 69 |o=='Q'){|l=0;(voi|
|00001740| 64 29 67 65 74 63 68 61 | 72 28 29 3b 28 76 6f 69 |d)getcha|r();(voi|
|00001750| 64 29 66 72 65 61 64 28 | 71 71 2c 36 2c 31 2c 73 |d)fread(|qq,6,1,s|
|00001760| 74 64 69 6e 29 3b 28 76 | 6f 69 64 29 70 72 69 6e |tdin);(v|oid)prin|
|00001770| 74 66 28 22 51 20 25 36 | 64 22 2c 61 74 6f 69 28 |tf("Q %6|d",atoi(|
|00001780| 71 71 29 2b 31 29 3b 7d | 65 6c 73 65 0a 58 69 66 |qq)+1);}|else.Xif|
|00001790| 28 6d 20 26 26 20 71 3d | 3d 27 54 27 20 26 26 20 |(m && q=|='T' && |
|000017a0| 6f 3d 3d 27 54 27 29 7b | 6d 3d 30 3b 28 76 6f 69 |o=='T'){|m=0;(voi|
|000017b0| 64 29 66 72 65 61 64 28 | 74 74 2c 31 31 2c 31 2c |d)fread(|tt,11,1,|
|000017c0| 73 74 64 69 6e 29 3b 28 | 76 6f 69 64 29 70 72 69 |stdin);(|void)pri|
|000017d0| 6e 74 66 28 22 54 20 25 | 39 64 5c 6e 22 2c 61 74 |ntf("T %|9d\n",at|
|000017e0| 6f 69 28 74 74 29 2a 51 | 51 29 3b 7d 65 6c 73 65 |oi(tt)*Q|Q);}else|
|000017f0| 20 7b 71 3d 6f 3b 28 76 | 6f 69 64 29 70 75 74 63 | {q=o;(v|oid)putc|
|00001800| 68 61 72 28 6f 29 3b 7d | 7d 65 78 69 74 28 30 29 |har(o);}|}exit(0)|
|00001810| 3b 7d 0a 58 63 63 20 6f | 75 72 6f 62 6f 72 6f 73 |;}.Xcc o|uroboros|
|00001820| 2e 63 20 2d 6f 20 78 20 | 0a 58 23 64 65 66 69 6e |.c -o x |.X#defin|
|00001830| 65 20 7a 78 63 20 3b 7b | 2f 2a 0a 58 63 61 74 20 |e zxc ;{|/*.Xcat |
|00001840| 6f 75 72 6f 62 6f 72 6f | 73 2e 63 20 7c 20 78 20 |ouroboro|s.c | x |
|00001850| 24 31 20 3e 20 78 31 0a | 58 69 66 20 5b 20 24 3f |$1 > x1.|Xif [ $?|
|00001860| 20 2d 6e 65 20 30 20 5d | 3b 20 74 68 65 6e 0a 58 | -ne 0 ]|; then.X|
|00001870| 65 78 69 74 0a 58 66 69 | 0a 58 6d 76 20 78 31 20 |exit.Xfi|.Xmv x1 |
|00001880| 6f 75 72 6f 62 6f 72 6f | 73 2e 63 0a 58 63 68 6d |ouroboro|s.c.Xchm|
|00001890| 6f 64 20 2b 78 20 6f 75 | 72 6f 62 6f 72 6f 73 2e |od +x ou|roboros.|
|000018a0| 63 0a 58 65 78 65 63 20 | 6f 75 72 6f 62 6f 72 6f |c.Xexec |ouroboro|
|000018b0| 73 2e 63 20 24 31 0a 58 | 65 78 69 74 0a 58 2a 2f |s.c $1.X|exit.X*/|
|000018c0| 0a 2f 2f 45 2a 4f 2a 46 | 20 31 39 38 39 2f 66 75 |.//E*O*F| 1989/fu|
|000018d0| 62 61 72 2e 63 2f 2f 0a | 0a 65 63 68 6f 20 78 20 |bar.c//.|.echo x |
|000018e0| 2d 20 31 39 38 39 2f 66 | 75 62 61 72 2e 68 69 6e |- 1989/f|ubar.hin|
|000018f0| 74 0a 73 65 64 20 2d 65 | 20 27 73 2f 5e 58 2f 2f |t.sed -e| 's/^X//|
|00001900| 27 20 3e 20 22 31 39 38 | 39 2f 66 75 62 61 72 2e |' > "198|9/fubar.|
|00001910| 68 69 6e 74 22 20 3c 3c | 20 27 2f 2f 45 2a 4f 2a |hint" <<| '//E*O*|
|00001920| 46 20 31 39 38 39 2f 66 | 75 62 61 72 2e 68 69 6e |F 1989/f|ubar.hin|
|00001930| 74 2f 2f 27 0a 58 42 65 | 73 74 20 73 65 6c 66 2d |t//'.XBe|st self-|
|00001940| 6d 6f 64 69 66 79 69 6e | 67 20 70 72 6f 67 72 61 |modifyin|g progra|
|00001950| 6d 3a 20 3c 73 65 71 75 | 65 6e 74 21 66 75 62 61 |m: <sequ|ent!fuba|
|00001960| 72 3e 20 4a 61 79 20 56 | 6f 73 62 75 72 67 68 0a |r> Jay V|osburgh.|
|00001970| 58 0a 58 09 4a 61 79 20 | 56 6f 73 62 75 72 67 68 |X.X.Jay |Vosburgh|
|00001980| 0a 58 20 20 20 20 20 20 | 20 20 53 65 71 75 65 6e |.X      |  Sequen|
|00001990| 74 20 43 6f 6d 70 75 74 | 65 72 20 53 79 73 74 65 |t Comput|er Syste|
|000019a0| 6d 73 2c 20 49 6e 63 0a | 58 20 20 20 20 20 20 20 |ms, Inc.|X       |
|000019b0| 20 31 35 34 35 30 20 53 | 57 20 4b 6f 6c 6c 20 50 | 15450 S|W Koll P|
|000019c0| 61 72 6b 77 61 79 0a 58 | 20 20 20 20 20 20 20 20 |arkway.X|        |
|000019d0| 42 65 61 76 65 72 74 6f | 6e 2c 20 4f 52 0a 58 20 |Beaverto|n, OR.X |
|000019e0| 20 20 20 20 20 20 20 39 | 37 30 30 36 0a 58 20 20 |       9|7006.X  |
|000019f0| 20 20 20 20 20 20 55 53 | 41 0a 58 0a 58 4a 75 64 |      US|A.X.XJud|
|00001a00| 67 65 73 20 6e 6f 74 65 | 73 3a 0a 58 0a 58 09 52 |ges note|s:.X.X.R|
|00001a10| 75 6e 20 74 68 69 73 20 | 77 69 74 68 20 61 20 73 |un this |with a s|
|00001a20| 69 6e 67 6c 65 20 64 69 | 67 69 74 20 61 72 67 75 |ingle di|git argu|
|00001a30| 6d 65 6e 74 20 28 6f 72 | 20 77 61 69 74 20 61 20 |ment (or| wait a |
|00001a40| 6c 6f 6e 67 20 74 69 6d | 65 29 2e 0a 58 0a 58 09 |long tim|e)..X.X.|
|00001a50| 54 68 65 72 65 20 61 72 | 65 20 32 20 76 65 72 73 |There ar|e 2 vers|
|00001a60| 69 6f 6e 73 20 6f 66 20 | 74 68 69 73 20 70 72 6f |ions of |this pro|
|00001a70| 67 72 61 6d 2c 20 74 68 | 65 20 6f 6e 65 20 74 68 |gram, th|e one th|
|00001a80| 61 74 20 77 61 73 20 65 | 6e 74 65 72 65 64 2c 0a |at was e|ntered,.|
|00001a90| 58 09 61 6e 64 20 6f 6e | 65 20 74 68 61 74 20 77 |X.and on|e that w|
|00001aa0| 61 73 20 63 68 61 6e 67 | 65 64 20 62 79 20 74 68 |as chang|ed by th|
|00001ab0| 65 20 6a 75 64 67 65 73 | 20 74 6f 20 62 65 20 6d |e judges| to be m|
|00001ac0| 6f 72 65 20 70 6f 72 74 | 61 62 6c 65 2e 20 54 68 |ore port|able. Th|
|00001ad0| 65 0a 58 09 6d 61 6b 65 | 66 69 6c 65 20 72 75 6e |e.X.make|file run|
|00001ae0| 73 20 74 68 65 20 6c 61 | 74 74 65 72 20 76 65 72 |s the la|tter ver|
|00001af0| 73 69 6f 6e 20 62 79 20 | 64 65 66 61 75 6c 74 2e |sion by |default.|
|00001b00| 0a 58 0a 58 09 54 68 65 | 20 62 6c 61 6e 6b 20 6c |.X.X.The| blank l|
|00001b10| 69 6e 65 20 61 74 20 74 | 68 65 20 62 65 67 69 6e |ine at t|he begin|
|00001b20| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 73 6f 75 72 |ning of |the sour|
|00001b30| 63 65 20 69 73 20 6d 61 | 6e 64 61 74 6f 72 79 2e |ce is ma|ndatory.|
|00001b40| 0a 58 09 44 6f 20 79 6f | 75 20 6b 6e 6f 77 20 77 |.X.Do yo|u know w|
|00001b50| 68 79 3f 0a 58 0a 58 09 | 54 68 65 20 73 68 65 6c |hy?.X.X.|The shel|
|00001b60| 6c 20 73 63 72 69 70 74 | 20 72 75 6e 20 62 79 20 |l script| run by |
|00001b70| 74 68 65 20 6d 61 6b 65 | 66 69 6c 65 20 6a 6f 69 |the make|file joi|
|00001b80| 6e 73 20 6c 69 6e 65 73 | 20 74 68 61 74 20 6d 61 |ns lines| that ma|
|00001b90| 79 20 62 65 0a 58 09 63 | 75 74 20 75 70 20 62 79 |y be.X.c|ut up by|
|00001ba0| 20 6d 61 69 6c 65 72 73 | 2e 20 20 54 68 65 20 66 | mailers|.  The f|
|00001bb0| 69 6c 65 20 22 66 75 62 | 61 72 2e 6f 72 69 67 2e |ile "fub|ar.orig.|
|00001bc0| 63 22 2c 20 66 6f 72 20 | 65 78 61 6d 70 6c 65 2c |c", for |example,|
|00001bd0| 20 6e 65 65 64 73 0a 58 | 09 74 68 65 20 36 74 68 | needs.X|.the 6th|
|00001be0| 20 61 6e 64 20 37 74 68 | 20 6c 69 6e 65 73 20 6a | and 7th| lines j|
|00001bf0| 6f 69 6e 65 64 20 74 6f | 67 65 74 68 65 72 20 28 |oined to|gether (|
|00001c00| 77 69 74 68 20 61 20 73 | 70 61 63 65 20 62 65 74 |with a s|pace bet|
|00001c10| 77 65 65 6e 0a 58 09 74 | 68 65 6d 29 20 74 6f 20 |ween.X.t|hem) to |
|00001c20| 72 65 63 72 65 61 74 65 | 20 74 68 65 20 6f 72 69 |recreate| the ori|
|00001c30| 67 69 6e 61 6c 20 65 6e | 74 72 79 2e 20 20 49 66 |ginal en|try.  If|
|00001c40| 20 79 6f 75 20 66 69 78 | 20 74 68 65 20 66 69 6c | you fix| the fil|
|00001c50| 65 2c 20 79 6f 75 0a 58 | 09 77 69 6c 6c 20 6e 65 |e, you.X|.will ne|
|00001c60| 65 64 20 74 6f 20 63 68 | 61 6e 67 65 20 74 68 65 |ed to ch|ange the|
|00001c70| 20 6c 61 73 74 20 38 20 | 6c 69 6e 6e 65 73 20 6f | last 8 |linnes o|
|00001c80| 66 20 22 66 75 62 61 72 | 2e 6f 72 69 67 2e 73 68 |f "fubar|.orig.sh|
|00001c90| 22 20 74 6f 20 72 65 61 | 64 3a 0a 58 0a 58 09 09 |" to rea|d:.X.X..|
|00001ca0| 63 70 20 66 75 62 61 72 | 2e 6f 72 69 67 2e 63 20 |cp fubar|.orig.c |
|00001cb0| 6f 75 72 6f 62 6f 72 6f | 73 2e 63 0a 58 09 09 63 |ouroboro|s.c.X..c|
|00001cc0| 68 6d 6f 64 20 2b 78 20 | 6f 75 72 6f 62 6f 72 6f |hmod +x |ouroboro|
|00001cd0| 73 2e 63 0a 58 09 09 63 | 73 68 20 6f 75 72 6f 62 |s.c.X..c|sh ourob|
|00001ce0| 6f 72 6f 73 2e 63 20 24 | 31 0a 58 09 09 72 6d 20 |oros.c $|1.X..rm |
|00001cf0| 2d 66 20 6f 75 72 6f 62 | 6f 72 6f 73 2e 63 20 78 |-f ourob|oros.c x|
|00001d00| 31 20 78 0a 58 0a 58 09 | 54 68 65 20 6d 6f 72 65 |1 x.X.X.|The more|
|00001d10| 20 70 6f 72 74 61 62 6c | 65 20 76 65 72 73 69 6f | portabl|e versio|
|00001d20| 6e 2c 20 22 66 75 62 61 | 72 2e 63 22 2c 20 63 61 |n, "fuba|r.c", ca|
|00001d30| 6e 20 62 65 20 66 69 78 | 65 64 20 62 79 20 6a 6f |n be fix|ed by jo|
|00001d40| 69 6e 69 6e 67 20 74 68 | 65 0a 58 09 37 74 68 20 |ining th|e.X.7th |
|00001d50| 61 6e 64 20 38 74 68 20 | 6c 69 6e 65 73 20 69 6e |and 8th |lines in|
|00001d60| 20 74 68 65 20 73 61 6d | 65 20 77 61 79 2e 20 20 | the sam|e way.  |
|00001d70| 41 73 20 77 65 6c 6c 2c | 20 69 66 20 79 6f 75 20 |As well,| if you |
|00001d80| 66 69 78 20 22 66 75 62 | 61 72 2e 63 22 0a 58 09 |fix "fub|ar.c".X.|
|00001d90| 79 6f 75 20 77 69 6c 6c | 20 6e 65 65 64 20 74 6f |you will| need to|
|00001da0| 20 61 6c 73 6f 20 63 68 | 61 6e 67 65 20 74 68 65 | also ch|ange the|
|00001db0| 20 6c 61 73 74 20 38 20 | 6c 69 6e 65 73 20 74 6f | last 8 |lines to|
|00001dc0| 20 22 66 75 62 61 72 2e | 73 68 22 20 74 6f 20 72 | "fubar.|sh" to r|
|00001dd0| 65 61 64 3a 0a 58 0a 58 | 09 09 63 70 20 66 75 62 |ead:.X.X|..cp fub|
|00001de0| 61 72 2e 63 20 6f 75 72 | 6f 62 6f 72 6f 73 2e 63 |ar.c our|oboros.c|
|00001df0| 0a 58 09 09 63 68 6d 6f | 64 20 2b 78 20 6f 75 72 |.X..chmo|d +x our|
|00001e00| 6f 62 6f 72 6f 73 2e 63 | 0a 58 09 09 63 73 68 20 |oboros.c|.X..csh |
|00001e10| 6f 75 72 6f 62 6f 72 6f | 73 2e 63 20 24 31 0a 58 |ouroboro|s.c $1.X|
|00001e20| 09 09 72 6d 20 2d 66 20 | 6f 75 72 6f 62 6f 72 6f |..rm -f |ouroboro|
|00001e30| 73 2e 63 20 78 31 20 78 | 0a 58 0a 58 53 65 6c 65 |s.c x1 x|.X.XSele|
|00001e40| 63 74 65 64 20 6e 6f 74 | 65 73 20 66 72 6f 6d 20 |cted not|es from |
|00001e50| 74 68 65 20 61 75 74 68 | 6f 72 3a 0a 58 0a 58 09 |the auth|or:.X.X.|
|00001e60| 49 6e 20 61 20 6e 75 74 | 73 68 65 6c 6c 2c 20 74 |In a nut|shell, t|
|00001e70| 68 69 73 20 69 73 20 70 | 72 6f 62 61 62 6c 79 20 |his is p|robably |
|00001e80| 74 68 65 20 73 6c 6f 77 | 65 73 74 20 61 6e 64 20 |the slow|est and |
|00001e90| 6d 6f 73 74 0a 58 09 6f | 62 6e 6f 78 69 6f 75 73 |most.X.o|bnoxious|
|00001ea0| 20 66 61 63 74 6f 72 69 | 61 6c 20 70 72 6f 67 72 | factori|al progr|
|00001eb0| 61 6d 20 65 76 65 72 20 | 77 72 69 74 74 65 6e 2e |am ever |written.|
|00001ec0| 20 20 55 6e 66 6f 72 74 | 75 6e 61 74 65 6c 79 2c |  Unfort|unately,|
|00001ed0| 20 0a 58 09 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 | .X.the |name of |
|00001ee0| 74 68 65 20 43 20 73 6f | 75 72 63 65 20 6d 75 73 |the C so|urce mus|
|00001ef0| 74 20 62 65 20 22 6f 75 | 72 6f 62 6f 72 6f 73 2e |t be "ou|roboros.|
|00001f00| 63 22 3b 20 74 68 65 20 | 6e 61 6d 65 20 69 73 20 |c"; the |name is |
|00001f10| 0a 58 09 68 61 72 64 2d | 63 6f 64 65 64 20 69 6e |.X.hard-|coded in|
|00001f20| 74 6f 20 74 68 65 20 70 | 72 6f 67 72 61 6d 2e 20 |to the p|rogram. |
|00001f30| 20 0a 58 0a 58 09 54 68 | 65 20 73 6f 75 72 63 65 | .X.X.Th|e source|
|00001f40| 20 69 73 20 61 20 6c 65 | 67 61 6c 20 73 68 65 6c | is a le|gal shel|
|00001f50| 6c 20 73 63 72 69 70 74 | 20 61 6e 64 20 61 20 6c |l script| and a l|
|00001f60| 65 67 61 6c 20 43 20 70 | 72 6f 67 72 61 6d 2e 20 |egal C p|rogram. |
|00001f70| 20 0a 58 09 54 68 65 20 | 73 68 65 6c 6c 20 73 63 | .X.The |shell sc|
|00001f80| 72 69 70 74 20 63 6f 6d | 70 69 6c 65 73 20 69 74 |ript com|piles it|
|00001f90| 73 65 6c 66 2c 20 61 6e | 64 20 74 68 65 6e 20 65 |self, an|d then e|
|00001fa0| 78 65 63 75 74 65 73 20 | 74 68 65 0a 58 09 72 65 |xecutes |the.X.re|
|00001fb0| 73 75 6c 74 69 6e 67 20 | 62 69 6e 61 72 79 2c 20 |sulting |binary, |
|00001fc0| 67 69 76 69 6e 67 20 74 | 68 65 20 73 6f 75 72 63 |giving t|he sourc|
|00001fd0| 65 20 61 73 20 69 6e 70 | 75 74 2e 20 20 54 68 65 |e as inp|ut.  The|
|00001fe0| 20 70 72 6f 67 72 61 6d | 20 0a 58 09 77 6f 72 6b | program| .X.work|
|00001ff0| 73 20 62 79 20 73 75 63 | 63 65 73 73 69 76 65 6c |s by suc|cessivel|
|00002000| 79 20 6d 6f 64 69 66 79 | 69 6e 67 20 23 64 65 66 |y modify|ing #def|
|00002010| 69 6e 65 20 6c 69 6e 65 | 73 20 65 61 63 68 20 70 |ine line|s each p|
|00002020| 61 73 73 20 74 68 72 6f | 75 67 68 2e 0a 58 0a 58 |ass thro|ugh..X.X|
|00002030| 09 42 6f 74 68 20 22 69 | 6e 64 65 6e 74 22 20 61 |.Both "i|ndent" a|
|00002040| 6e 64 20 22 63 62 22 20 | 77 69 6c 6c 20 64 61 6d |nd "cb" |will dam|
|00002050| 61 67 65 20 74 68 65 20 | 70 72 6f 67 72 61 6d 2c |age the |program,|
|00002060| 20 22 69 6e 64 65 6e 74 | 22 20 0a 58 09 6d 75 63 | "indent|" .X.muc|
|00002070| 68 20 6d 6f 72 65 20 73 | 6f 2e 0a 2f 2f 45 2a 4f |h more s|o..//E*O|
|00002080| 2a 46 20 31 39 38 39 2f | 66 75 62 61 72 2e 68 69 |*F 1989/|fubar.hi|
|00002090| 6e 74 2f 2f 0a 0a 65 63 | 68 6f 20 78 20 2d 20 31 |nt//..ec|ho x - 1|
|000020a0| 39 38 39 2f 66 75 62 61 | 72 2e 6f 72 69 67 2e 63 |989/fuba|r.orig.c|
|000020b0| 0a 73 65 64 20 2d 65 20 | 27 73 2f 5e 58 2f 2f 27 |.sed -e |'s/^X//'|
|000020c0| 20 3e 20 22 31 39 38 39 | 2f 66 75 62 61 72 2e 6f | > "1989|/fubar.o|
|000020d0| 72 69 67 2e 63 22 20 3c | 3c 20 27 2f 2f 45 2a 4f |rig.c" <|< '//E*O|
|000020e0| 2a 46 20 31 39 38 39 2f | 66 75 62 61 72 2e 6f 72 |*F 1989/|fubar.or|
|000020f0| 69 67 2e 63 2f 2f 27 0a | 58 23 69 6e 63 6c 75 64 |ig.c//'.|X#includ|
|00002100| 65 20 3c 73 74 64 69 6f | 2e 68 3e 0a 58 23 64 65 |e <stdio|.h>.X#de|
|00002110| 66 69 6e 65 20 51 51 20 | 20 20 20 20 20 31 0a 58 |fine QQ |     1.X|
|00002120| 23 64 65 66 69 6e 65 20 | 54 54 20 20 20 20 20 20 |#define |TT      |
|00002130| 20 20 20 31 0a 58 23 64 | 65 66 69 6e 65 20 63 63 |   1.X#d|efine cc|
|00002140| 20 6d 61 69 6e 28 63 2c | 76 29 20 69 6e 74 20 63 | main(c,|v) int c|
|00002150| 3b 20 63 68 61 72 20 2a | 2a 76 3b 7b 63 68 61 72 |; char *|*v;{char|
|00002160| 20 74 74 5b 31 32 5d 2c | 71 71 5b 37 5d 3b 20 69 | tt[12],|qq[7]; i|
|00002170| 6e 74 20 71 3d 30 2c 6f | 3d 31 2c 6c 3d 31 2c 6d |nt q=0,o|=1,l=1,m|
|00002180| 3d 31 3b 73 74 72 75 63 | 74 20 7b 69 6e 74 20 63 |=1;struc|t {int c|
|00002190| 3b 7d 20 66 3b 0a 58 23 | 64 65 66 69 6e 65 20 69 |;} f;.X#|define i|
|000021a0| 6e 63 65 73 74 20 71 71 | 5b 36 5d 3d 27 5c 30 27 |ncest qq|[6]='\0'|
|000021b0| 3b 74 74 5b 31 31 5d 3d | 27 5c 30 27 3b 69 66 28 |;tt[11]=|'\0';if(|
|000021c0| 51 51 3d 3d 61 74 6f 69 | 28 76 5b 31 5d 29 2b 31 |QQ==atoi|(v[1])+1|
|000021d0| 29 7b 28 76 6f 69 64 29 | 66 70 72 69 6e 74 66 28 |){(void)|fprintf(|
|000021e0| 73 74 64 65 72 72 2c 22 | 25 73 20 66 61 63 74 6f |stderr,"|%s facto|
|000021f0| 72 69 61 6c 20 3d 20 25 | 64 5c 6e 22 2c 76 5b 31 |rial = %|d\n",v[1|
|00002200| 5d 2c 20 54 54 29 3b 65 | 78 69 74 28 31 29 3b 7d |], TT);e|xit(1);}|
|00002210| 6f 3d 63 2b 66 0a 58 23 | 64 65 66 69 6e 65 20 78 |o=c+f.X#|define x|
|00002220| 20 3b 77 68 69 6c 65 28 | 45 4f 46 21 3d 28 6f 3d | ;while(|EOF!=(o=|
|00002230| 67 65 74 63 68 61 72 28 | 29 29 29 7b 69 66 28 6c |getchar(|))){if(l|
|00002240| 20 26 26 20 71 3d 3d 27 | 51 27 20 26 26 20 6f 3d | && q=='|Q' && o=|
|00002250| 3d 27 51 27 29 7b 6c 3d | 30 3b 28 76 6f 69 64 29 |='Q'){l=|0;(void)|
|00002260| 67 65 74 63 68 61 72 28 | 29 3b 28 76 6f 69 64 29 |getchar(|);(void)|
|00002270| 66 72 65 61 64 28 71 71 | 2c 36 2c 31 2c 73 74 64 |fread(qq|,6,1,std|
|00002280| 69 6e 29 3b 28 76 6f 69 | 64 29 70 72 69 6e 74 66 |in);(voi|d)printf|
|00002290| 28 22 51 20 25 36 64 22 | 2c 61 74 6f 69 28 71 71 |("Q %6d"|,atoi(qq|
|000022a0| 29 2b 31 29 3b 7d 65 6c | 73 65 0a 58 69 66 28 6d |)+1);}el|se.Xif(m|
|000022b0| 20 26 26 20 71 3d 3d 27 | 54 27 20 26 26 20 6f 3d | && q=='|T' && o=|
|000022c0| 3d 27 54 27 29 7b 6d 3d | 30 3b 28 76 6f 69 64 29 |='T'){m=|0;(void)|
|000022d0| 66 72 65 61 64 28 74 74 | 2c 31 31 2c 31 2c 73 74 |fread(tt|,11,1,st|
|000022e0| 64 69 6e 29 3b 28 76 6f | 69 64 29 70 72 69 6e 74 |din);(vo|id)print|
|000022f0| 66 28 22 54 20 25 39 64 | 5c 6e 22 2c 61 74 6f 69 |f("T %9d|\n",atoi|
|00002300| 28 74 74 29 2a 51 51 29 | 3b 7d 65 6c 73 65 20 7b |(tt)*QQ)|;}else {|
|00002310| 71 3d 6f 3b 28 76 6f 69 | 64 29 70 75 74 63 68 61 |q=o;(voi|d)putcha|
|00002320| 72 28 6f 29 3b 7d 7d 65 | 78 69 74 28 30 29 3b 7d |r(o);}}e|xit(0);}|
|00002330| 0a 58 63 63 20 69 6e 63 | 65 73 74 2e 63 20 2d 6f |.Xcc inc|est.c -o|
|00002340| 20 78 20 0a 58 23 64 65 | 66 69 6e 65 20 7a 78 63 | x .X#de|fine zxc|
|00002350| 20 3b 7b 2f 2a 0a 58 63 | 61 74 20 69 6e 63 65 73 | ;{/*.Xc|at inces|
|00002360| 74 2e 63 20 7c 20 78 20 | 24 31 20 3e 21 20 78 31 |t.c | x |$1 >! x1|
|00002370| 0a 58 69 66 20 28 24 73 | 74 61 74 75 73 20 21 3d |.Xif ($s|tatus !=|
|00002380| 20 30 29 20 74 68 65 6e | 20 0a 58 65 78 69 74 0a | 0) then| .Xexit.|
|00002390| 58 65 6e 64 69 66 0a 58 | 6d 76 20 78 31 20 69 6e |Xendif.X|mv x1 in|
|000023a0| 63 65 73 74 2e 63 0a 58 | 63 68 6d 6f 64 20 2b 78 |cest.c.X|chmod +x|
|000023b0| 20 69 6e 63 65 73 74 2e | 63 0a 58 65 78 65 63 20 | incest.|c.Xexec |
|000023c0| 69 6e 63 65 73 74 2e 63 | 20 24 31 0a 58 65 78 69 |incest.c| $1.Xexi|
|000023d0| 74 0a 58 2a 2f 0a 2f 2f | 45 2a 4f 2a 46 20 31 39 |t.X*/.//|E*O*F 19|
|000023e0| 38 39 2f 66 75 62 61 72 | 2e 6f 72 69 67 2e 63 2f |89/fubar|.orig.c/|
|000023f0| 2f 0a 0a 65 63 68 6f 20 | 78 20 2d 20 31 39 38 39 |/..echo |x - 1989|
|00002400| 2f 66 75 62 61 72 2e 6f | 72 69 67 2e 73 68 0a 73 |/fubar.o|rig.sh.s|
|00002410| 65 64 20 2d 65 20 27 73 | 2f 5e 58 2f 2f 27 20 3e |ed -e 's|/^X//' >|
|00002420| 20 22 31 39 38 39 2f 66 | 75 62 61 72 2e 6f 72 69 | "1989/f|ubar.ori|
|00002430| 67 2e 73 68 22 20 3c 3c | 20 27 2f 2f 45 2a 4f 2a |g.sh" <<| '//E*O*|
|00002440| 46 20 31 39 38 39 2f 66 | 75 62 61 72 2e 6f 72 69 |F 1989/f|ubar.ori|
|00002450| 67 2e 73 68 2f 2f 27 0a | 58 3a 0a 58 23 20 74 6f |g.sh//'.|X:.X# to|
|00002460| 20 72 75 6e 20 66 75 62 | 61 72 20 69 6e 20 74 68 | run fub|ar in th|
|00002470| 65 20 27 70 72 6f 70 65 | 72 27 20 77 61 79 0a 58 |e 'prope|r' way.X|
|00002480| 0a 58 23 20 70 61 72 73 | 65 20 61 72 67 73 0a 58 |.X# pars|e args.X|
|00002490| 69 66 20 5b 20 24 23 20 | 2d 6e 65 20 31 20 5d 3b |if [ $# |-ne 1 ];|
|000024a0| 20 74 68 65 6e 0a 58 20 | 20 20 20 65 63 68 6f 20 | then.X |   echo |
|000024b0| 22 75 73 61 67 65 3a 20 | 24 30 20 6e 75 6d 62 65 |"usage: |$0 numbe|
|000024c0| 72 22 20 31 3e 26 32 0a | 58 20 20 20 20 65 78 69 |r" 1>&2.|X    exi|
|000024d0| 74 20 31 0a 58 66 69 0a | 58 0a 58 23 20 72 75 6e |t 1.Xfi.|X.X# run|
|000024e0| 2f 63 6f 6d 70 69 6c 65 | 20 69 74 0a 58 72 6d 20 |/compile| it.Xrm |
|000024f0| 2d 66 20 69 6e 63 65 73 | 74 2e 63 20 78 31 20 78 |-f inces|t.c x1 x|
|00002500| 0a 58 65 78 20 2d 20 3c | 3c 45 4f 46 0a 58 72 20 |.Xex - <|<EOF.Xr |
|00002510| 66 75 62 61 72 2e 6f 72 | 69 67 2e 63 0a 58 36 2c |fubar.or|ig.c.X6,|
|00002520| 37 6a 0a 58 77 20 69 6e | 63 65 73 74 2e 63 0a 58 |7j.Xw in|cest.c.X|
|00002530| 45 4f 46 0a 58 63 68 6d | 6f 64 20 2b 78 20 69 6e |EOF.Xchm|od +x in|
|00002540| 63 65 73 74 2e 63 0a 58 | 63 73 68 20 69 6e 63 65 |cest.c.X|csh ince|
|00002550| 73 74 2e 63 20 24 31 0a | 58 72 6d 20 2d 66 20 69 |st.c $1.|Xrm -f i|
|00002560| 6e 63 65 73 74 2e 63 20 | 78 31 20 78 0a 2f 2f 45 |ncest.c |x1 x.//E|
|00002570| 2a 4f 2a 46 20 31 39 38 | 39 2f 66 75 62 61 72 2e |*O*F 198|9/fubar.|
|00002580| 6f 72 69 67 2e 73 68 2f | 2f 0a 0a 65 63 68 6f 20 |orig.sh/|/..echo |
|00002590| 78 20 2d 20 31 39 38 39 | 2f 66 75 62 61 72 2e 73 |x - 1989|/fubar.s|
|000025a0| 68 0a 73 65 64 20 2d 65 | 20 27 73 2f 5e 58 2f 2f |h.sed -e| 's/^X//|
|000025b0| 27 20 3e 20 22 31 39 38 | 39 2f 66 75 62 61 72 2e |' > "198|9/fubar.|
|000025c0| 73 68 22 20 3c 3c 20 27 | 2f 2f 45 2a 4f 2a 46 20 |sh" << '|//E*O*F |
|000025d0| 31 39 38 39 2f 66 75 62 | 61 72 2e 73 68 2f 2f 27 |1989/fub|ar.sh//'|
|000025e0| 0a 58 3a 0a 58 23 20 74 | 6f 20 72 75 6e 20 66 75 |.X:.X# t|o run fu|
|000025f0| 62 61 72 20 69 6e 20 74 | 68 65 20 27 70 72 6f 70 |bar in t|he 'prop|
|00002600| 65 72 27 20 77 61 79 0a | 58 0a 58 23 20 70 61 72 |er' way.|X.X# par|
|00002610| 73 65 20 61 72 67 73 0a | 58 69 66 20 5b 20 24 23 |se args.|Xif [ $#|
|00002620| 20 2d 6e 65 20 31 20 5d | 3b 20 74 68 65 6e 0a 58 | -ne 1 ]|; then.X|
|00002630| 20 20 20 20 65 63 68 6f | 20 22 75 73 61 67 65 3a |    echo| "usage:|
|00002640| 20 24 30 20 6e 75 6d 62 | 65 72 22 20 31 3e 26 32 | $0 numb|er" 1>&2|
|00002650| 0a 58 20 20 20 20 65 78 | 69 74 20 31 0a 58 66 69 |.X    ex|it 1.Xfi|
|00002660| 0a 58 0a 58 23 20 72 75 | 6e 2f 63 6f 6d 70 69 6c |.X.X# ru|n/compil|
|00002670| 65 20 69 74 0a 58 72 6d | 20 2d 66 20 6f 75 72 6f |e it.Xrm| -f ouro|
|00002680| 62 6f 72 6f 73 2e 63 20 | 78 31 20 78 0a 58 65 78 |boros.c |x1 x.Xex|
|00002690| 20 2d 20 3c 3c 45 4f 46 | 0a 58 72 20 66 75 62 61 | - <<EOF|.Xr fuba|
|000026a0| 72 2e 63 0a 58 37 2c 38 | 6a 0a 58 77 20 6f 75 72 |r.c.X7,8|j.Xw our|
|000026b0| 6f 62 6f 72 6f 73 2e 63 | 0a 58 45 4f 46 0a 58 63 |oboros.c|.XEOF.Xc|
|000026c0| 68 6d 6f 64 20 2b 78 20 | 6f 75 72 6f 62 6f 72 6f |hmod +x |ouroboro|
|000026d0| 73 2e 63 0a 58 6f 75 72 | 6f 62 6f 72 6f 73 2e 63 |s.c.Xour|oboros.c|
|000026e0| 20 24 31 0a 58 72 6d 20 | 2d 66 20 6f 75 72 6f 62 | $1.Xrm |-f ourob|
|000026f0| 6f 72 6f 73 2e 63 20 78 | 31 20 78 0a 2f 2f 45 2a |oros.c x|1 x.//E*|
|00002700| 4f 2a 46 20 31 39 38 39 | 2f 66 75 62 61 72 2e 73 |O*F 1989|/fubar.s|
|00002710| 68 2f 2f 0a 0a 65 63 68 | 6f 20 78 20 2d 20 31 39 |h//..ech|o x - 19|
|00002720| 38 39 2f 6a 61 72 2e 31 | 2e 63 0a 73 65 64 20 2d |89/jar.1|.c.sed -|
|00002730| 65 20 27 73 2f 5e 58 2f | 2f 27 20 3e 20 22 31 39 |e 's/^X/|/' > "19|
|00002740| 38 39 2f 6a 61 72 2e 31 | 2e 63 22 20 3c 3c 20 27 |89/jar.1|.c" << '|
|00002750| 2f 2f 45 2a 4f 2a 46 20 | 31 39 38 39 2f 6a 61 72 |//E*O*F |1989/jar|
|00002760| 2e 31 2e 63 2f 2f 27 0a | 58 63 68 61 72 2a 5f 3d |.1.c//'.|Xchar*_=|
|00002770| 22 48 65 6c 6c 6f 20 77 | 6f 72 6c 64 2e 5c 6e 22 |"Hello w|orld.\n"|
|00002780| 3b 0a 2f 2f 45 2a 4f 2a | 46 20 31 39 38 39 2f 6a |;.//E*O*|F 1989/j|
|00002790| 61 72 2e 31 2e 63 2f 2f | 0a 0a 65 63 68 6f 20 78 |ar.1.c//|..echo x|
|000027a0| 20 2d 20 31 39 38 39 2f | 6a 61 72 2e 31 2e 68 69 | - 1989/|jar.1.hi|
|000027b0| 6e 74 0a 73 65 64 20 2d | 65 20 27 73 2f 5e 58 2f |nt.sed -|e 's/^X/|
|000027c0| 2f 27 20 3e 20 22 31 39 | 38 39 2f 6a 61 72 2e 31 |/' > "19|89/jar.1|
|000027d0| 2e 68 69 6e 74 22 20 3c | 3c 20 27 2f 2f 45 2a 4f |.hint" <|< '//E*O|
|000027e0| 2a 46 20 31 39 38 39 2f | 6a 61 72 2e 31 2e 68 69 |*F 1989/|jar.1.hi|
|000027f0| 6e 74 2f 2f 27 0a 58 53 | 74 72 61 6e 67 65 73 74 |nt//'.XS|trangest|
|00002800| 20 61 62 75 73 65 20 6f | 66 20 74 68 65 20 72 75 | abuse o|f the ru|
|00002810| 6c 65 73 3a 20 3c 2e 2e | 2e 21 75 75 6e 65 74 21 |les: <..|.!uunet!|
|00002820| 6d 63 76 61 78 21 68 75 | 74 63 73 21 6a 61 72 3e |mcvax!hu|tcs!jar>|
|00002830| 20 4a 61 72 69 20 41 72 | 6b 6b 6f 0a 58 0a 58 09 | Jari Ar|kko.X.X.|
|00002840| 4a 61 72 69 20 41 72 6b | 6b 6f 0a 58 09 4c 61 62 |Jari Ark|ko.X.Lab|
|00002850| 6f 72 61 74 6f 72 79 20 | 6f 66 20 49 6e 66 6f 72 |oratory |of Infor|
|00002860| 6d 61 74 69 6f 6e 20 50 | 72 6f 63 65 73 73 69 6e |mation P|rocessin|
|00002870| 67 20 53 63 69 65 6e 63 | 65 0a 58 09 48 65 6c 73 |g Scienc|e.X.Hels|
|00002880| 69 6e 6b 69 20 55 6e 69 | 76 65 72 73 69 74 79 20 |inki Uni|versity |
|00002890| 6f 66 20 54 65 63 68 6e | 6f 6c 6f 67 79 0a 58 09 |of Techn|ology.X.|
|000028a0| 4f 74 61 6b 61 61 72 69 | 20 31 0a 58 09 30 32 31 |Otakaari| 1.X.021|
|000028b0| 35 30 20 45 73 70 6f 6f | 0a 58 09 46 69 6e 6c 61 |50 Espoo|.X.Finla|
|000028c0| 6e 64 0a 58 0a 58 4a 75 | 64 67 65 73 20 6e 6f 74 |nd.X.XJu|dges not|
|000028d0| 65 73 3a 0a 58 0a 58 09 | 4f 6e 20 6d 61 6e 79 20 |es:.X.X.|On many |
|000028e0| 73 79 73 74 65 6d 73 20 | 74 68 65 20 63 6f 6d 70 |systems |the comp|
|000028f0| 69 6c 65 72 20 77 69 6c | 6c 20 6e 6f 74 20 61 6c |iler wil|l not al|
|00002900| 6c 6f 77 20 79 6f 75 20 | 74 6f 20 73 65 6e 64 20 |low you |to send |
|00002910| 74 68 65 0a 58 09 6f 62 | 6a 65 63 74 20 66 69 6c |the.X.ob|ject fil|
|00002920| 65 20 74 6f 20 2f 64 65 | 76 2f 74 74 79 2e 20 20 |e to /de|v/tty.  |
|00002930| 54 68 65 20 61 75 74 68 | 6f 72 20 73 75 67 67 65 |The auth|or sugge|
|00002940| 73 74 65 64 3a 0a 58 0a | 58 09 09 63 63 20 2d 63 |sted:.X.|X..cc -c|
|00002950| 20 2d 6f 20 2f 64 65 76 | 2f 74 74 79 20 6a 61 72 | -o /dev|/tty jar|
|00002960| 2e 31 2e 63 0a 58 0a 58 | 09 4f 6e 20 73 79 73 74 |.1.c.X.X|.On syst|
|00002970| 65 6d 73 20 74 68 61 74 | 20 68 61 76 65 20 73 79 |ems that| have sy|
|00002980| 6d 62 6f 6c 69 63 20 6c | 69 6e 6b 73 2c 20 77 65 |mbolic l|inks, we|
|00002990| 20 73 75 67 67 65 73 74 | 3a 0a 58 0a 58 09 09 6c | suggest|:.X.X..l|
|000029a0| 6e 20 2d 73 20 2f 64 65 | 76 2f 74 74 79 20 6a 61 |n -s /de|v/tty ja|
|000029b0| 72 2e 31 2e 6f 0a 58 09 | 09 63 63 20 2d 63 20 6a |r.1.o.X.|.cc -c j|
|000029c0| 61 72 2e 31 2e 63 0a 58 | 09 0a 58 09 69 66 20 79 |ar.1.c.X|..X.if y|
|000029d0| 6f 75 72 20 73 79 73 74 | 65 6d 20 68 61 73 20 73 |our syst|em has s|
|000029e0| 79 6d 62 6f 6c 69 63 20 | 6c 69 6e 6b 73 2e 20 20 |ymbolic |links.  |
|000029f0| 54 68 65 20 73 68 65 6c | 6c 20 73 63 72 69 70 74 |The shel|l script|
|00002a00| 20 72 75 6e 0a 58 09 62 | 79 20 74 68 65 20 6d 61 | run.X.b|y the ma|
|00002a10| 6b 65 66 69 6c 65 20 73 | 69 6d 70 6c 79 20 63 61 |kefile s|imply ca|
|00002a20| 74 73 20 74 68 65 20 2e | 6f 20 66 69 6c 65 20 74 |ts the .|o file t|
|00002a30| 6f 20 74 68 65 20 74 65 | 72 6d 69 6e 61 6c 0a 58 |o the te|rminal.X|
|00002a40| 09 77 68 69 63 68 20 63 | 61 6e 20 62 65 20 75 73 |.which c|an be us|
|00002a50| 65 64 20 61 73 20 61 20 | 6c 61 73 74 20 72 65 73 |ed as a |last res|
|00002a60| 6f 72 74 2e 0a 58 0a 58 | 09 41 62 75 73 65 20 6f |ort..X.X|.Abuse o|
|00002a70| 66 20 74 68 65 20 72 75 | 6c 65 73 20 77 69 6e 6e |f the ru|les winn|
|00002a80| 65 72 73 20 75 73 75 61 | 6c 6c 79 20 72 65 73 75 |ers usua|lly resu|
|00002a90| 6c 74 20 69 6e 20 61 20 | 63 68 61 6e 67 65 20 6f |lt in a |change o|
|00002aa0| 66 20 74 68 65 0a 58 09 | 72 75 6c 65 73 2e 20 20 |f the.X.|rules.  |
|00002ab0| 53 74 61 72 74 69 6e 67 | 20 69 6e 20 31 39 39 30 |Starting| in 1990|
|00002ac0| 2c 20 63 6f 6d 70 69 6c | 69 6e 67 20 65 6e 74 72 |, compil|ing entr|
|00002ad0| 69 65 73 20 6d 75 73 74 | 20 72 65 73 75 6c 74 20 |ies must| result |
|00002ae0| 61 6e 0a 58 09 72 65 67 | 75 6c 61 72 20 66 69 6c |an.X.reg|ular fil|
|00002af0| 65 20 77 68 69 63 68 20 | 63 61 6e 20 62 65 20 65 |e which |can be e|
|00002b00| 78 65 63 75 74 65 64 2e | 0a 58 0a 58 53 65 6c 65 |xecuted.|.X.XSele|
|00002b10| 63 74 65 64 20 6e 6f 74 | 65 73 20 66 72 6f 6d 20 |cted not|es from |
|00002b20| 74 68 65 20 61 75 74 68 | 6f 72 3a 0a 58 0a 58 09 |the auth|or:.X.X.|
|00002b30| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 69 73 20 |This pro|gram is |
|00002b40| 28 73 75 70 70 6f 73 65 | 64 6c 79 29 20 74 68 65 |(suppose|dly) the|
|00002b50| 20 73 6d 61 6c 6c 65 73 | 74 20 43 20 70 72 6f 67 | smalles|t C prog|
|00002b60| 72 61 6d 20 61 62 6c 65 | 20 74 6f 0a 58 09 70 72 |ram able| to.X.pr|
|00002b70| 69 6e 74 20 22 48 65 6c | 6c 6f 20 77 6f 72 6c 64 |int "Hel|lo world|
|00002b80| 2e 22 2e 20 54 68 65 20 | 63 6f 6d 70 69 6c 61 74 |.". The |compilat|
|00002b90| 69 6f 6e 20 69 74 73 65 | 6c 66 20 70 72 6f 64 75 |ion itse|lf produ|
|00002ba0| 63 65 73 20 74 68 65 0a | 58 09 64 65 73 69 72 65 |ces the.|X.desire|
|00002bb0| 64 20 70 72 69 6e 74 6f | 75 74 20 61 6e 64 20 74 |d printo|ut and t|
|00002bc0| 68 65 20 70 72 6f 67 72 | 61 6d 20 6e 65 65 64 20 |he progr|am need |
|00002bd0| 6e 6f 74 20 62 65 20 61 | 63 74 75 61 6c 6c 79 20 |not be a|ctually |
|00002be0| 72 75 6e 2e 0a 2f 2f 45 | 2a 4f 2a 46 20 31 39 38 |run..//E|*O*F 198|
|00002bf0| 39 2f 6a 61 72 2e 31 2e | 68 69 6e 74 2f 2f 0a 0a |9/jar.1.|hint//..|
|00002c00| 65 63 68 6f 20 78 20 2d | 20 31 39 38 39 2f 6a 61 |echo x -| 1989/ja|
|00002c10| 72 2e 31 2e 6f 72 69 67 | 2e 63 0a 73 65 64 20 2d |r.1.orig|.c.sed -|
|00002c20| 65 20 27 73 2f 5e 58 2f | 2f 27 20 3e 20 22 31 39 |e 's/^X/|/' > "19|
|00002c30| 38 39 2f 6a 61 72 2e 31 | 2e 6f 72 69 67 2e 63 22 |89/jar.1|.orig.c"|
|00002c40| 20 3c 3c 20 27 2f 2f 45 | 2a 4f 2a 46 20 31 39 38 | << '//E|*O*F 198|
|00002c50| 39 2f 6a 61 72 2e 31 2e | 6f 72 69 67 2e 63 2f 2f |9/jar.1.|orig.c//|
|00002c60| 27 0a 58 63 68 61 72 2a | 48 65 3d 22 6c 6c 6f 20 |'.Xchar*|He="llo |
|00002c70| 77 6f 72 6c 64 2e 5c 6e | 22 3b 0a 2f 2f 45 2a 4f |world.\n|";.//E*O|
|00002c80| 2a 46 20 31 39 38 39 2f | 6a 61 72 2e 31 2e 6f 72 |*F 1989/|jar.1.or|
|00002c90| 69 67 2e 63 2f 2f 0a 0a | 65 63 68 6f 20 78 20 2d |ig.c//..|echo x -|
|00002ca0| 20 31 39 38 39 2f 6a 61 | 72 2e 31 2e 6f 72 69 67 | 1989/ja|r.1.orig|
|00002cb0| 2e 73 68 0a 73 65 64 20 | 2d 65 20 27 73 2f 5e 58 |.sh.sed |-e 's/^X|
|00002cc0| 2f 2f 27 20 3e 20 22 31 | 39 38 39 2f 6a 61 72 2e |//' > "1|989/jar.|
|00002cd0| 31 2e 6f 72 69 67 2e 73 | 68 22 20 3c 3c 20 27 2f |1.orig.s|h" << '/|
|00002ce0| 2f 45 2a 4f 2a 46 20 31 | 39 38 39 2f 6a 61 72 2e |/E*O*F 1|989/jar.|
|00002cf0| 31 2e 6f 72 69 67 2e 73 | 68 2f 2f 27 0a 58 3a 0a |1.orig.s|h//'.X:.|
|00002d00| 58 23 20 27 72 75 6e 27 | 20 6a 61 72 2e 31 2e 6f |X# 'run'| jar.1.o|
|00002d10| 72 69 67 0a 58 0a 58 23 | 20 72 75 6e 2f 63 6f 6d |rig.X.X#| run/com|
|00002d20| 70 69 6c 65 20 69 74 0a | 58 72 6d 20 2d 66 20 6a |pile it.|Xrm -f j|
|00002d30| 61 72 2e 31 2e 6f 72 69 | 67 2e 6f 0a 58 63 63 20 |ar.1.ori|g.o.Xcc |
|00002d40| 6a 61 72 2e 31 2e 6f 72 | 69 67 2e 63 20 2d 63 0a |jar.1.or|ig.c -c.|
|00002d50| 58 63 61 74 20 6a 61 72 | 2e 31 2e 6f 72 69 67 2e |Xcat jar|.1.orig.|
|00002d60| 6f 0a 58 72 6d 20 2d 66 | 20 6a 61 72 2e 31 2e 6f |o.Xrm -f| jar.1.o|
|00002d70| 72 69 67 2e 6f 0a 2f 2f | 45 2a 4f 2a 46 20 31 39 |rig.o.//|E*O*F 19|
|00002d80| 38 39 2f 6a 61 72 2e 31 | 2e 6f 72 69 67 2e 73 68 |89/jar.1|.orig.sh|
|00002d90| 2f 2f 0a 0a 65 63 68 6f | 20 78 20 2d 20 31 39 38 |//..echo| x - 198|
|00002da0| 39 2f 6a 61 72 2e 31 2e | 73 68 0a 73 65 64 20 2d |9/jar.1.|sh.sed -|
|00002db0| 65 20 27 73 2f 5e 58 2f | 2f 27 20 3e 20 22 31 39 |e 's/^X/|/' > "19|
|00002dc0| 38 39 2f 6a 61 72 2e 31 | 2e 73 68 22 20 3c 3c 20 |89/jar.1|.sh" << |
|00002dd0| 27 2f 2f 45 2a 4f 2a 46 | 20 31 39 38 39 2f 6a 61 |'//E*O*F| 1989/ja|
|00002de0| 72 2e 31 2e 73 68 2f 2f | 27 0a 58 3a 0a 58 23 20 |r.1.sh//|'.X:.X# |
|00002df0| 27 72 75 6e 27 20 6a 61 | 72 2e 31 0a 58 0a 58 23 |'run' ja|r.1.X.X#|
|00002e00| 20 72 75 6e 2f 63 6f 6d | 70 69 6c 65 20 69 74 0a | run/com|pile it.|
|00002e10| 58 72 6d 20 2d 66 20 6a | 61 72 2e 31 2e 6f 0a 58 |Xrm -f j|ar.1.o.X|
|00002e20| 63 63 20 6a 61 72 2e 31 | 2e 63 20 2d 63 0a 58 63 |cc jar.1|.c -c.Xc|
|00002e30| 61 74 20 6a 61 72 2e 31 | 2e 6f 0a 58 72 6d 20 2d |at jar.1|.o.Xrm -|
|00002e40| 66 20 6a 61 72 2e 31 2e | 6f 0a 2f 2f 45 2a 4f 2a |f jar.1.|o.//E*O*|
|00002e50| 46 20 31 39 38 39 2f 6a | 61 72 2e 31 2e 73 68 2f |F 1989/j|ar.1.sh/|
|00002e60| 2f 0a 0a 65 63 68 6f 20 | 78 20 2d 20 31 39 38 39 |/..echo |x - 1989|
|00002e70| 2f 6a 61 72 2e 32 2e 63 | 0a 73 65 64 20 2d 65 20 |/jar.2.c|.sed -e |
|00002e80| 27 73 2f 5e 58 2f 2f 27 | 20 3e 20 22 31 39 38 39 |'s/^X//'| > "1989|
|00002e90| 2f 6a 61 72 2e 32 2e 63 | 22 20 3c 3c 20 27 2f 2f |/jar.2.c|" << '//|
|00002ea0| 45 2a 4f 2a 46 20 31 39 | 38 39 2f 6a 61 72 2e 32 |E*O*F 19|89/jar.2|
|00002eb0| 2e 63 2f 2f 27 0a 58 23 | 64 65 66 69 6e 65 20 64 |.c//'.X#|define d|
|00002ec0| 20 64 65 66 69 6e 65 0a | 58 23 64 20 61 20 69 6e | define.|X#d a in|
|00002ed0| 63 6c 75 64 65 0a 58 23 | 61 20 3c 73 74 64 69 6f |clude.X#|a <stdio|
|00002ee0| 2e 68 3e 0a 58 23 61 20 | 3c 73 74 72 69 6e 67 2e |.h>.X#a |<string.|
|00002ef0| 68 3e 0a 58 23 61 20 3c | 63 74 79 70 65 2e 68 3e |h>.X#a <|ctype.h>|
|00002f00| 0a 58 23 64 20 70 20 63 | 68 61 72 2a 0a 58 23 64 |.X#d p c|har*.X#d|
|00002f10| 20 50 20 2c 28 70 29 0a | 58 23 64 20 54 28 45 29 | P ,(p).|X#d T(E)|
|00002f20| 20 21 73 74 72 63 6d 70 | 28 45 2c 22 28 29 22 29 | !strcmp|(E,"()")|
|00002f30| 0a 58 23 64 20 55 20 72 | 65 74 75 72 6e 0a 58 23 |.X#d U r|eturn.X#|
|00002f40| 64 20 57 20 77 68 69 6c | 65 0a 58 23 64 20 58 20 |d W whil|e.X#d X |
|00002f50| 73 62 72 6b 28 31 39 39 | 29 0a 58 23 64 20 7a 20 |sbrk(199|).X#d z |
|00002f60| 61 74 6f 66 0a 58 23 64 | 20 65 20 69 73 73 70 61 |atof.X#d| e isspa|
|00002f70| 63 65 0a 58 23 64 20 44 | 20 41 28 5f 29 0a 58 23 |ce.X#d D| A(_).X#|
|00002f80| 64 20 45 20 53 28 43 28 | 5f 29 29 0a 58 23 64 20 |d E S(C(|_)).X#d |
|00002f90| 42 28 79 29 20 70 20 79 | 28 5f 29 70 20 5f 3b 7b |B(y) p y|(_)p _;{|
|00002fa0| 0a 58 23 64 20 47 28 79 | 2c 56 29 20 42 28 79 29 |.X#d G(y|,V) B(y)|
|00002fb0| 70 20 69 3b 55 20 73 70 | 72 69 6e 74 66 28 69 3d |p i;U sp|rintf(i=|
|00002fc0| 58 2c 22 25 6c 66 22 2c | 7a 28 45 29 56 20 7a 28 |X,"%lf",|z(E)V z(|
|00002fd0| 53 28 43 28 44 29 29 29 | 29 2c 69 3b 7d 0a 58 0a |S(C(D)))|),i;}.X.|
|00002fe0| 58 09 20 20 20 20 70 20 | 73 62 72 6b 28 29 2c 2a |X.    p |sbrk(),*|
|00002ff0| 53 28 29 2c 2a 6a 28 29 | 2c 2a 4f 2c 2a 48 3b 4b |S(),*j()|,*O,*H;K|
|00003000| 2c 59 2c 4d 3d 31 34 3b | 64 6f 75 62 6c 65 0a 58 |,Y,M=14;|double.X|
|00003010| 09 20 20 7a 28 29 3b 51 | 28 5f 29 70 20 5f 3b 7b |.  z();Q|(_)p _;{|
|00003020| 69 6e 74 20 56 3d 30 3b | 57 28 65 28 2a 5f 29 29 |int V=0;|W(e(*_))|
|00003030| 5f 2b 2b 3b 48 3d 5f 3b | 57 28 56 7c 21 28 65 0a |_++;H=_;|W(V|!(e.|
|00003040| 58 09 28 2a 48 29 7c 2a | 48 3d 3d 27 29 27 7c 7c |X.(*H)|*|H==')'|||
|00003050| 28 2a 48 3d 3d 27 28 27 | 26 26 48 2d 5f 29 29 29 |(*H=='('|&&H-_)))|
|00003060| 56 2b 3d 28 2a 48 3d 3d | 27 28 27 29 2d 28 2a 48 |V+=(*H==|'(')-(*H|
|00003070| 3d 3d 0a 58 20 20 20 20 | 20 20 27 29 27 29 2c 48 |==.X    |  ')'),H|
|00003080| 2b 2b 3b 55 20 48 2d 5f | 3b 7d 42 28 43 29 55 20 |++;U H-_|;}B(C)U |
|00003090| 5f 2b 2b 2c 59 3d 51 28 | 5f 29 2c 5f 3d 73 74 72 |_++,Y=Q(|_),_=str|
|000030a0| 6e 63 70 79 28 58 2c 5f | 2c 59 29 2c 5f 5b 0a 58 |ncpy(X,_|,Y),_[.X|
|000030b0| 20 20 20 20 59 5d 3d 30 | 2c 5f 3b 7d 42 28 41 29 |    Y]=0|,_;}B(A)|
|000030c0| 5f 2b 2b 2c 5f 2b 3d 51 | 28 5f 29 3b 57 28 65 28 |_++,_+=Q|(_);W(e(|
|000030d0| 2a 5f 29 29 5f 2b 2b 3b | 55 20 4f 3d 58 2c 2a 4f |*_))_++;|U O=X,*O|
|000030e0| 3d 27 28 27 2c 73 74 72 | 63 70 79 28 0a 58 20 20 |='(',str|cpy(.X  |
|000030f0| 4f 2b 31 2c 5f 29 2c 4f | 3b 7d 42 28 5a 29 55 20 |O+1,_),O|;}B(Z)U |
|00003100| 5f 3b 7d 42 28 63 29 55 | 20 43 28 45 29 3b 7d 42 |_;}B(c)U| C(E);}B|
|00003110| 28 71 29 55 20 41 28 45 | 29 3b 7d 42 28 74 29 70 |(q)U A(E|);}B(t)p|
|00003120| 20 69 3d 45 3b 55 20 48 | 3d 53 28 43 0a 58 28 44 | i=E;U H|=S(C.X(D|
|00003130| 29 29 2c 73 70 72 69 6e | 74 66 28 4f 3d 58 2c 54 |)),sprin|tf(O=X,T|
|00003140| 28 48 09 09 20 20 20 20 | 20 20 20 20 20 29 3f 22 |(H..    |     )?"|
|00003150| 28 25 73 29 22 3a 22 28 | 25 73 20 25 73 22 2c 69 |(%s)":"(|%s %s",i|
|00003160| 2c 48 2b 31 29 0a 58 0a | 58 09 20 20 20 20 20 2c |,H+1).X.|X.     ,|
|00003170| 4f 3b 7d 42 28 46 29 55 | 20 53 28 43 28 41 28 54 |O;}B(F)U| S(C(A(T|
|00003180| 28 45 29 3f 44 3a 5f 29 | 29 29 3b 7d 4c 28 69 2c |(E)?D:_)|));}L(i,|
|00003190| 73 29 70 0a 58 0a 58 69 | 2c 2a 73 3b 7b 55 20 69 |s)p.X.Xi|,*s;{U i|
|000031a0| 73 64 69 67 69 74 28 2a | 69 29 09 09 3f 20 20 20 |sdigit(*|i)..?   |
|000031b0| 20 20 20 20 20 20 7a 28 | 69 29 21 3d 7a 28 73 29 |      z(|i)!=z(s)|
|000031c0| 3a 73 74 72 63 6d 70 28 | 69 2c 73 29 3b 7d 0a 58 |:strcmp(|i,s);}.X|
|000031d0| 20 20 42 28 62 29 55 20 | 4c 28 45 2c 53 28 43 28 |  B(b)U |L(E,S(C(|
|000031e0| 44 29 29 29 3f 22 28 29 | 22 3a 22 74 22 3b 7d 42 |D)))?"()|":"t";}B|
|000031f0| 28 52 29 55 20 45 3b 7d | 42 28 6f 29 55 20 7a 28 |(R)U E;}|B(o)U z(|
|00003200| 45 29 3c 7a 28 53 28 43 | 28 44 29 29 29 3f 0a 58 |E)<z(S(C|(D)))?.X|
|00003210| 20 20 20 20 22 74 22 3a | 22 28 29 22 3b 7d 47 28 |    "t":|"()";}G(|
|00003220| 66 2c 2b 29 47 28 67 2c | 2d 29 47 28 68 2c 2a 29 |f,+)G(g,|-)G(h,*)|
|00003230| 70 20 72 5b 34 5d 5b 32 | 5d 3d 7b 22 66 75 6e 63 |p r[4][2|]={"func|
|00003240| 74 69 6f 6e 22 20 20 20 | 50 20 52 2c 0a 58 20 20 |tion"   |P R,.X  |
|00003250| 20 20 20 20 22 71 75 6f | 74 65 22 50 20 43 2c 22 |    "quo|te"P C,"|
|00003260| 6c 61 6d 62 64 61 22 50 | 20 5a 2c 22 64 65 66 75 |lambda"P| Z,"defu|
|00003270| 6e 22 50 20 6a 7d 3b 42 | 28 6a 29 55 20 72 5b 4d |n"P j};B|(j)U r[M|
|00003280| 5d 5b 31 5d 3d 44 2c 2a | 0a 58 09 72 5b 4d 2b 2b |][1]=D,*|.X.r[M++|
|00003290| 5d 3d 43 28 5f 29 3b 7d | 70 20 6e 6f 74 5b 39 39 |]=C(_);}|p not[99|
|000032a0| 5d 5b 32 5d 3d 7b 22 69 | 66 22 50 20 46 2c 22 65 |][2]={"i|f"P F,"e|
|000032b0| 71 75 61 6c 22 50 20 62 | 2c 22 3c 22 0a 58 09 20 |qual"P b|,"<".X. |
|000032c0| 20 50 20 6f 2c 22 2b 22 | 50 20 66 2c 22 2d 22 50 | P o,"+"|P f,"-"P|
|000032d0| 20 67 2c 22 2a 22 50 20 | 68 2c 22 63 61 72 22 50 | g,"*"P |h,"car"P|
|000032e0| 20 63 2c 22 63 64 72 22 | 50 20 71 2c 0a 58 09 20 | c,"cdr"|P q,.X. |
|000032f0| 20 20 20 22 63 6f 6e 73 | 22 50 20 74 2c 22 74 22 |   "cons|"P t,"t"|
|00003300| 2c 22 74 22 7d 3b 42 28 | 53 29 69 6e 74 20 4c 69 |,"t"};B(|S)int Li|
|00003310| 2c 73 3b 70 20 75 3b 69 | 66 28 0a 58 09 20 20 20 |,s;p u;i|f(.X.   |
|00003320| 20 20 20 69 73 64 69 67 | 69 74 28 2a 5f 29 7c 54 |   isdig|it(*_)|T|
|00003330| 28 5f 29 29 55 20 5f 3b | 66 6f 72 28 59 3d 4d 3b |(_))U _;|for(Y=M;|
|00003340| 59 2d 2d 3b 29 0a 58 09 | 09 69 66 28 21 73 74 72 |Y--;).X.|.if(!str|
|00003350| 63 6d 70 28 5f 2c 2a 72 | 5b 59 5d 29 29 55 20 72 |cmp(_,*r|[Y]))U r|
|00003360| 5b 59 5d 5b 31 5d 0a 58 | 09 20 20 20 20 20 20 3b |[Y][1].X|.      ;|
|00003370| 75 3d 45 2c 5f 3d 44 3b | 69 66 28 2a 75 2d 27 28 |u=E,_=D;|if(*u-'(|
|00003380| 27 29 55 28 2a 28 28 70 | 28 2a 29 28 29 29 75 29 |')U(*((p|(*)())u)|
|00003390| 0a 58 09 20 20 20 20 29 | 28 5f 29 3b 73 3d 4c 69 |.X.    )|(_);s=Li|
|000033a0| 3d 4d 3b 57 28 21 54 28 | 5f 29 29 72 5b 4d 5d 5b |=M;W(!T(|_))r[M][|
|000033b0| 31 5d 3d 45 2c 2a 72 5b | 4d 2b 2b 5d 0a 58 09 3d |1]=E,*r[|M++].X.=|
|000033c0| 22 22 2c 5f 3d 44 3b 4f | 3d 43 28 75 29 3b 57 28 |"",_=D;O|=C(u);W(|
|000033d0| 21 54 28 4f 29 29 2a 72 | 5b 4c 69 2b 2b 5d 3d 43 |!T(O))*r|[Li++]=C|
|000033e0| 28 4f 29 2c 4f 3d 41 28 | 4f 29 3b 55 20 4f 3d 53 |(O),O=A(|O);U O=S|
|000033f0| 0a 58 20 20 20 20 28 43 | 28 41 28 75 29 29 29 2c |.X    (C|(A(u))),|
|00003400| 4d 3d 73 2c 4f 3b 7d 6d | 61 69 6e 28 29 7b 48 3d |M=s,O;}m|ain(){H=|
|00003410| 4f 3d 58 2c 59 3d 30 3b | 57 28 59 7c 21 65 28 4b |O=X,Y=0;|W(Y|!e(K|
|00003420| 3d 67 65 74 63 68 61 72 | 28 29 29 29 4b 3d 3d 0a |=getchar|()))K==.|
|00003430| 58 20 20 20 20 45 4f 46 | 3f 65 78 69 74 28 30 29 |X    EOF|?exit(0)|
|00003440| 3a 30 2c 59 2b 3d 28 4b | 3d 3d 27 28 27 29 2d 28 |:0,Y+=(K|=='(')-(|
|00003450| 4b 3d 3d 27 29 27 29 2c | 2a 48 2b 2b 3d 4b 3b 2a |K==')'),|*H++=K;*|
|00003460| 48 3d 30 2c 70 75 74 73 | 28 53 28 4f 29 29 0a 58 |H=0,puts|(S(O)).X|
|00003470| 09 09 09 09 2c 0a 58 20 | 09 09 6d 61 69 6e 28 29 |....,.X |..main()|
|00003480| 3b 7b 70 72 69 6e 74 66 | 28 22 58 4c 49 53 50 20 |;{printf|("XLISP |
|00003490| 34 2e 30 5c 6e 22 29 3b | 7d 7d 0a 2f 2f 45 2a 4f |4.0\n");|}}.//E*O|
|000034a0| 2a 46 20 31 39 38 39 2f | 6a 61 72 2e 32 2e 63 2f |*F 1989/|jar.2.c/|
|000034b0| 2f 0a 0a 65 63 68 6f 20 | 78 20 2d 20 31 39 38 39 |/..echo |x - 1989|
|000034c0| 2f 6a 61 72 2e 32 2e 68 | 69 6e 74 0a 73 65 64 20 |/jar.2.h|int.sed |
|000034d0| 2d 65 20 27 73 2f 5e 58 | 2f 2f 27 20 3e 20 22 31 |-e 's/^X|//' > "1|
|000034e0| 39 38 39 2f 6a 61 72 2e | 32 2e 68 69 6e 74 22 20 |989/jar.|2.hint" |
|000034f0| 3c 3c 20 27 2f 2f 45 2a | 4f 2a 46 20 31 39 38 39 |<< '//E*|O*F 1989|
|00003500| 2f 6a 61 72 2e 32 2e 68 | 69 6e 74 2f 2f 27 0a 58 |/jar.2.h|int//'.X|
|00003510| 42 65 73 74 20 6f 66 20 | 73 68 6f 77 3a 20 3c 2e |Best of |show: <.|
|00003520| 2e 2e 21 75 75 6e 65 74 | 21 6d 63 76 61 78 21 68 |..!uunet|!mcvax!h|
|00003530| 75 74 63 73 21 6a 61 72 | 3e 20 4a 61 72 69 20 41 |utcs!jar|> Jari A|
|00003540| 72 6b 6b 6f 2c 20 4f 72 | 61 20 4c 61 73 73 69 6c |rkko, Or|a Lassil|
|00003550| 61 2c 20 45 73 6b 6f 20 | 4e 75 75 74 69 6c 61 0a |a, Esko |Nuutila.|
|00003560| 58 0a 58 09 4a 61 72 69 | 20 41 72 6b 6b 6f 2c 20 |X.X.Jari| Arkko, |
|00003570| 4f 72 61 20 4c 61 73 73 | 69 6c 61 2c 20 45 73 6b |Ora Lass|ila, Esk|
|00003580| 6f 20 4e 75 75 74 69 6c | 61 0a 58 09 4c 61 62 6f |o Nuutil|a.X.Labo|
|00003590| 72 61 74 6f 72 79 20 6f | 66 20 49 6e 66 6f 72 6d |ratory o|f Inform|
|000035a0| 61 74 69 6f 6e 20 50 72 | 6f 63 65 73 73 69 6e 67 |ation Pr|ocessing|
|000035b0| 20 53 63 69 65 6e 63 65 | 0a 58 09 48 65 6c 73 69 | Science|.X.Helsi|
|000035c0| 6e 6b 69 20 55 6e 69 76 | 65 72 73 69 74 79 20 6f |nki Univ|ersity o|
|000035d0| 66 20 54 65 63 68 6e 6f | 6c 6f 67 79 0a 58 09 4f |f Techno|logy.X.O|
|000035e0| 74 61 6b 61 61 72 69 20 | 31 0a 58 09 30 32 31 35 |takaari |1.X.0215|
|000035f0| 30 20 45 73 70 6f 6f 0a | 58 09 46 69 6e 6c 61 6e |0 Espoo.|X.Finlan|
|00003600| 64 0a 58 0a 58 4a 75 64 | 67 65 73 20 6e 6f 74 65 |d.X.XJud|ges note|
|00003610| 73 3a 0a 58 0a 58 09 54 | 68 69 73 20 69 73 20 74 |s:.X.X.T|his is t|
|00003620| 68 65 20 6d 6f 73 74 20 | 75 73 65 66 75 6c 20 70 |he most |useful p|
|00003630| 72 6f 67 72 61 6d 20 65 | 6e 74 65 72 65 64 20 74 |rogram e|ntered t|
|00003640| 68 69 73 20 79 65 61 72 | 2e 20 49 74 20 69 73 20 |his year|. It is |
|00003650| 61 0a 58 09 72 61 74 68 | 65 72 20 6c 61 72 67 65 |a.X.rath|er large|
|00003660| 20 73 75 62 73 65 74 20 | 6f 66 20 6c 69 73 70 2e | subset |of lisp.|
|00003670| 20 20 49 74 20 68 61 73 | 20 6e 6f 20 65 72 72 6f |  It has| no erro|
|00003680| 72 20 72 65 63 6f 76 65 | 72 79 2c 20 61 6e 64 0a |r recove|ry, and.|
|00003690| 58 09 70 65 72 66 6f 72 | 6d 73 20 72 61 74 68 65 |X.perfor|ms rathe|
|000036a0| 72 20 70 6f 6f 72 6c 79 | 20 69 6e 20 61 20 6e 75 |r poorly| in a nu|
|000036b0| 6d 62 65 72 20 6f 66 20 | 63 61 73 65 73 2e 20 20 |mber of |cases.  |
|000036c0| 45 76 65 6e 20 73 6f 2c | 20 70 6c 61 63 69 6e 67 |Even so,| placing|
|000036d0| 0a 58 09 61 6c 6c 20 74 | 68 69 73 20 66 75 6e 63 |.X.all t|his func|
|000036e0| 74 69 6f 6e 61 6c 69 74 | 79 20 69 6e 20 73 75 63 |tionalit|y in suc|
|000036f0| 68 20 61 20 73 6d 61 6c | 6c 2c 20 64 65 6e 73 65 |h a smal|l, dense|
|00003700| 6c 79 20 70 61 63 6b 65 | 64 20 70 72 6f 67 72 61 |ly packe|d progra|
|00003710| 6d 2c 0a 58 09 69 73 20 | 69 6d 70 72 65 73 73 69 |m,.X.is |impressi|
|00003720| 76 65 20 65 6e 6f 75 67 | 68 20 74 6f 20 77 69 6e |ve enoug|h to win|
|00003730| 20 74 68 65 20 42 65 73 | 74 20 6f 66 20 73 68 6f | the Bes|t of sho|
|00003740| 77 20 61 77 61 72 64 2e | 0a 58 0a 58 53 65 6c 65 |w award.|.X.XSele|
|00003750| 63 74 65 64 20 6e 6f 74 | 65 73 20 66 72 6f 6d 20 |cted not|es from |
|00003760| 74 68 65 20 61 75 74 68 | 6f 72 3a 0a 58 0a 58 09 |the auth|or:.X.X.|
|00003770| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 69 6d 70 |This pro|gram imp|
|00003780| 6c 65 6d 65 6e 74 73 20 | 61 20 4c 69 73 70 20 69 |lements |a Lisp i|
|00003790| 6e 74 65 72 70 72 65 74 | 65 72 20 69 6e 20 31 34 |nterpret|er in 14|
|000037a0| 36 35 20 62 79 74 65 73 | 20 6f 66 20 73 6f 75 72 |65 bytes| of sour|
|000037b0| 63 65 2e 0a 58 09 53 6f | 6d 65 20 73 6f 70 68 69 |ce..X.So|me sophi|
|000037c0| 73 74 69 63 61 74 65 64 | 20 66 65 61 74 75 72 65 |sticated| feature|
|000037d0| 73 20 73 75 70 70 6f 72 | 74 65 64 2c 20 65 67 2e |s suppor|ted, eg.|
|000037e0| 20 66 75 6e 63 74 69 6f | 6e 61 6c 73 20 61 6e 64 | functio|nals and|
|000037f0| 20 72 65 63 75 72 73 69 | 6f 6e 2e 20 20 0a 58 09 | recursi|on.  .X.|
|00003800| 54 68 65 20 73 70 65 63 | 69 61 6c 2d 66 6f 72 6d |The spec|ial-form|
|00003810| 73 2f 66 75 6e 63 74 69 | 6f 6e 73 2f 76 61 72 69 |s/functi|ons/vari|
|00003820| 61 62 6c 65 73 20 69 6d | 70 6c 65 6d 65 6e 74 65 |ables im|plemente|
|00003830| 64 20 61 72 65 3a 0a 58 | 09 0a 58 09 09 2b 09 2d |d are:.X|..X..+.-|
|00003840| 09 2a 09 3c 09 28 29 09 | 0a 58 09 09 63 61 72 09 |.*.<.().|.X..car.|
|00003850| 63 64 72 09 63 6f 6e 73 | 09 64 65 66 75 6e 09 65 |cdr.cons|.defun.e|
|00003860| 71 75 61 6c 0a 58 09 09 | 66 75 6e 63 74 69 6f 6e |qual.X..|function|
|00003870| 20 69 66 09 6c 61 6d 62 | 64 61 09 71 75 6f 74 65 | if.lamb|da.quote|
|00003880| 09 74 0a 58 09 0a 58 09 | 42 65 6c 6f 77 20 61 72 |.t.X..X.|Below ar|
|00003890| 65 20 73 61 6d 70 6c 65 | 20 6c 69 73 70 20 65 78 |e sample| lisp ex|
|000038a0| 70 72 65 73 73 69 6f 6e | 73 20 79 6f 75 20 6d 69 |pression|s you mi|
|000038b0| 67 68 74 20 63 68 6f 6f | 73 65 20 74 6f 20 74 72 |ght choo|se to tr|
|000038c0| 79 20 61 73 20 69 6e 70 | 75 74 2e 0a 58 09 54 68 |y as inp|ut..X.Th|
|000038d0| 65 20 70 72 6f 67 72 61 | 6d 20 69 6d 70 6c 65 6d |e progra|m implem|
|000038e0| 65 6e 74 73 20 61 20 63 | 6f 6e 76 65 6e 74 69 6f |ents a c|onventio|
|000038f0| 6e 61 6c 20 6c 69 73 70 | 20 6c 69 73 74 65 6e 65 |nal lisp| listene|
|00003900| 72 2c 20 69 2e 65 2e 20 | 79 6f 75 20 74 79 70 65 |r, i.e. |you type|
|00003910| 20 69 6e 0a 58 09 6c 69 | 73 70 20 65 78 70 72 65 | in.X.li|sp expre|
|00003920| 73 73 69 6f 6e 73 20 28 | 66 6f 6c 6c 6f 77 65 64 |ssions (|followed|
|00003930| 20 62 79 20 43 52 29 2c | 20 74 68 65 20 70 72 6f | by CR),| the pro|
|00003940| 67 72 61 6d 20 65 76 61 | 6c 75 61 74 65 73 20 74 |gram eva|luates t|
|00003950| 68 65 6d 20 61 6e 64 0a | 58 09 70 72 69 6e 74 73 |hem and.|X.prints|
|00003960| 20 6f 75 74 20 74 68 65 | 20 72 65 74 75 72 6e 20 | out the| return |
|00003970| 76 61 6c 75 65 73 2e 20 | 45 6e 64 20 65 78 65 63 |values. |End exec|
|00003980| 75 74 69 6f 6e 20 62 79 | 20 74 79 70 69 6e 67 20 |ution by| typing |
|00003990| 61 6e 20 65 6e 64 2d 6f | 66 2d 66 69 6c 65 0a 58 |an end-o|f-file.X|
|000039a0| 09 63 68 61 72 61 63 74 | 65 72 2e 0a 58 09 0a 58 |.charact|er..X..X|
|000039b0| 09 28 2b 20 32 2e 35 20 | 33 2e 31 29 0a 58 09 28 |.(+ 2.5 |3.1).X.(|
|000039c0| 64 65 66 75 6e 20 66 69 | 62 20 28 6e 29 0a 58 09 |defun fi|b (n).X.|
|000039d0| 20 20 20 28 69 66 20 28 | 3c 20 6e 20 32 29 0a 58 |   (if (|< n 2).X|
|000039e0| 09 20 20 20 20 20 20 20 | 31 0a 58 09 20 20 20 20 |.       |1.X.    |
|000039f0| 20 20 20 28 2b 20 28 66 | 69 62 20 28 2d 20 6e 20 |   (+ (f|ib (- n |
|00003a00| 32 29 29 20 28 66 69 62 | 20 28 2d 20 6e 20 31 29 |2)) (fib| (- n 1)|
|00003a10| 29 29 29 29 0a 58 09 28 | 66 69 62 20 31 30 29 0a |)))).X.(|fib 10).|
|00003a20| 58 09 28 64 65 66 75 6e | 20 21 20 28 78 29 20 28 |X.(defun| ! (x) (|
|00003a30| 69 66 20 28 65 71 75 61 | 6c 20 78 20 30 29 20 31 |if (equa|l x 0) 1|
|00003a40| 20 28 2a 20 78 20 28 21 | 20 28 2d 20 78 20 31 29 | (* x (!| (- x 1)|
|00003a50| 29 29 29 29 0a 58 09 28 | 21 20 37 29 0a 58 09 28 |)))).X.(|! 7).X.(|
|00003a60| 64 65 66 75 6e 20 66 6e | 31 20 28 66 6e 29 20 28 |defun fn|1 (fn) (|
|00003a70| 2b 20 28 66 6e 20 31 20 | 32 29 20 28 66 6e 20 33 |+ (fn 1 |2) (fn 3|
|00003a80| 20 34 29 29 29 0a 58 09 | 28 64 65 66 75 6e 20 66 | 4))).X.|(defun f|
|00003a90| 6e 32 20 28 61 20 62 29 | 20 28 2b 20 61 20 62 29 |n2 (a b)| (+ a b)|
|00003aa0| 29 0a 58 09 28 66 6e 31 | 20 28 66 75 6e 63 74 69 |).X.(fn1| (functi|
|00003ab0| 6f 6e 20 2b 29 29 0a 58 | 09 28 66 6e 31 20 28 66 |on +)).X|.(fn1 (f|
|00003ac0| 75 6e 63 74 69 6f 6e 20 | 66 6e 32 29 29 0a 58 09 |unction |fn2)).X.|
|00003ad0| 28 66 6e 31 20 28 66 75 | 6e 63 74 69 6f 6e 20 28 |(fn1 (fu|nction (|
|00003ae0| 6c 61 6d 62 64 61 20 28 | 7a 31 20 7a 32 29 20 28 |lambda (|z1 z2) (|
|00003af0| 2b 20 7a 31 20 7a 32 29 | 29 29 29 0a 58 09 28 71 |+ z1 z2)|))).X.(q|
|00003b00| 75 6f 74 65 20 61 29 0a | 58 09 28 63 6f 6e 73 20 |uote a).|X.(cons |
|00003b10| 28 71 75 6f 74 65 20 28 | 61 20 62 29 29 20 28 71 |(quote (|a b)) (q|
|00003b20| 75 6f 74 65 20 28 63 20 | 64 20 65 29 29 29 0a 58 |uote (c |d e))).X|
|00003b30| 09 28 63 6f 6e 73 20 28 | 71 75 6f 74 65 20 28 66 |.(cons (|quote (f|
|00003b40| 29 29 20 28 29 29 0a 58 | 09 28 63 61 72 20 28 71 |)) ()).X|.(car (q|
|00003b50| 75 6f 74 65 20 28 61 20 | 62 20 63 29 29 29 0a 58 |uote (a |b c))).X|
|00003b60| 09 28 63 64 72 20 28 63 | 64 72 20 28 71 75 6f 74 |.(cdr (c|dr (quot|
|00003b70| 65 20 28 67 20 68 20 69 | 29 29 29 29 0a 58 09 0a |e (g h i|)))).X..|
|00003b80| 58 09 50 6c 65 61 73 65 | 20 64 6f 20 6e 6f 74 20 |X.Please| do not |
|00003b90| 6c 65 61 76 65 20 61 6e | 79 20 77 68 69 74 65 73 |leave an|y whites|
|00003ba0| 70 61 63 65 20 62 65 66 | 6f 72 65 20 74 68 65 20 |pace bef|ore the |
|00003bb0| 66 69 72 73 74 20 70 61 | 72 65 6e 74 68 65 73 69 |first pa|renthesi|
|00003bc0| 73 20 77 68 65 6e 0a 58 | 09 79 6f 75 20 74 79 70 |s when.X|.you typ|
|00003bd0| 65 20 79 6f 75 72 20 69 | 6e 70 75 74 2c 20 6f 72 |e your i|nput, or|
|00003be0| 20 61 6e 79 20 6f 74 68 | 65 72 20 75 6e 6e 65 63 | any oth|er unnec|
|00003bf0| 65 73 73 61 72 79 20 77 | 68 69 74 65 73 70 61 63 |essary w|hitespac|
|00003c00| 65 2e 20 50 6c 65 61 73 | 65 20 74 72 79 20 74 6f |e. Pleas|e try to|
|00003c10| 0a 58 09 61 76 6f 69 64 | 20 61 6e 79 20 75 6e 64 |.X.avoid| any und|
|00003c20| 65 66 69 6e 65 64 20 76 | 61 72 69 61 62 6c 65 73 |efined v|ariables|
|00003c30| 20 6f 72 20 66 75 6e 63 | 74 69 6f 6e 73 2c 20 77 | or func|tions, w|
|00003c40| 72 6f 6e 67 20 6e 75 6d | 62 65 72 20 6f 66 20 61 |rong num|ber of a|
|00003c50| 72 67 75 6d 65 6e 74 73 | 0a 58 09 65 74 63 2e 20 |rguments|.X.etc. |
|00003c60| 41 6c 6c 20 74 68 65 73 | 65 20 65 72 72 6f 72 73 |All thes|e errors|
|00003c70| 20 61 72 65 20 6c 69 6b | 65 6c 79 20 74 6f 20 64 | are lik|ely to d|
|00003c80| 75 6d 70 20 63 6f 72 65 | 20 28 69 2e 65 2e 20 74 |ump core| (i.e. t|
|00003c90| 68 65 72 65 20 61 72 65 | 20 6e 6f 20 65 72 72 6f |here are| no erro|
|00003ca0| 72 0a 58 09 63 68 65 63 | 6b 73 20 69 6e 20 74 68 |r.X.chec|ks in th|
|00003cb0| 65 20 70 72 6f 67 72 61 | 6d 29 2e 0a 58 09 0a 58 |e progra|m)..X..X|
|00003cc0| 09 54 72 61 64 69 74 69 | 6f 6e 61 6c 20 4c 69 73 |.Traditi|onal Lis|
|00003cd0| 70 20 69 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e |p implem|entation|
|00003ce0| 73 20 75 73 65 20 63 6f | 6e 73 20 63 65 6c 6c 73 |s use co|ns cells|
|00003cf0| 20 61 73 20 74 68 65 20 | 6d 61 69 6e 20 64 61 74 | as the |main dat|
|00003d00| 61 0a 58 09 73 74 72 75 | 63 74 75 72 65 2e 20 4c |a.X.stru|cture. L|
|00003d10| 69 73 74 73 20 61 72 65 | 20 6f 72 67 61 6e 69 7a |ists are| organiz|
|00003d20| 65 64 20 6f 66 20 70 6f | 69 6e 74 65 72 20 63 68 |ed of po|inter ch|
|00003d30| 61 69 6e 73 20 6f 66 20 | 74 68 65 73 65 20 63 65 |ains of |these ce|
|00003d40| 6c 6c 73 2e 0a 58 09 49 | 6e 20 74 68 69 73 20 70 |lls..X.I|n this p|
|00003d50| 72 6f 67 72 61 6d 2c 20 | 61 6e 20 61 6c 74 65 72 |rogram, |an alter|
|00003d60| 6e 61 74 65 20 72 65 70 | 72 65 73 65 6e 74 61 74 |nate rep|resentat|
|00003d70| 69 6f 6e 20 77 61 73 20 | 63 68 6f 73 65 6e 3a 20 |ion was |chosen: |
|00003d80| 63 68 61 72 2a 27 73 2e | 0a 58 09 41 6c 6c 20 6c |char*'s.|.X.All l|
|00003d90| 69 73 74 20 6f 70 65 72 | 61 74 69 6f 6e 73 2c 20 |ist oper|ations, |
|00003da0| 69 6e 63 6c 75 64 69 6e | 67 20 74 68 65 20 6f 6e |includin|g the on|
|00003db0| 65 73 20 69 6e 20 74 68 | 65 20 69 6e 74 65 72 70 |es in th|e interp|
|00003dc0| 72 65 74 65 72 2c 20 61 | 72 65 0a 58 09 6d 61 64 |reter, a|re.X.mad|
|00003dd0| 65 20 75 73 69 6e 67 20 | 73 74 72 69 6e 67 20 72 |e using |string r|
|00003de0| 65 70 72 65 73 65 6e 74 | 61 74 69 6f 6e 73 20 6f |epresent|ations o|
|00003df0| 66 20 74 68 65 20 6c 69 | 73 74 73 2e 20 54 68 65 |f the li|sts. The|
|00003e00| 73 65 20 6f 70 65 72 61 | 74 69 6f 6e 73 0a 58 09 |se opera|tions.X.|
|00003e10| 6d 75 73 74 20 63 6f 75 | 6e 74 20 70 61 72 65 6e |must cou|nt paren|
|00003e20| 74 68 65 73 65 73 20 61 | 6e 64 20 73 6b 69 70 20 |theses a|nd skip |
|00003e30| 77 68 69 74 65 73 70 61 | 63 65 2e 20 54 68 69 73 |whitespa|ce. This|
|00003e40| 20 6c 65 61 64 73 20 74 | 6f 20 65 78 74 72 65 6d | leads t|o extrem|
|00003e50| 65 6c 79 0a 58 09 70 6f | 6f 72 20 70 65 72 66 6f |ely.X.po|or perfo|
|00003e60| 72 6d 61 6e 63 65 21 0a | 2f 2f 45 2a 4f 2a 46 20 |rmance!.|//E*O*F |
|00003e70| 31 39 38 39 2f 6a 61 72 | 2e 32 2e 68 69 6e 74 2f |1989/jar|.2.hint/|
|00003e80| 2f 0a 0a 65 63 68 6f 20 | 78 20 2d 20 31 39 38 39 |/..echo |x - 1989|
|00003e90| 2f 6f 76 64 6c 75 68 65 | 2e 63 0a 73 65 64 20 2d |/ovdluhe|.c.sed -|
|00003ea0| 65 20 27 73 2f 5e 58 2f | 2f 27 20 3e 20 22 31 39 |e 's/^X/|/' > "19|
|00003eb0| 38 39 2f 6f 76 64 6c 75 | 68 65 2e 63 22 20 3c 3c |89/ovdlu|he.c" <<|
|00003ec0| 20 27 2f 2f 45 2a 4f 2a | 46 20 31 39 38 39 2f 6f | '//E*O*|F 1989/o|
|00003ed0| 76 64 6c 75 68 65 2e 63 | 2f 2f 27 0a 58 23 69 6e |vdluhe.c|//'.X#in|
|00003ee0| 63 6c 75 64 65 20 3c 73 | 74 72 69 6e 67 2e 68 3e |clude <s|tring.h>|
|00003ef0| 0a 58 74 79 70 65 64 65 | 66 20 63 68 61 72 20 61 |.Xtypede|f char a|
|00003f00| 70 65 0a 58 23 64 65 66 | 69 6e 65 20 44 20 64 65 |pe.X#def|ine D de|
|00003f10| 66 69 6e 65 0a 58 23 44 | 20 45 41 20 72 65 67 69 |fine.X#D| EA regi|
|00003f20| 73 74 65 72 0a 58 23 44 | 20 45 50 20 75 6e 73 69 |ster.X#D| EP unsi|
|00003f30| 67 6e 65 64 0a 58 23 44 | 20 41 20 31 0a 58 23 44 |gned.X#D| A 1.X#D|
|00003f40| 20 41 50 20 28 41 3c 3c | 41 29 0a 58 23 44 20 50 | AP (A<<|A).X#D P|
|00003f50| 20 28 41 3c 3c 41 50 29 | 0a 58 23 44 20 41 45 20 | (A<<AP)|.X#D AE |
|00003f60| 28 28 50 3c 3c 50 29 3c | 3c 41 29 0a 58 23 44 20 |((P<<P)<|<A).X#D |
|00003f70| 50 45 20 28 28 28 41 3c | 3c 50 29 3c 3c 50 29 3c |PE (((A<|<P)<<P)<|
|00003f80| 3c 50 29 0a 58 23 44 20 | 45 20 28 28 45 50 29 41 |<P).X#D |E ((EP)A|
|00003f90| 3e 3e 41 29 0a 58 23 44 | 20 41 50 45 20 7b 45 41 |>>A).X#D| APE {EA|
|00003fa0| 20 45 50 20 61 70 65 20 | 65 61 3d 41 45 3b 77 68 | EP ape |ea=AE;wh|
|00003fb0| 69 6c 65 28 65 61 2d 2d | 29 20 65 5b 65 61 5d 3d |ile(ea--|) e[ea]=|
|00003fc0| 45 3b 7d 0a 58 3b 61 70 | 65 20 61 5b 50 45 2b 41 |E;}.X;ap|e a[PE+A|
|00003fd0| 5d 2c 61 70 2c 2a 61 65 | 2c 70 5b 50 2b 41 5d 2c |],ap,*ae|,p[P+A],|
|00003fe0| 65 5b 41 45 5d 3b 0a 58 | 6d 61 69 6e 28 29 7b 61 |e[AE];.X|main(){a|
|00003ff0| 70 65 20 70 65 2c 2a 65 | 70 3d 61 3b 73 72 61 6e |pe pe,*e|p=a;sran|
|00004000| 64 28 28 45 50 29 74 69 | 6d 65 28 28 6c 6f 6e 67 |d((EP)ti|me((long|
|00004010| 29 45 29 29 3b 0a 58 77 | 68 69 6c 65 28 28 28 2a |)E));.Xw|hile(((*|
|00004020| 28 65 70 2b 2b 29 3d 67 | 65 74 63 68 61 72 28 29 |(ep++)=g|etchar()|
|00004030| 29 21 3d 2d 41 29 26 26 | 28 28 65 70 2d 61 29 3c |)!=-A)&&|((ep-a)<|
|00004040| 50 45 29 29 3b 0a 58 2a | 28 61 65 3d 20 2d 2d 65 |PE));.X*|(ae= --e|
|00004050| 70 29 3d 45 3b 66 6f 72 | 28 61 70 3d 45 3b 61 70 |p)=E;for|(ap=E;ap|
|00004060| 3c 3d 50 3b 29 7b 41 50 | 45 3b 69 66 28 70 65 3d |<=P;){AP|E;if(pe=|
|00004070| 50 41 28 29 29 0a 58 7b | 70 75 74 63 68 61 72 28 |PA()).X{|putchar(|
|00004080| 70 65 29 3b 69 66 28 61 | 70 3c 50 29 7b 70 5b 61 |pe);if(a|p<P){p[a|
|00004090| 70 5d 3d 70 65 3b 61 70 | 2b 2b 3b 7d 65 6c 73 65 |p]=pe;ap|++;}else|
|000040a0| 7b 0a 58 65 70 3d 70 2b | 41 3b 77 68 69 6c 65 28 |{.Xep=p+|A;while(|
|000040b0| 2a 65 70 29 20 2a 28 65 | 70 2d 41 29 3d 20 2a 28 |*ep) *(e|p-A)= *(|
|000040c0| 65 70 2b 2b 29 3b 20 2a | 28 65 70 2d 41 29 3d 70 |ep++); *|(ep-A)=p|
|000040d0| 65 3b 7d 7d 65 6c 73 65 | 20 62 72 65 61 6b 3b 7d |e;}}else| break;}|
|000040e0| 7d 0a 58 50 41 28 29 7b | 45 41 20 61 70 65 20 70 |}.XPA(){|EA ape p|
|000040f0| 65 2c 2a 65 70 3d 61 2c | 70 61 2c 41 70 3d 45 3b |e,*ep=a,|pa,Ap=E;|
|00004100| 66 6f 72 28 65 70 3d 61 | 3b 65 70 3c 61 65 2d 50 |for(ep=a|;ep<ae-P|
|00004110| 3b 65 70 2b 2b 29 0a 58 | 69 66 28 21 73 74 72 6e |;ep++).X|if(!strn|
|00004120| 63 6d 70 28 65 70 2c 70 | 2c 61 70 29 29 7b 65 5b |cmp(ep,p|,ap)){e[|
|00004130| 2a 28 65 70 2b 61 70 29 | 5d 2b 2b 3b 41 70 2b 2b |*(ep+ap)|]++;Ap++|
|00004140| 3b 7d 69 66 28 21 41 70 | 29 72 65 74 75 72 6e 28 |;}if(!Ap|)return(|
|00004150| 41 70 29 3b 0a 58 70 61 | 3d 72 61 6e 64 28 29 25 |Ap);.Xpa|=rand()%|
|00004160| 41 70 2b 41 3b 70 65 3d | 7e 45 2c 41 70 3d 21 41 |Ap+A;pe=|~E,Ap=!A|
|00004170| 70 3b 77 68 69 6c 65 28 | 28 41 70 2b 3d 65 5b 2b |p;while(|(Ap+=e[+|
|00004180| 2b 70 65 5d 29 3c 70 61 | 29 3b 72 65 74 75 72 6e |+pe])<pa|);return|
|00004190| 28 70 65 29 3b 7d 0a 2f | 2f 45 2a 4f 2a 46 20 31 |(pe);}./|/E*O*F 1|
|000041a0| 39 38 39 2f 6f 76 64 6c | 75 68 65 2e 63 2f 2f 0a |989/ovdl|uhe.c//.|
|000041b0| 0a 65 63 68 6f 20 78 20 | 2d 20 31 39 38 39 2f 6f |.echo x |- 1989/o|
|000041c0| 76 64 6c 75 68 65 2e 68 | 69 6e 74 0a 73 65 64 20 |vdluhe.h|int.sed |
|000041d0| 2d 65 20 27 73 2f 5e 58 | 2f 2f 27 20 3e 20 22 31 |-e 's/^X|//' > "1|
|000041e0| 39 38 39 2f 6f 76 64 6c | 75 68 65 2e 68 69 6e 74 |989/ovdl|uhe.hint|
|000041f0| 22 20 3c 3c 20 27 2f 2f | 45 2a 4f 2a 46 20 31 39 |" << '//|E*O*F 19|
|00004200| 38 39 2f 6f 76 64 6c 75 | 68 65 2e 68 69 6e 74 2f |89/ovdlu|he.hint/|
|00004210| 2f 27 0a 58 4d 6f 73 74 | 20 68 75 6d 6f 72 6f 75 |/'.XMost| humorou|
|00004220| 73 20 6f 75 74 70 75 74 | 3a 20 3c 2e 2e 2e 21 75 |s output|: <...!u|
|00004230| 6e 69 64 6f 21 63 65 72 | 6e 76 61 78 21 65 74 68 |nido!cer|nvax!eth|
|00004240| 7a 21 6f 76 64 6c 75 68 | 65 3e 20 4f 73 6b 61 72 |z!ovdluh|e> Oskar|
|00004250| 20 76 6f 6e 20 64 65 72 | 20 4c 75 65 68 65 0a 58 | von der| Luehe.X|
|00004260| 0a 58 09 4f 73 6b 61 72 | 20 76 6f 6e 20 64 65 72 |.X.Oskar| von der|
|00004270| 20 4c 75 65 68 65 0a 58 | 09 49 6e 73 74 69 74 75 | Luehe.X|.Institu|
|00004280| 74 20 66 75 65 72 20 41 | 73 74 72 6f 6e 6f 6d 69 |t fuer A|stronomi|
|00004290| 65 0a 58 09 45 54 48 20 | 2d 20 5a 65 6e 74 72 75 |e.X.ETH |- Zentru|
|000042a0| 6d 0a 58 09 38 30 39 32 | 20 5a 75 65 72 69 63 68 |m.X.8092| Zuerich|
|000042b0| 0a 58 09 53 77 69 74 7a | 65 72 6c 61 6e 64 0a 58 |.X.Switz|erland.X|
|000042c0| 0a 58 4a 75 64 67 65 73 | 20 6e 6f 74 65 73 3a 0a |.XJudges| notes:.|
|000042d0| 58 0a 58 09 52 75 6e 20 | 74 68 69 73 20 70 72 6f |X.X.Run |this pro|
|000042e0| 67 72 61 6d 20 75 73 69 | 6e 67 20 79 6f 75 72 20 |gram usi|ng your |
|000042f0| 66 61 76 6f 72 69 74 65 | 20 74 65 78 74 20 66 69 |favorite| text fi|
|00004300| 6c 65 20 61 73 20 69 6e | 70 75 74 2e 20 20 46 69 |le as in|put.  Fi|
|00004310| 6c 65 73 0a 58 09 73 75 | 63 68 20 61 73 20 6d 61 |les.X.su|ch as ma|
|00004320| 69 6c 62 6f 78 65 73 2c | 20 6d 61 6e 20 70 61 67 |ilboxes,| man pag|
|00004330| 65 73 20 61 6e 64 20 75 | 73 65 6e 65 74 20 61 72 |es and u|senet ar|
|00004340| 74 69 63 6c 65 73 20 61 | 72 65 20 65 73 70 65 63 |ticles a|re espec|
|00004350| 69 61 6c 6c 79 0a 58 09 | 72 65 63 6f 6d 6d 65 6e |ially.X.|recommen|
|00004360| 64 65 64 2e 20 20 59 6f | 75 20 77 69 6c 6c 20 67 |ded.  Yo|u will g|
|00004370| 65 74 20 64 69 66 66 65 | 72 65 6e 74 20 6f 75 74 |et diffe|rent out|
|00004380| 70 75 74 20 65 61 63 68 | 20 74 69 6d 65 20 79 6f |put each| time yo|
|00004390| 75 20 72 75 6e 20 69 74 | 2e 0a 58 0a 58 09 52 75 |u run it|..X.X.Ru|
|000043a0| 6e 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 74 68 |n the pr|ogram th|
|000043b0| 69 73 20 77 61 79 3a 0a | 58 0a 58 09 09 6f 76 64 |is way:.|X.X..ovd|
|000043c0| 6c 75 68 65 20 3c 20 74 | 65 78 74 66 69 6c 65 0a |luhe < t|extfile.|
|000043d0| 58 0a 58 09 54 68 65 20 | 70 72 6f 67 72 61 6d 20 |X.X.The |program |
|000043e0| 73 74 6f 70 73 20 77 68 | 65 6e 20 69 74 20 72 65 |stops wh|en it re|
|000043f0| 61 63 68 65 73 20 74 68 | 65 20 65 6e 64 20 6f 66 |aches th|e end of|
|00004400| 20 74 68 65 20 74 65 6d | 70 6c 61 74 65 20 62 75 | the tem|plate bu|
|00004410| 66 66 65 72 20 0a 58 09 | 62 79 20 63 68 61 6e 63 |ffer .X.|by chanc|
|00004420| 65 20 6f 72 20 69 73 20 | 6b 69 6c 6c 65 64 2e 0a |e or is |killed..|
|00004430| 58 0a 58 53 65 6c 65 63 | 74 65 64 20 6e 6f 74 65 |X.XSelec|ted note|
|00004440| 73 20 66 72 6f 6d 20 74 | 68 65 20 61 75 74 68 6f |s from t|he autho|
|00004450| 72 3a 0a 58 0a 58 09 54 | 68 69 73 20 70 72 6f 67 |r:.X.X.T|his prog|
|00004460| 72 61 6d 20 69 6d 70 6c | 65 6d 65 6e 74 73 20 61 |ram impl|ements a|
|00004470| 6e 20 22 45 64 64 69 6e | 67 74 6f 6e 20 61 70 65 |n "Eddin|gton ape|
|00004480| 22 20 2d 20 69 74 20 67 | 65 6e 65 72 61 74 65 73 |" - it g|enerates|
|00004490| 0a 58 09 72 61 6e 64 6f | 6d 20 74 65 78 74 20 66 |.X.rando|m text f|
|000044a0| 72 6f 6d 20 61 20 73 75 | 70 70 6c 69 65 64 20 74 |rom a su|pplied t|
|000044b0| 65 6d 70 6c 61 74 65 2e | 20 20 54 68 65 20 74 65 |emplate.|  The te|
|000044c0| 6d 70 6c 61 74 65 20 74 | 65 78 74 20 66 69 6c 65 |mplate t|ext file|
|000044d0| 0a 58 09 69 73 20 72 65 | 61 64 20 74 68 72 6f 75 |.X.is re|ad throu|
|000044e0| 67 68 20 73 74 64 69 6e | 2e 20 20 54 68 65 20 6c |gh stdin|.  The l|
|000044f0| 61 72 67 65 72 20 74 68 | 65 20 74 65 6d 70 6c 61 |arger th|e templa|
|00004500| 74 65 2c 20 74 68 65 20 | 62 65 74 74 65 72 20 74 |te, the |better t|
|00004510| 68 65 0a 58 09 72 65 73 | 75 6c 74 2e 20 20 41 20 |he.X.res|ult.  A |
|00004520| 6d 61 78 69 6d 75 6d 20 | 6f 66 20 32 2a 2a 31 32 |maximum |of 2**12|
|00004530| 20 63 68 61 72 73 20 61 | 72 65 20 75 73 65 64 2e | chars a|re used.|
|00004540| 20 46 72 6f 6d 20 74 68 | 65 20 74 65 6d 70 6c 61 | From th|e templa|
|00004550| 74 65 2c 0a 58 09 74 68 | 65 20 70 72 6f 67 72 61 |te,.X.th|e progra|
|00004560| 6d 20 63 61 6c 63 75 6c | 61 74 65 73 20 74 68 65 |m calcul|ates the|
|00004570| 20 73 74 61 74 69 73 74 | 69 63 73 20 6f 66 20 63 | statist|ics of c|
|00004580| 68 61 72 73 20 74 68 61 | 74 20 69 6d 6d 65 64 69 |hars tha|t immedi|
|00004590| 61 74 65 6c 79 0a 58 09 | 66 6f 6c 6c 6f 77 20 61 |ately.X.|follow a|
|000045a0| 20 67 69 76 65 6e 20 73 | 74 72 69 6e 67 20 28 63 | given s|tring (c|
|000045b0| 6f 72 72 65 6c 61 74 6f | 72 20 73 74 72 69 6e 67 |orrelato|r string|
|000045c0| 29 20 6f 66 20 61 20 63 | 65 72 74 61 69 6e 20 6c |) of a c|ertain l|
|000045d0| 65 6e 67 74 68 0a 58 09 | 28 63 75 72 72 65 6e 74 |ength.X.|(current|
|000045e0| 6c 79 20 34 20 2d 20 63 | 61 6e 20 62 65 20 76 61 |ly 4 - c|an be va|
|000045f0| 72 69 65 64 20 62 79 20 | 63 68 61 6e 67 69 6e 67 |ried by |changing|
|00004600| 20 74 68 65 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 | the def|inition |
|00004610| 66 6f 72 20 50 0a 58 09 | 61 63 63 6f 72 64 69 6e |for P.X.|accordin|
|00004620| 67 6c 79 29 2e 20 20 41 | 20 63 68 61 72 61 63 74 |gly).  A| charact|
|00004630| 65 72 20 69 73 20 72 61 | 6e 64 6f 6d 6c 79 20 63 |er is ra|ndomly c|
|00004640| 68 6f 73 65 6e 2c 20 77 | 65 69 67 68 74 65 64 20 |hosen, w|eighted |
|00004650| 62 79 20 69 74 73 0a 58 | 09 70 72 6f 62 61 62 69 |by its.X|.probabi|
|00004660| 6c 69 74 79 20 74 6f 20 | 6f 63 63 75 72 20 61 66 |lity to |occur af|
|00004670| 74 65 72 20 74 68 65 20 | 63 6f 72 72 65 6c 61 74 |ter the |correlat|
|00004680| 6f 72 20 73 74 72 69 6e | 67 2e 20 20 54 68 61 74 |or strin|g.  That|
|00004690| 0a 58 09 63 68 61 72 61 | 63 74 65 72 20 69 73 20 |.X.chara|cter is |
|000046a0| 70 72 69 6e 74 65 64 20 | 74 6f 20 73 74 64 6f 75 |printed |to stdou|
|000046b0| 74 20 61 6e 64 20 70 6c | 61 63 65 64 20 61 74 20 |t and pl|aced at |
|000046c0| 74 68 65 20 65 6e 64 20 | 6f 66 20 74 68 65 0a 58 |the end |of the.X|
|000046d0| 09 63 6f 72 72 65 6c 61 | 74 6f 72 20 73 74 72 69 |.correla|tor stri|
|000046e0| 6e 67 2c 20 77 68 6f 73 | 65 20 66 69 72 73 74 20 |ng, whos|e first |
|000046f0| 63 68 61 72 61 63 74 65 | 72 20 69 73 20 64 69 73 |characte|r is dis|
|00004700| 63 61 72 64 65 64 2e 0a | 58 09 4d 65 61 6e 69 6e |carded..|X.Meanin|
|00004710| 67 66 75 6c 20 77 6f 72 | 64 73 20 61 72 65 20 74 |gful wor|ds are t|
|00004720| 68 65 72 65 66 6f 72 65 | 20 75 73 75 61 6c 6c 79 |herefore| usually|
|00004730| 20 70 72 65 73 65 72 76 | 65 64 2c 20 74 68 65 20 | preserv|ed, the |
|00004740| 65 66 66 65 63 74 20 6f | 6e 0a 58 09 73 65 6e 74 |effect o|n.X.sent|
|00004750| 65 6e 63 65 73 20 63 61 | 6e 20 62 65 20 64 72 61 |ences ca|n be dra|
|00004760| 6d 61 74 69 63 61 6c 6c | 79 20 72 61 6e 64 6f 6d |maticall|y random|
|00004770| 2e 0a 58 0a 58 09 59 6f | 75 20 6d 69 67 68 74 20 |..X.X.Yo|u might |
|00004780| 77 61 6e 74 20 74 6f 20 | 76 61 72 79 20 74 68 65 |want to |vary the|
|00004790| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 6f 66 20 50 | definit|ion of P|
|000047a0| 20 62 65 74 77 65 65 6e | 20 32 20 61 6e 64 20 31 | between| 2 and 1|
|000047b0| 30 20 61 6e 64 0a 58 09 | 6f 62 73 65 72 76 65 20 |0 and.X.|observe |
|000047c0| 74 68 65 20 72 65 73 75 | 6c 74 2e 0a 2f 2f 45 2a |the resu|lt..//E*|
|000047d0| 4f 2a 46 20 31 39 38 39 | 2f 6f 76 64 6c 75 68 65 |O*F 1989|/ovdluhe|
|000047e0| 2e 68 69 6e 74 2f 2f 0a | 0a 65 63 68 6f 20 78 20 |.hint//.|.echo x |
|000047f0| 2d 20 31 39 38 39 2f 70 | 61 75 6c 2e 63 0a 73 65 |- 1989/p|aul.c.se|
|00004800| 64 20 2d 65 20 27 73 2f | 5e 58 2f 2f 27 20 3e 20 |d -e 's/|^X//' > |
|00004810| 22 31 39 38 39 2f 70 61 | 75 6c 2e 63 22 20 3c 3c |"1989/pa|ul.c" <<|
|00004820| 20 27 2f 2f 45 2a 4f 2a | 46 20 31 39 38 39 2f 70 | '//E*O*|F 1989/p|
|00004830| 61 75 6c 2e 63 2f 2f 27 | 0a 58 23 69 6e 63 6c 75 |aul.c//'|.X#inclu|
|00004840| 64 65 20 3c 73 74 64 69 | 6f 2e 68 3e 0a 58 23 64 |de <stdi|o.h>.X#d|
|00004850| 65 66 69 6e 65 20 66 20 | 69 6e 74 0a 58 23 64 65 |efine f |int.X#de|
|00004860| 66 69 6e 65 20 76 20 28 | 76 6f 69 64 29 70 72 69 |fine v (|void)pri|
|00004870| 6e 74 66 28 0a 58 23 64 | 65 66 69 6e 65 20 78 20 |ntf(.X#d|efine x |
|00004880| 29 2c 65 78 69 74 28 31 | 29 3b 0a 58 23 64 65 66 |),exit(1|);.X#def|
|00004890| 69 6e 65 20 79 20 29 7b | 69 66 28 6e 29 63 3d 7a |ine y ){|if(n)c=z|
|000048a0| 28 6e 2c 75 29 2c 75 3d | 6e 2c 6e 3d 63 3b 6f 5b |(n,u),u=|n,n=c;o[|
|000048b0| 69 5d 3d 6e 3f 27 30 27 | 2b 28 31 26 2a 6e 29 3a |i]=n?'0'|+(1&*n):|
|000048c0| 27 30 27 3b 7d 0a 58 23 | 64 65 66 69 6e 65 20 7a |'0';}.X#|define z|
|000048d0| 28 61 2c 62 29 20 28 66 | 2a 29 28 7e 31 26 2a 61 |(a,b) (f|*)(~1&*a|
|000048e0| 5e 28 66 29 62 29 0a 58 | 23 64 65 66 69 6e 65 20 |^(f)b).X|#define |
|000048f0| 6b 28 6c 29 20 69 66 28 | 21 28 6c 3d 28 66 2a 29 |k(l) if(|!(l=(f*)|
|00004900| 6d 61 6c 6c 6f 63 28 73 | 69 7a 65 6f 66 28 6c 29 |malloc(s|izeof(l)|
|00004910| 29 29 29 76 20 32 33 2b | 6d 20 78 20 69 66 28 31 |)))v 23+|m x if(1|
|00004920| 26 28 66 29 6c 29 76 20 | 33 39 2b 6d 20 78 2a 6c |&(f)l)v |39+m x*l|
|00004930| 3d 0a 58 72 28 70 2c 71 | 2c 64 29 66 2a 70 2c 2a |=.Xr(p,q|,d)f*p,*|
|00004940| 71 3b 7b 63 68 61 72 20 | 6f 5b 38 31 5d 3b 66 2a |q;{char |o[81];f*|
|00004950| 6e 3d 70 2c 69 3d 33 39 | 2c 2a 63 2c 2a 75 3d 64 |n=p,i=39|,*c,*u=d|
|00004960| 3f 71 3a 7a 28 70 2c 71 | 29 3b 6f 5b 34 30 5d 3d |?q:z(p,q|);o[40]=|
|00004970| 27 30 27 2b 28 31 26 2a | 70 29 3b 0a 58 66 6f 72 |'0'+(1&*|p);.Xfor|
|00004980| 28 3b 69 3e 3d 30 3b 69 | 2d 2d 79 20 75 3d 64 3f |(;i>=0;i|--y u=d?|
|00004990| 7a 28 70 2c 71 29 3a 71 | 3b 6e 3d 70 3b 66 6f 72 |z(p,q):q|;n=p;for|
|000049a0| 28 69 3d 34 31 3b 69 3c | 37 39 3b 69 2b 2b 79 20 |(i=41;i<|79;i++y |
|000049b0| 6f 5b 69 2b 2b 5d 3d 27 | 5c 72 27 3b 6f 5b 69 2b |o[i++]='|\r';o[i+|
|000049c0| 2b 5d 3d 30 3b 0a 58 76 | 20 6f 29 3b 28 76 6f 69 |+]=0;.Xv| o);(voi|
|000049d0| 64 29 66 66 6c 75 73 68 | 28 73 74 64 6f 75 74 29 |d)fflush|(stdout)|
|000049e0| 3b 73 6c 65 65 70 28 31 | 29 3b 7d 0a 58 6d 61 69 |;sleep(1|);}.Xmai|
|000049f0| 6e 28 61 2c 63 29 63 68 | 61 72 2a 2a 63 3b 7b 63 |n(a,c)ch|ar**c;{c|
|00004a00| 68 61 72 2a 75 2c 2a 6d | 61 6c 6c 6f 63 28 29 2c |har*u,*m|alloc(),|
|00004a10| 2a 6d 3d 0a 58 22 55 73 | 61 67 65 3a 20 62 6c 61 |*m=.X"Us|age: bla|
|00004a20| 63 6b 20 5b 73 74 72 69 | 6e 67 5d 5c 6e 5c 30 4e |ck [stri|ng]\n\0N|
|00004a30| 6f 20 6d 6f 72 65 20 6d | 65 6d 6f 72 79 5c 6e 5c |o more m|emory\n\|
|00004a40| 30 55 6e 75 73 61 62 6c | 65 20 6d 65 6d 6f 72 79 |0Unusabl|e memory|
|00004a50| 20 61 6c 69 67 6e 6d 65 | 6e 74 5c 6e 5c 30 6a 74 | alignme|nt\n\0jt|
|00004a60| 2c 73 40 6d 40 20 28 62 | 65 6c 65 59 25 58 58 26 |,s@m@ (b|eleY%XX&|
|00004a70| 59 7a 20 7b 7a 26 7a 7d | 69 7c 52 28 7c 29 2a 28 |Yz {z&z}|i|R(|)*(|
|00004a80| 28 2e 29 69 29 68 69 6e | 69 46 69 47 4a 25 46 47 |(.)i)hin|iFiGJ%FG|
|00004a90| 2e 4a 4a 67 4a 3a 20 3b | 3b 26 3b 7a 20 7b 7a 26 |.JJgJ: ;|;&;z {z&|
|00004aa0| 7a 7d 2d 52 53 2f 52 4f | 69 4f 56 20 4f 50 2b 50 |z}-RS/RO|iOV OP+P|
|00004ab0| 73 61 50 68 2b 69 6a 61 | 69 6e 6e 6a 6d 61 6d 66 |saPh+ija|innjmamf|
|00004ac0| 6d 66 41 6c 6e 6e 6e 6e | 70 68 70 70 6f 70 76 25 |mfAlnnnn|phppopv%|
|00004ad0| 76 76 67 76 2e 61 41 42 | 69 42 31 2f 42 56 50 31 |vvgv.aAB|iB1/BVP1|
|00004ae0| 31 2f 31 2e 25 2e 2e 26 | 2e 4f 68 72 52 2d 57 56 |1/1.%..&|.OhrR-WV|
|00004af0| 20 56 31 23 31 56 50 31 | 43 63 43 30 52 5c 0a 58 | V1#1VP1|CcC0R\.X|
|00004b00| 5c 6e 5c 6e 27 43 56 50 | 30 5c 6e 21 5c 6e 5c 6e |\n\n'CVP|0\n!\n\n|
|00004b10| 27 5c 6e 45 61 45 45 6e | 45 61 6d 61 74 21 61 6b |'\nEaEEn|Eamat!ak|
|00004b20| 63 6b 6b 27 6b 77 61 77 | 77 27 77 7a 2c 7a 7a 6f |ckk'kwaw|w'wz,zzo|
|00004b30| 7a 45 69 74 20 2b 22 2c | 0a 58 2a 6e 3d 6d 3b 66 |zEit +",|.X*n=m;f|
|00004b40| 2a 71 2c 2a 70 3d 30 2c | 2a 67 2c 62 3d 33 2c 64 |*q,*p=0,|*g,b=3,d|
|00004b50| 3b 0a 58 69 66 28 61 3e | 32 29 76 20 6d 20 78 20 |;.Xif(a>|2)v m x |
|00004b60| 6e 3d 61 3e 31 3f 63 5b | 31 5d 3a 6e 3b 0a 58 2f |n=a>1?c[|1]:n;.X/|
|00004b70| 2a 76 22 5c 74 5c 74 5c | 74 5c 74 5c 74 56 5c 6e |*v"\t\t\|t\t\tV\n|
|00004b80| 22 29 3b 2a 2f 0a 58 6b | 28 71 29 30 3b 75 3d 6e |");*/.Xk|(q)0;u=n|
|00004b90| 3b 61 3d 7e 31 26 27 6a | 27 3b 0a 58 77 68 69 6c |;a=~1&'j|';.Xwhil|
|00004ba0| 65 28 61 21 3d 27 78 27 | 29 7b 0a 58 09 2f 2a 72 |e(a!='x'|){.X./*r|
|00004bb0| 28 71 2c 70 2c 62 29 3b | 2a 2f 0a 58 09 66 6f 72 |(q,p,b);|*/.X.for|
|00004bc0| 28 3b 3b 75 2b 3d 33 29 | 7b 0a 58 09 09 75 3d 20 |(;;u+=3)|{.X..u= |
|00004bd0| 2a 75 3f 75 3a 6e 3b 0a | 58 09 09 69 66 28 28 7e |*u?u:n;.|X..if((~|
|00004be0| 31 26 2a 75 29 3d 3d 61 | 26 26 28 31 26 2a 71 29 |1&*u)==a|&&(1&*q)|
|00004bf0| 3c 3c 31 3d 3d 28 32 26 | 75 5b 32 5d 29 29 62 72 |<<1==(2&|u[2]))br|
|00004c00| 65 61 6b 3b 0a 58 09 7d | 0a 58 09 61 3d 7e 31 26 |eak;.X.}|.X.a=~1&|
|00004c10| 75 5b 31 5d 3b 0a 58 09 | 64 3d 28 38 26 75 5b 32 |u[1];.X.|d=(8&u[2|
|00004c20| 5d 29 3e 3e 33 3b 0a 58 | 09 69 66 28 31 36 26 75 |])>>3;.X|.if(16&u|
|00004c30| 5b 32 5d 29 70 75 74 63 | 68 61 72 28 75 5b 33 5d |[2])putc|har(u[3]|
|00004c40| 29 3b 0a 58 09 69 66 28 | 34 26 75 5b 32 5d 29 2a |);.X.if(|4&u[2])*|
|00004c50| 71 7c 3d 31 3b 65 6c 73 | 65 2a 71 26 3d 7e 31 3b |q|=1;els|e*q&=~1;|
|00004c60| 0a 58 09 69 66 28 62 3d | 3d 64 29 67 3d 70 3b 65 |.X.if(b=|=d)g=p;e|
|00004c70| 6c 73 65 7b 0a 58 09 09 | 67 3d 7a 28 71 2c 70 29 |lse{.X..|g=z(q,p)|
|00004c80| 3b 0a 58 09 09 69 66 28 | 21 67 29 7b 6b 28 67 29 |;.X..if(|!g){k(g)|
|00004c90| 28 66 29 71 3b 2a 71 5e | 3d 28 66 29 67 3b 7d 0a |(f)q;*q^|=(f)g;}.|
|00004ca0| 58 09 7d 0a 58 09 70 3d | 71 3b 71 3d 67 3b 62 3d |X.}.X.p=|q;q=g;b=|
|00004cb0| 31 2d 64 3b 0a 58 7d 0a | 58 2f 2a 72 28 71 2c 70 |1-d;.X}.|X/*r(q,p|
|00004cc0| 2c 62 29 3b 76 22 5c 6e | 22 29 3b 2a 2f 65 78 69 |,b);v"\n|");*/exi|
|00004cd0| 74 28 30 29 3b 0a 58 7d | 0a 2f 2f 45 2a 4f 2a 46 |t(0);.X}|.//E*O*F|
|00004ce0| 20 31 39 38 39 2f 70 61 | 75 6c 2e 63 2f 2f 0a 0a | 1989/pa|ul.c//..|
|00004cf0| 65 63 68 6f 20 78 20 2d | 20 31 39 38 39 2f 70 61 |echo x -| 1989/pa|
|00004d00| 75 6c 2e 68 69 6e 74 0a | 73 65 64 20 2d 65 20 27 |ul.hint.|sed -e '|
|00004d10| 73 2f 5e 58 2f 2f 27 20 | 3e 20 22 31 39 38 39 2f |s/^X//' |> "1989/|
|00004d20| 70 61 75 6c 2e 68 69 6e | 74 22 20 3c 3c 20 27 2f |paul.hin|t" << '/|
|00004d30| 2f 45 2a 4f 2a 46 20 31 | 39 38 39 2f 70 61 75 6c |/E*O*F 1|989/paul|
|00004d40| 2e 68 69 6e 74 2f 2f 27 | 0a 58 4d 6f 73 74 20 63 |.hint//'|.XMost c|
|00004d50| 6f 6d 70 6c 65 78 20 61 | 6c 67 6f 72 69 74 68 6d |omplex a|lgorithm|
|00004d60| 3a 20 3c 2e 2e 2e 21 6f | 6c 69 76 65 62 21 63 69 |: <...!o|liveb!ci|
|00004d70| 72 72 75 73 6c 21 70 61 | 75 6c 3e 20 50 61 75 6c |rrusl!pa|ul> Paul|
|00004d80| 20 45 2e 20 42 6c 61 63 | 6b 0a 58 0a 58 09 50 61 | E. Blac|k.X.X.Pa|
|00004d90| 75 6c 20 45 2e 20 42 6c | 61 63 6b 0a 58 09 43 49 |ul E. Bl|ack.X.CI|
|00004da0| 52 52 55 53 20 4c 4f 47 | 49 43 2c 20 49 6e 63 2e |RRUS LOG|IC, Inc.|
|00004db0| 0a 58 09 31 34 36 33 20 | 43 65 6e 74 72 65 20 50 |.X.1463 |Centre P|
|00004dc0| 6f 69 6e 74 65 20 44 72 | 2e 0a 58 09 4d 69 6c 70 |ointe Dr|..X.Milp|
|00004dd0| 69 74 61 73 2c 20 43 41 | 20 0a 58 09 39 35 30 33 |itas, CA| .X.9503|
|00004de0| 35 20 0a 58 09 55 53 41 | 0a 58 0a 58 4a 75 64 67 |5 .X.USA|.X.XJudg|
|00004df0| 65 73 20 6e 6f 74 65 73 | 3a 0a 58 0a 58 09 54 68 |es notes|:.X.X.Th|
|00004e00| 65 20 6f 72 69 67 69 6e | 61 6c 20 73 6f 75 72 63 |e origin|al sourc|
|00004e10| 65 20 63 6f 6e 74 61 69 | 6e 65 64 20 61 20 6c 6f |e contai|ned a lo|
|00004e20| 6e 67 20 6c 69 6e 65 20 | 77 68 69 63 68 20 63 61 |ng line |which ca|
|00004e30| 75 73 65 64 20 6d 61 6e | 79 0a 58 09 6d 61 69 6c |used man|y.X.mail|
|00004e40| 65 72 73 20 74 6f 20 62 | 61 72 66 2e 20 20 54 68 |ers to b|arf.  Th|
|00004e50| 65 20 6f 72 69 67 69 6e | 61 6c 20 66 69 6c 65 20 |e origin|al file |
|00004e60| 6d 61 79 20 62 65 20 72 | 65 2d 63 6f 6e 73 74 72 |may be r|e-constr|
|00004e70| 75 63 74 65 64 20 62 79 | 0a 58 09 72 65 6d 6f 76 |ucted by|.X.remov|
|00004e80| 65 69 6e 67 20 74 68 65 | 20 74 72 61 69 6c 69 6e |eing the| trailin|
|00004e90| 67 20 22 5c 22 20 6f 6e | 20 6c 69 6e 65 20 31 32 |g "\" on| line 12|
|00004ea0| 20 61 6e 64 20 6a 6f 69 | 6e 69 6e 67 20 6c 69 6e | and joi|ning lin|
|00004eb0| 65 73 20 31 32 20 61 6e | 64 0a 58 09 31 33 20 74 |es 12 an|d.X.13 t|
|00004ec0| 6f 67 65 74 68 65 72 20 | 77 69 74 68 6f 75 74 20 |ogether |without |
|00004ed0| 61 20 73 70 61 63 65 2e | 0a 58 0a 58 09 57 48 41 |a space.|.X.X.WHA|
|00004ee0| 54 20 46 4f 4c 4c 4f 57 | 53 20 49 53 20 41 20 44 |T FOLLOW|S IS A D|
|00004ef0| 45 54 41 49 4c 45 44 20 | 50 52 4f 47 52 41 4d 20 |ETAILED |PROGRAM |
|00004f00| 45 58 50 4c 49 4e 41 54 | 49 4f 4e 20 41 4e 44 20 |EXPLINAT|ION AND |
|00004f10| 53 50 4f 49 4c 45 52 2e | 0a 58 09 49 46 20 59 4f |SPOILER.|.X.IF YO|
|00004f20| 55 20 57 41 4e 54 20 41 | 20 52 45 41 4c 20 43 48 |U WANT A| REAL CH|
|00004f30| 41 4c 4c 45 4e 47 45 2c | 20 44 4f 4e 27 54 20 52 |ALLENGE,| DON'T R|
|00004f40| 45 41 44 20 41 4e 59 20 | 46 55 52 54 48 45 52 20 |EAD ANY |FURTHER |
|00004f50| 41 4e 44 20 54 52 59 0a | 58 09 54 4f 20 55 4e 44 |AND TRY.|X.TO UND|
|00004f60| 45 52 53 54 41 4e 44 20 | 54 48 45 20 50 52 4f 47 |ERSTAND |THE PROG|
|00004f70| 52 41 4d 20 56 49 41 20 | 54 48 45 20 53 4f 55 52 |RAM VIA |THE SOUR|
|00004f80| 43 45 2e 0a 58 0a 58 0a | 58 53 65 6c 65 63 74 65 |CE..X.X.|XSelecte|
|00004f90| 64 20 6e 6f 74 65 73 20 | 66 72 6f 6d 20 74 68 65 |d notes |from the|
|00004fa0| 20 61 75 74 68 6f 72 3a | 0a 58 0a 58 09 54 68 69 | author:|.X.X.Thi|
|00004fb0| 73 20 70 72 6f 67 72 61 | 6d 73 20 63 6f 6d 70 75 |s progra|ms compu|
|00004fc0| 74 65 73 20 61 6e 64 20 | 70 72 69 6e 74 73 20 46 |tes and |prints F|
|00004fd0| 69 62 6f 6e 61 63 63 69 | 20 6e 75 6d 62 65 72 73 |ibonacci| numbers|
|00004fe0| 20 62 79 0a 58 09 73 69 | 6d 75 6c 61 74 69 6e 67 | by.X.si|mulating|
|00004ff0| 20 61 20 54 75 72 69 6e | 67 20 6d 61 63 68 69 6e | a Turin|g machin|
|00005000| 65 20 77 69 74 68 20 74 | 68 65 20 70 72 6f 70 65 |e with t|he prope|
|00005010| 72 20 70 72 6f 67 72 61 | 6d 2e 0a 58 09 55 6e 64 |r progra|m..X.Und|
|00005020| 65 72 73 74 61 6e 64 69 | 6e 67 20 74 68 65 20 43 |erstandi|ng the C|
|00005030| 20 70 72 6f 67 72 61 6d | 2c 20 69 2e 65 2e 2c 20 | program|, i.e., |
|00005040| 61 20 54 75 72 69 6e 67 | 20 6d 61 63 68 69 6e 65 |a Turing| machine|
|00005050| 20 73 69 6d 75 6c 61 74 | 6f 72 2c 0a 58 09 69 73 | simulat|or,.X.is|
|00005060| 20 6f 6e 6c 79 20 74 68 | 65 20 66 69 72 73 74 20 | only th|e first |
|00005070| 61 6e 64 20 73 69 6d 70 | 6c 65 73 74 20 73 74 65 |and simp|lest ste|
|00005080| 70 2e 20 20 54 68 65 20 | 54 75 72 69 6e 67 20 6d |p.  The |Turing m|
|00005090| 61 63 68 69 6e 65 0a 58 | 09 70 72 6f 67 72 61 6d |achine.X|.program|
|000050a0| 20 6d 75 73 74 20 62 65 | 20 75 6e 64 65 72 73 74 | must be| underst|
|000050b0| 6f 6f 64 2c 20 74 6f 6f | 21 20 20 28 69 74 20 69 |ood, too|!  (it i|
|000050c0| 73 20 74 72 69 76 69 61 | 6c 2c 20 70 65 72 68 61 |s trivia|l, perha|
|000050d0| 70 73 20 65 76 65 6e 0a | 58 09 6e 61 74 75 72 61 |ps even.|X.natura|
|000050e0| 6c 20 74 6f 20 77 72 69 | 74 65 20 69 6e 63 72 65 |l to wri|te incre|
|000050f0| 64 69 62 6c 79 20 6f 62 | 73 63 75 72 65 20 54 75 |dibly ob|scure Tu|
|00005100| 72 69 6e 67 20 70 72 6f | 67 72 61 6d 73 2e 29 0a |ring pro|grams.).|
|00005110| 58 0a 58 09 49 66 20 74 | 68 65 20 70 72 6f 67 72 |X.X.If t|he progr|
|00005120| 61 6d 20 69 73 20 69 6e | 76 6f 6b 65 64 20 77 69 |am is in|voked wi|
|00005130| 74 68 20 61 6e 20 6f 70 | 65 72 61 6e 64 2c 20 74 |th an op|erand, t|
|00005140| 68 65 20 6f 70 65 72 61 | 6e 64 20 69 73 20 75 73 |he opera|nd is us|
|00005150| 65 64 0a 58 09 61 73 20 | 74 68 65 20 54 75 72 69 |ed.X.as |the Turi|
|00005160| 6e 67 20 70 72 6f 67 72 | 61 6d 2e 20 20 49 74 20 |ng progr|am.  It |
|00005170| 69 6e 63 6c 75 64 65 73 | 20 61 20 22 74 72 61 63 |includes| a "trac|
|00005180| 65 22 20 66 61 63 69 6c | 69 74 79 2c 0a 58 09 73 |e" facil|ity,.X.s|
|00005190| 75 62 72 6f 75 74 69 6e | 65 20 72 20 28 63 6f 6d |ubroutin|e r (com|
|000051a0| 6d 65 6e 74 65 64 20 6f | 75 74 20 66 6f 72 20 6f |mented o|ut for o|
|000051b0| 62 73 63 75 72 69 74 79 | 29 2c 20 74 6f 20 68 65 |bscurity|), to he|
|000051c0| 6c 70 20 77 72 69 74 65 | 20 61 6e 64 0a 58 09 64 |lp write| and.X.d|
|000051d0| 65 62 75 67 20 54 75 72 | 69 6e 67 20 70 72 6f 67 |ebug Tur|ing prog|
|000051e0| 72 61 6d 73 2e 20 20 4a | 75 73 74 20 74 68 65 20 |rams.  J|ust the |
|000051f0| 74 68 69 6e 67 20 66 6f | 72 20 73 6f 6d 65 20 66 |thing fo|r some f|
|00005200| 75 6e 20 69 6e 20 61 20 | 54 68 65 6f 72 79 0a 58 |un in a |Theory.X|
|00005210| 09 6f 66 20 43 6f 6d 70 | 75 74 61 74 69 6f 6e 20 |.of Comp|utation |
|00005220| 63 6c 61 73 73 2e 0a 58 | 0a 58 09 54 68 65 20 54 |class..X|.X.The T|
|00005230| 75 72 69 6e 67 20 6d 61 | 63 68 69 6e 65 20 74 61 |uring ma|chine ta|
|00005240| 70 65 20 69 73 20 72 65 | 70 72 65 73 65 6e 74 65 |pe is re|presente|
|00005250| 64 20 61 73 20 61 20 64 | 6f 75 62 6c 79 20 6c 69 |d as a d|oubly li|
|00005260| 6e 6b 65 64 20 6c 69 73 | 74 0a 58 09 6f 66 20 70 |nked lis|t.X.of p|
|00005270| 6f 69 6e 74 65 72 73 2e | 20 20 54 68 65 20 66 6f |ointers.|  The fo|
|00005280| 72 77 61 72 64 20 61 6e | 64 20 62 61 63 6b 77 61 |rward an|d backwa|
|00005290| 72 64 20 6c 69 6e 6b 73 | 20 61 72 65 20 58 4f 52 |rd links| are XOR|
|000052a0| 27 64 20 74 6f 67 65 74 | 68 65 72 0a 58 09 61 6e |'d toget|her.X.an|
|000052b0| 64 20 73 74 6f 72 65 64 | 20 69 6e 20 6f 6e 65 20 |d stored| in one |
|000052c0| 70 6f 69 6e 74 65 72 2e | 20 20 49 66 20 77 65 20 |pointer.|  If we |
|000052d0| 61 6c 77 61 79 73 20 6b | 65 65 70 20 6f 6e 65 20 |always k|eep one |
|000052e0| 6f 66 20 74 68 65 20 6c | 69 6e 6b 73 0a 58 09 6f |of the l|inks.X.o|
|000052f0| 6e 20 68 61 6e 64 2c 20 | 77 65 20 63 61 6e 20 72 |n hand, |we can r|
|00005300| 65 63 6f 76 65 72 20 74 | 68 65 20 6f 74 68 65 72 |ecover t|he other|
|00005310| 20 6c 69 6e 6b 20 61 74 | 20 61 6e 79 20 74 69 6d | link at| any tim|
|00005320| 65 2e 20 20 54 68 65 0a | 58 09 76 61 72 69 61 62 |e.  The.|X.variab|
|00005330| 6c 65 20 71 20 69 73 20 | 74 68 65 20 73 63 61 6e |le q is |the scan|
|00005340| 20 68 65 61 64 20 28 61 | 6e 64 20 61 20 70 6f 69 | head (a|nd a poi|
|00005350| 6e 74 65 72 20 61 74 20 | 73 6f 6d 65 20 74 61 70 |nter at |some tap|
|00005360| 65 20 63 65 6c 6c 29 2c | 0a 58 09 61 6e 64 20 70 |e cell),|.X.and p|
|00005370| 20 69 73 20 61 20 22 70 | 72 65 76 69 6f 75 73 22 | is a "p|revious"|
|00005380| 20 6c 69 6e 6b 2e 20 20 | 54 68 65 20 73 74 61 74 | link.  |The stat|
|00005390| 65 20 6f 66 20 74 68 65 | 20 74 61 70 65 20 69 73 |e of the| tape is|
|000053a0| 20 73 74 6f 72 65 64 20 | 69 6e 0a 58 09 74 68 65 | stored |in.X.the|
|000053b0| 20 6c 6f 77 20 6f 72 64 | 65 72 20 62 69 74 20 6f | low ord|er bit o|
|000053c0| 66 20 74 68 65 20 70 6f | 69 6e 74 65 72 2e 20 20 |f the po|inter.  |
|000053d0| 53 69 6e 63 65 20 77 65 | 20 61 6c 77 61 79 73 20 |Since we| always |
|000053e0| 61 6c 6c 6f 63 61 74 65 | 20 61 6e 0a 58 09 65 76 |allocate| an.X.ev|
|000053f0| 65 6e 20 6e 75 6d 62 65 | 72 20 6f 66 20 62 79 74 |en numbe|r of byt|
|00005400| 65 73 2c 20 74 68 65 20 | 6c 6f 77 20 6f 72 64 65 |es, the |low orde|
|00005410| 72 20 62 69 74 20 63 61 | 72 72 69 65 73 20 6e 6f |r bit ca|rries no|
|00005420| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 0a 58 09 28 | informa|tion.X.(|
|00005430| 73 65 65 20 70 6f 72 74 | 61 62 69 6c 69 74 79 20 |see port|ability |
|00005440| 62 65 6c 6f 77 2e 29 20 | 4d 65 6d 6f 72 79 20 72 |below.) |Memory r|
|00005450| 65 70 72 65 73 65 6e 74 | 69 6e 67 20 61 20 74 61 |epresent|ing a ta|
|00005460| 70 65 20 63 65 6c 6c 20 | 69 73 0a 58 09 61 6c 6c |pe cell |is.X.all|
|00005470| 6f 63 61 74 65 64 20 77 | 68 65 6e 20 74 68 65 20 |ocated w|hen the |
|00005480| 63 65 6c 6c 20 69 73 20 | 66 69 72 73 74 20 73 63 |cell is |first sc|
|00005490| 61 6e 6e 65 64 2e 20 20 | 54 68 75 73 20 74 68 65 |anned.  |Thus the|
|000054a0| 20 73 69 6d 75 6c 61 74 | 69 6f 6e 0a 58 09 62 65 | simulat|ion.X.be|
|000054b0| 67 69 6e 73 20 77 69 74 | 68 20 61 20 74 61 70 65 |gins wit|h a tape|
|000054c0| 20 65 66 66 65 63 74 69 | 76 65 6c 79 20 74 68 65 | effecti|vely the|
|000054d0| 20 73 69 7a 65 20 6f 66 | 20 76 69 72 74 75 61 6c | size of| virtual|
|000054e0| 20 6d 65 6d 6f 72 79 20 | 73 65 74 0a 58 09 74 6f | memory |set.X.to|
|000054f0| 20 61 6c 6c 20 7a 65 72 | 6f 73 2e 20 20 53 69 6e | all zer|os.  Sin|
|00005500| 63 65 20 61 20 68 65 61 | 64 65 72 20 63 61 6e 20 |ce a hea|der can |
|00005510| 62 65 20 61 64 64 65 64 | 20 74 6f 20 61 6e 79 20 |be added| to any |
|00005520| 54 75 72 69 6e 67 0a 58 | 09 70 72 6f 67 72 61 6d |Turing.X|.program|
|00005530| 20 74 6f 20 77 72 69 74 | 65 20 69 6e 69 74 69 61 | to writ|e initia|
|00005540| 6c 20 64 61 74 61 20 61 | 6e 64 20 70 6f 73 69 74 |l data a|nd posit|
|00005550| 69 6f 6e 20 74 68 65 20 | 73 63 61 6e 20 68 65 61 |ion the |scan hea|
|00005560| 64 2c 20 74 68 69 73 0a | 58 09 69 73 20 6c 69 74 |d, this.|X.is lit|
|00005570| 74 6c 65 20 6c 6f 73 73 | 20 6f 66 20 67 65 6e 65 |tle loss| of gene|
|00005580| 72 61 6c 69 74 79 2e 0a | 58 0a 58 09 54 68 65 20 |rality..|X.X.The |
|00005590| 73 69 6d 75 6c 61 74 65 | 64 20 54 75 72 69 6e 67 |simulate|d Turing|
|000055a0| 20 6d 61 63 68 69 6e 65 | 20 68 61 73 20 61 20 73 | machine| has a s|
|000055b0| 69 6e 67 6c 65 20 74 61 | 70 65 20 77 69 74 68 20 |ingle ta|pe with |
|000055c0| 65 69 74 68 65 72 20 61 | 6e 20 31 0a 58 09 6f 72 |either a|n 1.X.or|
|000055d0| 20 61 20 30 20 69 6e 20 | 65 61 63 68 20 63 65 6c | a 0 in |each cel|
|000055e0| 6c 2e 20 20 54 68 65 20 | 54 75 72 69 6e 67 20 6d |l.  The |Turing m|
|000055f0| 61 63 68 69 6e 65 20 6c | 61 6e 67 75 61 67 65 20 |achine l|anguage |
|00005600| 66 6f 72 6d 61 74 20 69 | 73 20 61 0a 58 09 73 74 |format i|s a.X.st|
|00005610| 72 69 6e 67 20 6f 66 20 | 74 68 72 65 65 20 62 79 |ring of |three by|
|00005620| 74 65 73 2e 20 20 54 68 | 65 20 66 69 72 73 74 20 |tes.  Th|e first |
|00005630| 62 79 74 65 20 69 73 20 | 74 68 65 20 63 75 72 72 |byte is |the curr|
|00005640| 65 6e 74 20 73 74 61 74 | 65 2e 0a 58 09 54 68 65 |ent stat|e..X.The|
|00005650| 20 73 65 63 6f 6e 64 20 | 62 79 74 65 20 69 73 20 | second |byte is |
|00005660| 74 68 65 20 6e 65 78 74 | 20 73 74 61 74 65 2e 20 |the next| state. |
|00005670| 20 28 54 68 65 20 6c 61 | 73 74 20 62 69 74 20 6f | (The la|st bit o|
|00005680| 66 20 73 74 61 74 65 73 | 20 69 73 0a 58 09 69 67 |f states| is.X.ig|
|00005690| 6e 6f 72 65 64 2c 20 65 | 2e 67 2e 2c 20 42 20 61 |nored, e|.g., B a|
|000056a0| 6e 64 20 43 20 61 72 65 | 20 74 68 65 20 73 61 6d |nd C are| the sam|
|000056b0| 65 20 73 74 61 74 65 2c | 20 69 6e 20 61 6e 20 61 |e state,| in an a|
|000056c0| 74 74 65 6d 70 74 20 74 | 6f 20 62 65 0a 58 09 61 |ttempt t|o be.X.a|
|000056d0| 62 6c 65 20 74 6f 20 68 | 61 76 65 20 69 6e 74 65 |ble to h|ave inte|
|000056e0| 72 65 73 74 69 6e 67 20 | 77 6f 72 64 73 20 69 6e |resting |words in|
|000056f0| 20 74 68 65 20 70 72 6f | 67 72 61 6d 2e 29 20 20 | the pro|gram.)  |
|00005700| 54 68 65 20 74 68 69 72 | 64 20 62 79 74 65 0a 58 |The thir|d byte.X|
|00005710| 09 69 73 20 63 6f 6d 70 | 6f 73 65 64 20 6f 66 20 |.is comp|osed of |
|00005720| 62 69 74 73 2e 20 20 42 | 69 74 20 31 20 28 32 26 |bits.  B|it 1 (2&|
|00005730| 62 79 74 65 29 20 69 73 | 20 74 68 65 20 73 79 6d |byte) is| the sym|
|00005740| 62 6f 6c 20 73 63 61 6e | 6e 65 64 2c 0a 58 09 69 |bol scan|ned,.X.i|
|00005750| 2e 65 2e 20 61 6e 20 69 | 6e 73 74 72 75 63 74 69 |.e. an i|nstructi|
|00005760| 6f 6e 20 69 73 20 73 65 | 6c 65 63 74 65 64 20 66 |on is se|lected f|
|00005770| 6f 72 20 73 74 61 74 65 | 20 61 6e 64 20 66 6f 72 |or state| and for|
|00005780| 20 61 20 6d 61 74 63 68 | 20 77 69 74 68 0a 58 09 | a match| with.X.|
|00005790| 74 68 65 20 73 79 6d 62 | 6f 6c 20 75 6e 64 65 72 |the symb|ol under|
|000057a0| 20 74 68 65 20 73 63 61 | 6e 20 68 65 61 64 2e 20 | the sca|n head. |
|000057b0| 20 42 69 74 20 32 20 28 | 34 26 62 79 74 65 29 20 | Bit 2 (|4&byte) |
|000057c0| 69 73 20 74 68 65 20 6e | 65 77 0a 58 09 73 79 6d |is the n|ew.X.sym|
|000057d0| 62 6f 6c 20 74 6f 20 62 | 65 20 77 72 69 74 74 65 |bol to b|e writte|
|000057e0| 6e 20 74 6f 20 74 68 65 | 20 63 65 6c 6c 2e 20 20 |n to the| cell.  |
|000057f0| 42 69 74 20 33 20 28 38 | 26 62 79 74 65 29 20 69 |Bit 3 (8|&byte) i|
|00005800| 73 20 74 68 65 0a 58 09 | 64 69 72 65 63 74 69 6f |s the.X.|directio|
|00005810| 6e 20 74 6f 20 6d 6f 76 | 65 20 74 68 65 20 73 63 |n to mov|e the sc|
|00005820| 61 6e 20 68 65 61 64 3a | 20 30 20 66 6f 72 20 6c |an head:| 0 for l|
|00005830| 65 66 74 20 61 6e 64 20 | 31 20 66 6f 72 20 72 69 |eft and |1 for ri|
|00005840| 67 68 74 2e 0a 58 09 49 | 66 20 62 69 74 20 34 20 |ght..X.I|f bit 4 |
|00005850| 28 31 36 26 62 79 74 65 | 29 20 69 73 20 74 72 75 |(16&byte|) is tru|
|00005860| 65 2c 20 74 68 65 20 6e | 65 78 74 20 63 68 61 72 |e, the n|ext char|
|00005870| 61 63 74 65 72 20 69 73 | 20 73 65 6e 74 20 74 6f |acter is| sent to|
|00005880| 0a 58 09 73 74 64 6f 75 | 74 2e 20 20 28 49 20 61 |.X.stdou|t.  (I a|
|00005890| 64 64 65 64 20 74 68 69 | 73 20 66 65 61 74 75 72 |dded thi|s featur|
|000058a0| 65 20 73 6f 20 70 72 6f | 67 72 61 6d 73 20 63 6f |e so pro|grams co|
|000058b0| 75 6c 64 20 70 72 69 6e | 74 0a 58 09 72 65 73 75 |uld prin|t.X.resu|
|000058c0| 6c 74 73 2e 29 0a 58 0a | 58 09 54 68 65 20 54 75 |lts.).X.|X.The Tu|
|000058d0| 72 69 6e 67 20 6d 61 63 | 68 69 6e 65 20 68 61 73 |ring mac|hine has|
|000058e0| 20 6e 65 78 74 20 73 74 | 61 74 65 20 27 6a 27 20 | next st|ate 'j' |
|000058f0| 77 68 65 6e 20 69 74 20 | 62 65 67 69 6e 73 2e 20 |when it |begins. |
|00005900| 20 54 68 65 0a 58 09 63 | 79 63 6c 65 20 69 73 20 | The.X.c|ycle is |
|00005910| 31 29 20 65 78 69 74 20 | 69 66 20 74 68 65 20 73 |1) exit |if the s|
|00005920| 74 61 74 65 20 69 73 20 | 27 78 27 2c 20 32 29 20 |tate is |'x', 2) |
|00005930| 66 69 6e 64 20 74 68 65 | 20 6e 65 78 74 0a 58 09 |find the| next.X.|
|00005940| 69 6e 73 74 72 75 63 74 | 69 6f 6e 20 28 67 69 76 |instruct|ion (giv|
|00005950| 65 6e 20 74 68 65 20 73 | 74 61 74 65 20 61 6e 64 |en the s|tate and|
|00005960| 20 74 68 65 20 63 68 61 | 72 61 63 74 65 72 20 75 | the cha|racter u|
|00005970| 6e 64 65 72 20 74 68 65 | 20 73 63 61 6e 0a 58 09 |nder the| scan.X.|
|00005980| 68 65 61 64 29 2e 20 20 | 5b 54 68 65 20 70 72 6f |head).  |[The pro|
|00005990| 67 72 61 6d 20 73 74 72 | 69 6e 67 20 69 73 20 73 |gram str|ing is s|
|000059a0| 65 61 72 63 68 65 64 20 | 66 6f 72 77 61 72 64 20 |earched |forward |
|000059b0| 66 6f 72 20 74 68 65 20 | 6e 65 78 74 0a 58 09 6d |for the |next.X.m|
|000059c0| 61 74 63 68 69 6e 67 20 | 69 6e 73 74 72 75 63 74 |atching |instruct|
|000059d0| 69 6f 6e 2e 20 20 49 66 | 20 74 68 65 20 65 6e 64 |ion.  If| the end|
|000059e0| 20 6f 66 20 74 68 65 20 | 73 74 72 69 6e 67 20 69 | of the |string i|
|000059f0| 73 20 72 65 61 63 68 65 | 64 2c 20 74 68 65 0a 58 |s reache|d, the.X|
|00005a00| 09 73 65 61 72 63 68 20 | 62 65 67 69 6e 73 20 61 |.search |begins a|
|00005a10| 67 61 69 6e 20 61 74 20 | 74 68 65 20 66 69 72 73 |gain at |the firs|
|00005a20| 74 20 6f 66 20 74 68 65 | 20 73 74 72 69 6e 67 2e |t of the| string.|
|00005a30| 20 20 54 68 75 73 20 73 | 74 61 74 65 73 0a 58 09 |  Thus s|tates.X.|
|00005a40| 63 61 6e 20 62 65 20 75 | 73 65 64 20 61 73 20 6c |can be u|sed as l|
|00005a50| 6f 63 61 6c 20 6c 61 62 | 65 6c 73 20 69 6e 20 64 |ocal lab|els in d|
|00005a60| 69 66 66 65 72 65 6e 74 | 20 70 6c 61 63 65 73 2e |ifferent| places.|
|00005a70| 5d 20 20 33 29 20 63 68 | 61 6e 67 65 20 74 6f 0a |]  3) ch|ange to.|
|00005a80| 58 09 74 68 65 20 6e 65 | 78 74 20 73 74 61 74 65 |X.the ne|xt state|
|00005a90| 2c 20 34 29 20 70 72 69 | 6e 74 20 61 20 63 68 61 |, 4) pri|nt a cha|
|00005aa0| 72 61 63 74 65 72 20 69 | 66 20 69 6e 64 69 63 61 |racter i|f indica|
|00005ab0| 74 65 64 2c 20 35 29 20 | 77 72 69 74 65 20 74 68 |ted, 5) |write th|
|00005ac0| 65 0a 58 09 74 61 70 65 | 20 73 79 6d 62 6f 6c 2c |e.X.tape| symbol,|
|00005ad0| 20 61 6e 64 20 36 29 20 | 6d 6f 76 65 20 74 68 65 | and 6) |move the|
|00005ae0| 20 73 63 61 6e 20 68 65 | 61 64 2e 20 20 54 68 65 | scan he|ad.  The|
|00005af0| 20 63 79 63 6c 65 20 74 | 68 65 6e 20 72 65 70 65 | cycle t|hen repe|
|00005b00| 61 74 73 0a 58 09 77 69 | 74 68 20 73 74 65 70 20 |ats.X.wi|th step |
|00005b10| 31 2e 20 20 41 20 63 61 | 6c 6c 20 74 6f 20 74 68 |1.  A ca|ll to th|
|00005b20| 65 20 74 72 61 63 65 20 | 72 6f 75 74 69 6e 65 20 |e trace |routine |
|00005b30| 69 73 20 6a 75 73 74 20 | 62 65 66 6f 72 65 20 73 |is just |before s|
|00005b40| 74 65 70 0a 58 09 32 2c | 20 62 75 74 20 69 73 20 |tep.X.2,| but is |
|00005b50| 63 6f 6d 6d 65 6e 74 65 | 64 20 6f 75 74 2e 0a 58 |commente|d out..X|
|00005b60| 0a 58 09 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |.X.The f|ollowing|
|00005b70| 20 52 4f 54 31 33 27 65 | 64 20 74 65 78 74 20 69 | ROT13'e|d text i|
|00005b80| 73 20 61 20 71 75 69 63 | 6b 20 6f 75 74 6c 69 6e |s a quic|k outlin|
|00005b90| 65 20 6f 66 20 74 68 65 | 20 61 63 74 75 61 6c 0a |e of the| actual.|
|00005ba0| 58 09 54 75 72 69 6e 67 | 20 70 72 6f 67 72 61 6d |X.Turing| program|
|00005bb0| 3a 0a 58 0a 58 09 09 55 | 72 65 72 20 76 66 20 6e |:.X.X..U|rer vf n|
|00005bc0| 20 64 68 76 70 78 20 62 | 68 67 79 76 61 72 20 62 | dhvpx b|hgyvar b|
|00005bd0| 73 20 67 75 72 20 47 68 | 65 76 61 74 20 63 65 62 |s gur Gh|evat ceb|
|00005be0| 74 65 6e 7a 3a 20 67 75 | 72 0a 58 09 09 63 65 72 |tenz: gu|r.X..cer|
|00005bf0| 69 76 62 68 66 20 6e 61 | 71 20 70 68 65 65 72 61 |ivbhf na|q pheera|
|00005c00| 67 20 53 76 6f 62 61 6e | 70 70 76 20 61 68 7a 6f |g Svoban|ppv ahzo|
|00005c10| 72 65 66 20 6e 65 72 20 | 78 72 63 67 20 76 61 20 |ref ner |xrcg va |
|00005c20| 6f 6e 66 72 0a 58 09 09 | 31 20 73 62 65 7a 20 6a |onfr.X..|1 sbez j|
|00005c30| 76 67 75 20 67 75 72 20 | 70 68 65 65 72 61 67 20 |vgu gur |pheerag |
|00005c40| 62 61 20 67 75 72 20 65 | 76 74 75 67 2e 20 20 47 |ba gur e|vtug.  G|
|00005c50| 75 72 20 73 76 65 66 67 | 20 67 75 65 72 72 0a 58 |ur svefg| guerr.X|
|00005c60| 09 09 66 67 72 63 66 20 | 66 72 67 20 68 63 20 67 |..fgrcf |frg hc g|
|00005c70| 75 72 20 73 76 65 66 67 | 20 67 6a 62 20 61 68 7a |ur svefg| gjb ahz|
|00005c80| 6f 72 65 66 2c 20 31 20 | 6e 61 71 20 31 2e 20 20 |oref, 1 |naq 1.  |
|00005c90| 47 75 72 61 0a 58 09 09 | 5b 6f 72 74 76 61 61 76 |Gura.X..|[ortvaav|
|00005ca0| 61 74 20 6a 76 67 75 20 | 22 40 20 28 22 5d 20 6e |at jvgu |"@ ("] n|
|00005cb0| 20 7a 6e 65 78 72 65 20 | 62 73 20 56 56 56 20 76 | znexre |bs VVV v|
|00005cc0| 66 20 70 65 72 6e 67 72 | 71 20 6e 61 71 0a 58 09 |f perngr|q naq.X.|
|00005cd0| 09 67 75 72 20 70 68 65 | 65 72 61 67 20 61 68 7a |.gur phe|erag ahz|
|00005ce0| 6f 72 65 20 76 66 20 70 | 62 63 76 72 71 20 67 62 |ore vf p|bcvrq gb|
|00005cf0| 20 67 75 72 20 65 76 74 | 75 67 20 62 73 20 67 75 | gur evt|ug bs gu|
|00005d00| 72 0a 58 09 09 7a 6e 65 | 78 72 65 2e 20 20 47 75 |r.X..zne|xre.  Gu|
|00005d10| 72 61 20 5b 6f 72 74 76 | 61 61 76 61 74 20 6a 76 |ra [ortv|aavat jv|
|00005d20| 67 75 20 22 42 49 20 22 | 5d 20 67 75 72 20 61 68 |gu "BI "|] gur ah|
|00005d30| 7a 6f 72 65 20 76 66 0a | 58 09 09 70 62 61 69 72 |zore vf.|X..pbair|
|00005d40| 65 67 72 71 20 67 62 20 | 6f 76 61 6e 65 6c 20 6f |egrq gb |ovanel o|
|00005d50| 6c 20 65 72 63 72 6e 67 | 72 71 20 71 76 69 76 71 |l ercrng|rq qvivq|
|00005d60| 76 61 74 20 6f 6c 20 32 | 20 79 72 6e 69 76 61 74 |vat ol 2| yrnivat|
|00005d70| 20 56 0a 58 09 09 73 62 | 65 20 65 72 7a 6e 76 61 | V.X..sb|e erznva|
|00005d80| 71 72 65 20 31 2c 20 6e | 61 71 20 56 56 20 73 62 |qre 1, n|aq VV sb|
|00005d90| 65 20 65 72 7a 6e 76 61 | 71 72 65 20 30 2e 20 20 |e erznva|qre 0.  |
|00005da0| 41 72 6b 67 0a 58 09 09 | 5b 6f 72 74 76 61 61 76 |Arkg.X..|[ortvaav|
|00005db0| 61 74 20 6a 76 67 75 20 | 22 4a 49 20 22 5d 20 67 |at jvgu |"JI "] g|
|00005dc0| 75 72 20 6f 76 61 6e 65 | 6c 20 65 72 63 65 72 66 |ur ovane|l ercerf|
|00005dd0| 72 61 67 6e 67 76 62 61 | 20 76 66 0a 58 09 09 63 |ragngvba| vf.X..c|
|00005de0| 65 76 61 67 72 71 20 6e | 61 71 20 76 67 66 20 66 |evagrq n|aq vgf f|
|00005df0| 6c 7a 6f 62 79 66 20 6e | 61 71 20 67 75 72 20 7a |lzobyf n|aq gur z|
|00005e00| 6e 65 78 72 65 20 6e 65 | 72 20 72 65 6e 66 72 71 |nexre ne|r renfrq|
|00005e10| 2e 0a 58 09 09 53 76 61 | 6e 79 79 6c 20 5b 6f 72 |..X..Sva|nyyl [or|
|00005e20| 74 76 61 61 76 61 74 20 | 6a 76 67 75 20 22 52 52 |tvaavat |jvgu "RR|
|00005e30| 61 22 5d 20 67 75 72 20 | 67 6a 62 20 61 68 7a 6f |a"] gur |gjb ahzo|
|00005e40| 72 65 66 20 6e 65 72 0a | 58 09 09 6e 71 71 72 71 |ref ner.|X..nqqrq|
|00005e50| 20 6e 61 71 20 67 75 72 | 20 70 68 65 65 72 61 67 | naq gur| pheerag|
|00005e60| 20 61 68 7a 6f 72 65 20 | 70 62 63 76 72 71 20 67 | ahzore |pbcvrq g|
|00005e70| 62 20 67 75 72 20 79 72 | 73 67 20 67 62 0a 58 09 |b gur yr|sg gb.X.|
|00005e80| 09 6f 72 70 62 7a 72 20 | 67 75 72 20 63 65 72 69 |.orpbzr |gur ceri|
|00005e90| 76 62 68 66 2e 20 20 47 | 75 72 61 20 67 75 72 20 |vbhf.  G|ura gur |
|00005ea0| 70 6c 70 79 72 20 65 72 | 63 72 6e 67 66 2e 0a 58 |plpyr er|crngf..X|
|00005eb0| 0a 58 09 54 68 65 20 70 | 72 6f 67 72 61 6d 20 72 |.X.The p|rogram r|
|00005ec0| 65 71 75 69 72 65 73 20 | 74 68 61 74 20 74 68 65 |equires |that the|
|00005ed0| 20 6c 6f 77 65 73 74 20 | 62 69 74 20 6f 66 20 61 | lowest |bit of a|
|00005ee0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 62 65 20 30 | pointer| to be 0|
|00005ef0| 2e 0a 58 0a 58 09 49 20 | 63 6f 75 6c 64 20 68 61 |..X.X.I |could ha|
|00005f00| 76 65 20 73 71 75 65 65 | 7a 65 64 20 74 68 65 20 |ve squee|zed the |
|00005f10| 70 72 6f 67 72 61 6d 20 | 75 6e 64 65 72 20 31 30 |program |under 10|
|00005f20| 32 34 20 62 79 74 65 73 | 20 77 69 74 68 6f 75 74 |24 bytes| without|
|00005f30| 20 74 68 65 0a 58 09 74 | 72 61 63 65 20 73 75 62 | the.X.t|race sub|
|00005f40| 72 6f 75 74 69 6e 65 2c | 20 62 75 74 20 49 20 66 |routine,| but I f|
|00005f50| 65 6c 74 20 69 74 20 77 | 61 73 20 69 6d 70 6f 72 |elt it w|as impor|
|00005f60| 74 61 6e 74 20 66 6f 72 | 20 75 6e 64 65 72 73 74 |tant for| underst|
|00005f70| 61 6e 64 69 6e 67 0a 58 | 09 74 68 65 20 70 72 6f |anding.X|.the pro|
|00005f80| 67 72 61 6d 2e 20 20 42 | 65 73 69 64 65 73 20 69 |gram.  B|esides i|
|00005f90| 74 20 69 73 20 66 75 6e | 20 74 6f 20 77 61 74 63 |t is fun| to watc|
|00005fa0| 68 20 74 68 65 20 74 61 | 70 65 20 7a 6f 6f 6d 69 |h the ta|pe zoomi|
|00005fb0| 6e 67 20 62 61 63 6b 0a | 58 09 61 6e 64 20 66 6f |ng back.|X.and fo|
|00005fc0| 72 74 68 20 61 73 20 74 | 68 65 20 70 72 6f 67 72 |rth as t|he progr|
|00005fd0| 61 6d 20 72 75 6e 73 2e | 20 20 41 20 6d 75 63 68 |am runs.|  A much|
|00005fe0| 20 62 65 74 74 65 72 20 | 64 65 62 75 67 67 65 72 | better |debugger|
|00005ff0| 20 6f 72 20 74 72 61 63 | 65 0a 58 09 63 6f 75 6c | or trac|e.X.coul|
|00006000| 64 20 65 61 73 69 6c 79 | 20 62 65 20 61 64 64 65 |d easily| be adde|
|00006010| 64 2e 0a 2f 2f 45 2a 4f | 2a 46 20 31 39 38 39 2f |d..//E*O|*F 1989/|
|00006020| 70 61 75 6c 2e 68 69 6e | 74 2f 2f 0a 0a 65 63 68 |paul.hin|t//..ech|
|00006030| 6f 20 78 20 2d 20 31 39 | 38 39 2f 72 6f 62 69 73 |o x - 19|89/robis|
|00006040| 6f 6e 2e 63 0a 73 65 64 | 20 2d 65 20 27 73 2f 5e |on.c.sed| -e 's/^|
|00006050| 58 2f 2f 27 20 3e 20 22 | 31 39 38 39 2f 72 6f 62 |X//' > "|1989/rob|
|00006060| 69 73 6f 6e 2e 63 22 20 | 3c 3c 20 27 2f 2f 45 2a |ison.c" |<< '//E*|
|00006070| 4f 2a 46 20 31 39 38 39 | 2f 72 6f 62 69 73 6f 6e |O*F 1989|/robison|
|00006080| 2e 63 2f 2f 27 0a 58 20 | 74 79 70 65 64 65 66 20 |.c//'.X |typedef |
|00006090| 73 74 72 75 63 74 20 41 | 2a 42 2c 2a 28 2a 43 29 |struct A|*B,*(*C)|
|000060a0| 28 29 3b 73 74 72 75 63 | 74 20 41 7b 43 28 2a 64 |();struc|t A{C(*d|
|000060b0| 29 28 29 3b 42 20 65 3b | 7d 2a 76 28 29 2c 2a 62 |)();B e;|}*v(),*b|
|000060c0| 3b 43 20 6e 5b 32 35 36 | 5d 3b 0a 58 23 20 69 6e |;C n[256|];.X# in|
|000060d0| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|000060e0| 58 23 64 65 66 69 6e 65 | 20 61 20 28 64 2d 3e 65 |X#define| a (d->e|
|000060f0| 29 0a 58 23 64 65 66 69 | 6e 65 20 6f 20 28 42 29 |).X#defi|ne o (B)|
|00006100| 70 72 69 6e 74 66 0a 58 | 23 64 65 66 69 6e 65 20 |printf.X|#define |
|00006110| 58 28 5f 29 7b 72 65 74 | 75 72 6e 20 5f 3b 7d 0a |X(_){ret|urn _;}.|
|00006120| 58 23 64 65 66 69 6e 65 | 20 59 28 5f 2c 41 29 42 |X#define| Y(_,A)B|
|00006130| 20 5f 28 64 2c 65 29 42 | 20 64 2c 65 3b 58 28 41 | _(d,e)B| d,e;X(A|
|00006140| 29 0a 58 23 64 65 66 69 | 6e 65 20 5a 28 50 29 43 |).X#defi|ne Z(P)C|
|00006150| 20 50 28 66 2c 67 2c 68 | 2c 69 29 43 20 66 2c 67 | P(f,g,h|,i)C f,g|
|00006160| 2c 68 2c 69 3b 58 28 50 | 29 0a 58 23 64 65 66 69 |,h,i;X(P|).X#defi|
|00006170| 6e 65 20 63 28 5f 29 28 | 62 3d 28 42 29 6d 61 6c |ne c(_)(|b=(B)mal|
|00006180| 6c 6f 63 28 73 69 7a 65 | 6f 66 28 2a 62 29 29 2c |loc(size|of(*b)),|
|00006190| 62 2d 3e 64 3d 5f 2c 62 | 2d 3e 65 3d 64 2c 62 29 |b->d=_,b|->e=d,b)|
|000061a0| 0a 58 23 64 65 66 69 6e | 65 20 5f 28 44 2c 45 2c |.X#defin|e _(D,E,|
|000061b0| 46 2c 47 2c 48 29 42 20 | 44 28 29 3b 59 28 44 2f |F,G,H)B |D();Y(D/|
|000061c0| 2a 2a 2f 66 2c 45 29 59 | 28 44 2f 2a 2a 2f 67 2c |**/f,E)Y|(D/**/g,|
|000061d0| 46 29 59 28 44 2f 2a 2a | 2f 68 2c 47 29 59 28 44 |F)Y(D/**|/h,G)Y(D|
|000061e0| 2f 2a 2a 2f 69 2c 48 29 | 59 28 44 2c 28 2a 28 2a |/**/i,H)|Y(D,(*(*|
|000061f0| 64 2d 3e 64 29 28 44 2f | 2a 2a 2f 66 2c 44 2f 2a |d->d)(D/|**/f,D/*|
|00006200| 2a 2f 67 2c 44 2f 2a 2a | 2f 68 2c 44 2f 2a 2a 2f |*/g,D/**|/h,D/**/|
|00006210| 69 29 29 28 64 2c 65 29 | 29 0a 58 5a 28 66 29 0a |i))(d,e)|).XZ(f).|
|00006220| 58 5a 28 67 29 0a 58 5a | 28 68 29 0a 58 5a 28 69 |XZ(g).XZ|(h).XZ(i|
|00006230| 29 0a 58 5f 28 6a 2c 64 | 2c 64 2c 6a 20 61 2c 6a |).X_(j,d|,d,j a,j|
|00006240| 20 61 29 0a 58 5f 28 6b | 2c 64 2c 63 28 68 29 2c | a).X_(k|,d,c(h),|
|00006250| 63 28 68 29 2c 63 28 68 | 29 29 0a 58 5f 28 6c 2c |c(h),c(h|)).X_(l,|
|00006260| 63 28 69 29 2c 64 2c 63 | 28 69 29 2c 63 28 69 29 |c(i),d,c|(i),c(i)|
|00006270| 29 0a 58 5f 28 6d 2c 63 | 28 67 29 2c 63 28 66 29 |).X_(m,c|(g),c(f)|
|00006280| 2c 6c 28 6d 20 61 29 2c | 6b 28 6d 20 61 29 29 0a |,l(m a),|k(m a)).|
|00006290| 58 5f 28 70 2c 64 2c 6c | 28 6d 28 64 29 29 2c 6b |X_(p,d,l|(m(d)),k|
|000062a0| 28 70 20 61 29 2c 6c 28 | 6d 20 61 29 29 0a 58 5f |(p a),l(|m a)).X_|
|000062b0| 28 71 2c 6c 28 70 28 64 | 29 29 2c 6d 28 64 29 2c |(q,l(p(d|)),m(d),|
|000062c0| 6c 20 61 2c 6b 28 71 20 | 61 29 29 0a 58 5f 28 72 |l a,k(q |a)).X_(r|
|000062d0| 2c 6d 28 64 29 2c 6b 28 | 6d 66 20 61 29 2c 6c 28 |,m(d),k(|mf a),l(|
|000062e0| 72 20 61 29 2c 6b 20 61 | 29 0a 58 5f 28 73 2c 64 |r a),k a|).X_(s,d|
|000062f0| 2c 65 2c 6f 28 22 30 22 | 2c 73 20 61 29 2c 6f 28 |,e,o("0"|,s a),o(|
|00006300| 22 31 22 2c 73 20 61 29 | 29 0a 58 5f 28 74 2c 64 |"1",s a)|).X_(t,d|
|00006310| 2c 70 28 65 29 2c 6b 28 | 74 28 61 2c 65 29 29 2c |,p(e),k(|t(a,e)),|
|00006320| 76 28 6b 28 74 28 61 2c | 65 29 29 2c 65 29 29 0a |v(k(t(a,|e)),e)).|
|00006330| 58 5f 28 75 2c 6b 28 65 | 29 2c 6c 28 72 28 65 29 |X_(u,k(e|),l(r(e)|
|00006340| 29 2c 6b 28 76 28 61 2c | 65 29 29 2c 6c 28 76 28 |),k(v(a,|e)),l(v(|
|00006350| 61 2c 65 29 29 29 0a 58 | 5f 28 76 2c 65 2c 72 28 |a,e))).X|_(v,e,r(|
|00006360| 65 29 2c 75 28 65 2c 61 | 29 2c 75 28 71 28 65 29 |e),u(e,a|),u(q(e)|
|00006370| 2c 61 29 29 0a 58 5f 28 | 77 2c 6f 28 22 30 22 29 |,a)).X_(|w,o("0")|
|00006380| 2c 64 2c 73 28 64 29 2c | 73 28 64 29 29 0a 58 5f |,d,s(d),|s(d)).X_|
|00006390| 28 78 2c 28 2a 6e 5b 67 | 65 74 63 68 61 72 28 29 |(x,(*n[g|etchar()|
|000063a0| 5d 29 28 64 29 2c 6f 28 | 22 2d 31 22 29 2c 77 28 |])(d),o(|"-1"),w(|
|000063b0| 70 28 64 2c 6f 28 22 2d | 22 29 29 29 2c 78 68 28 |p(d,o("-|"))),xh(|
|000063c0| 64 29 29 0a 58 5f 28 79 | 2c 78 66 28 6d 67 28 29 |d)).X_(y|,xf(mg()|
|000063d0| 29 2c 76 28 64 2c 70 28 | 79 66 28 29 29 29 2c 76 |),v(d,p(|yf())),v|
|000063e0| 28 64 2c 79 66 28 29 29 | 2c 74 28 64 2c 79 66 28 |(d,yf())|,t(d,yf(|
|000063f0| 29 29 29 0a 58 5f 28 7a | 2c 78 66 28 79 66 28 29 |))).X_(z|,xf(yf()|
+--------+-------------------------+-------------------------+--------+--------+