/ RISCWORLD 3 / RISCWORLD_VOL3.iso / SOFTWARE / AGM / Dictionary

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 44 69 63 74 69 6f 6e 61 |..... > |Dictiona|
|00000010| 72 79 0d 00 14 05 3a 0d | 00 1e 0f f2 69 6e 69 74 |ry....:.|....init|
|00000020| 69 61 6c 69 73 65 0d 00 | 28 05 3a 0d 00 32 15 f4 |ialise..|(.:..2..|
|00000030| 20 20 20 74 65 73 74 20 | 72 6f 75 74 69 6e 65 73 |   test |routines|
|00000040| 0d 00 3c 05 3a 0d 00 46 | 21 f1 27 27 22 53 6f 72 |..<.:..F|!.''"Sor|
|00000050| 74 69 6e 67 20 6e 6f 72 | 6d 61 6c 20 20 54 69 6d |ting nor|mal  Tim|
|00000060| 65 20 3d 20 22 3b 0d 00 | 50 07 d1 3d 30 0d 00 5a |e = ";..|P..=0..Z|
|00000070| 12 f2 73 6f 72 74 28 77 | 6f 72 64 24 28 29 29 0d |..sort(w|ord$()).|
|00000080| 00 64 07 f1 3b 91 0d 00 | 6e 05 3a 0d 00 78 20 f1 |.d..;...|n.:..x .|
|00000090| 20 22 53 6f 72 74 69 6e | 67 20 70 61 63 6b 65 64 | "Sortin|g packed|
|000000a0| 20 20 54 69 6d 65 20 3d | 20 22 3b 0d 00 82 07 d1 |  Time =| ";.....|
|000000b0| 3d 30 0d 00 8c 12 f2 73 | 6f 72 74 28 70 61 63 6b |=0.....s|ort(pack|
|000000c0| 24 28 29 29 0d 00 96 07 | f1 3b 91 0d 00 a0 05 3a |$())....|.;.....:|
|000000d0| 0d 00 aa 11 61 24 3d 77 | 6f 72 64 24 28 31 30 33 |....a$=w|ord$(103|
|000000e0| 29 0d 00 b4 11 70 24 3d | 70 61 63 6b 24 28 31 30 |)....p$=|pack$(10|
|000000f0| 33 29 0d 00 be 2b f1 27 | 27 22 50 65 72 66 6f 72 |3)...+.'|'"Perfor|
|00000100| 6d 69 6e 67 20 73 65 61 | 72 63 68 65 73 20 22 3b |ming sea|rches ";|
|00000110| 4e 25 2b 31 20 22 20 74 | 69 6d 65 73 22 0d 00 c8 |N%+1 " t|imes"...|
|00000120| 05 3a 0d 00 d2 22 f1 27 | 22 53 65 61 72 63 68 69 |.:...".'|"Searchi|
|00000130| 6e 67 20 6e 6f 72 6d 61 | 6c 20 20 54 69 6d 65 20 |ng norma|l  Time |
|00000140| 3d 20 22 3b 0d 00 dc 07 | d1 3d 30 0d 00 e6 0f e3 |= ";....|.=0.....|
|00000150| 20 49 25 3d 30 20 b8 20 | 4e 25 0d 00 f0 19 66 25 | I%=0 . |N%....f%|
|00000160| 3d a4 6d 61 74 63 68 28 | 61 24 2c 77 6f 72 64 24 |=.match(|a$,word$|
|00000170| 28 29 29 0d 00 fa 05 ed | 0d 01 04 07 f1 3b 91 0d |()).....|.....;..|
|00000180| 01 0e 05 3a 0d 01 18 22 | f1 20 22 53 65 61 72 63 |...:..."|. "Searc|
|00000190| 68 69 6e 67 20 70 61 63 | 6b 65 64 20 20 54 69 6d |hing pac|ked  Tim|
|000001a0| 65 20 3d 20 22 3b 0d 01 | 22 07 d1 3d 30 0d 01 2c |e = ";..|"..=0..,|
|000001b0| 0f e3 20 49 25 3d 30 20 | b8 20 4e 25 0d 01 36 19 |.. I%=0 |. N%..6.|
|000001c0| 66 25 3d a4 6d 61 74 63 | 68 28 70 24 2c 70 61 63 |f%=.matc|h(p$,pac|
|000001d0| 6b 24 28 29 29 0d 01 40 | 05 ed 0d 01 4a 07 f1 3b |k$())..@|....J..;|
|000001e0| 91 0d 01 54 05 e0 0d 01 | 5e 05 3a 0d 01 68 11 dd |...T....|^.:..h..|
|000001f0| 20 f2 69 6e 69 74 69 61 | 6c 69 73 65 0d 01 72 10 | .initia|lise..r.|
|00000200| 77 6f 72 64 6e 75 6d 25 | 3d 39 39 39 0d 01 7c 25 |wordnum%|=999..|%|
|00000210| de 20 77 6f 72 64 24 28 | 77 6f 72 64 6e 75 6d 25 |. word$(|wordnum%|
|00000220| 29 2c 70 61 63 6b 24 28 | 77 6f 72 64 6e 75 6d 25 |),pack$(|wordnum%|
|00000230| 29 0d 01 86 0a 4e 25 3d | 34 39 39 0d 01 90 29 61 |)....N%=|499...)a|
|00000240| 24 3d c4 31 36 2c 22 2e | 22 29 20 3a 20 f4 20 66 |$=.16,".|") : . f|
|00000250| 69 78 69 6e 67 20 73 74 | 72 69 6e 67 20 6c 65 6e |ixing st|ring len|
|00000260| 67 74 68 73 0d 01 9a 2a | 62 24 3d 61 24 20 20 20 |gths...*|b$=a$   |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 3a 20 f4 20 73 |        |   : . s|
|00000280| 70 65 65 64 73 20 75 70 | 20 73 77 61 70 73 0d 01 |peeds up| swaps..|
|00000290| a4 08 eb 20 31 32 0d 01 | ae 3d f1 27 27 22 47 65 |... 12..|.=.''"Ge|
|000002a0| 6e 65 72 61 74 69 6e 67 | 20 22 3b 77 6f 72 64 6e |nerating| ";wordn|
|000002b0| 75 6d 25 2b 31 20 22 20 | 64 75 6d 6d 79 20 77 6f |um%+1 " |dummy wo|
|000002c0| 72 64 73 20 2d 20 50 6c | 65 61 73 65 20 77 61 69 |rds - Pl|ease wai|
|000002d0| 74 22 3b 0d 01 b8 15 e3 | 20 49 25 3d 30 20 b8 20 |t";.....| I%=0 . |
|000002e0| 77 6f 72 64 6e 75 6d 25 | 0d 01 c2 10 77 6f 72 64 |wordnum%|....word|
|000002f0| 24 28 49 25 29 3d 61 24 | 0d 01 cc 13 77 6f 72 64 |$(I%)=a$|....word|
|00000300| 24 28 49 25 29 3d a4 6c | 69 6e 65 0d 01 d6 10 70 |$(I%)=.l|ine....p|
|00000310| 61 63 6b 24 28 49 25 29 | 3d 61 24 0d 01 e0 1e 70 |ack$(I%)|=a$....p|
|00000320| 61 63 6b 24 28 49 25 29 | 3d a4 70 61 63 6b 28 77 |ack$(I%)|=.pack(w|
|00000330| 6f 72 64 24 28 49 25 29 | 29 0d 01 ea 05 ed 0d 01 |ord$(I%)|).......|
|00000340| f4 05 e1 0d 01 fe 05 3a | 0d 02 08 0b dd 20 a4 6c |.......:|..... .l|
|00000350| 69 6e 65 0d 02 12 0b ea | 20 49 25 2c 61 24 0d 02 |ine.....| I%,a$..|
|00000360| 1c 13 e3 20 49 25 3d 30 | 20 b8 20 34 2b b3 28 35 |... I%=0| . 4+.(5|
|00000370| 29 0d 02 26 13 61 24 2b | 3d bd 28 36 34 2b b3 28 |)..&.a$+|=.(64+.(|
|00000380| 32 36 29 29 0d 02 30 05 | ed 0d 02 3a 07 3d 61 24 |26))..0.|...:.=a$|
|00000390| 0d 02 44 05 3a 0d 02 4e | 0f dd 20 a4 70 61 63 6b |..D.:..N|.. .pack|
|000003a0| 28 61 24 29 0d 02 58 0e | ea 20 73 25 2c 64 25 2c |(a$)..X.|. s%,d%,|
|000003b0| 62 24 0d 02 62 05 f5 0d | 02 6c 08 f2 67 65 74 0d |b$..b...|.l..get.|
|000003c0| 02 76 09 64 25 3d 73 25 | 0d 02 80 08 f2 67 65 74 |.v.d%=s%|.....get|
|000003d0| 0d 02 8a 11 64 25 3d 64 | 25 20 84 20 73 25 3c 3c |....d%=d|% . s%<<|
|000003e0| 35 0d 02 94 0c 62 24 2b | 3d bd 20 64 25 0d 02 9e |5....b$+|=. d%...|
|000003f0| 0c 64 25 3d 73 25 3e 3e | 33 0d 02 a8 08 f2 67 65 |.d%=s%>>|3.....ge|
|00000400| 74 0d 02 b2 11 64 25 3d | 64 25 20 84 20 73 25 3c |t....d%=|d% . s%<|
|00000410| 3c 32 0d 02 bc 08 f2 67 | 65 74 0d 02 c6 11 64 25 |<2.....g|et....d%|
|00000420| 3d 64 25 20 84 20 73 25 | 3c 3c 37 0d 02 d0 0c 62 |=d% . s%|<<7....b|
|00000430| 24 2b 3d bd 20 64 25 0d | 02 da 0c 64 25 3d 73 25 |$+=. d%.|...d%=s%|
|00000440| 3e 3e 31 0d 02 e4 08 f2 | 67 65 74 0d 02 ee 11 64 |>>1.....|get....d|
|00000450| 25 3d 64 25 20 84 20 73 | 25 3c 3c 34 0d 02 f8 0c |%=d% . s|%<<4....|
|00000460| 62 24 2b 3d bd 20 64 25 | 0d 03 02 0c 64 25 3d 73 |b$+=. d%|....d%=s|
|00000470| 25 3e 3e 34 0d 03 0c 08 | f2 67 65 74 0d 03 16 11 |%>>4....|.get....|
|00000480| 64 25 3d 64 25 20 84 20 | 73 25 3c 3c 31 0d 03 20 |d%=d% . |s%<<1.. |
|00000490| 08 f2 67 65 74 0d 03 2a | 11 64 25 3d 64 25 20 84 |..get..*|.d%=d% .|
|000004a0| 20 73 25 3c 3c 36 0d 03 | 34 0c 62 24 2b 3d bd 20 | s%<<6..|4.b$+=. |
|000004b0| 64 25 0d 03 3e 0c 64 25 | 3d 73 25 3e 3e 32 0d 03 |d%..>.d%|=s%>>2..|
|000004c0| 48 08 f2 67 65 74 0d 03 | 52 11 64 25 3d 64 25 20 |H..get..|R.d%=d% |
|000004d0| 84 20 73 25 3c 3c 33 0d | 03 5c 0c 62 24 2b 3d bd |. s%<<3.|.\.b$+=.|
|000004e0| 20 64 25 0d 03 66 0b fd | 20 61 24 3d 22 22 0d 03 | d%..f..| a$=""..|
|000004f0| 70 07 3d 62 24 0d 03 7a | 05 3a 0d 03 84 0a dd 20 |p.=b$..z|.:..... |
|00000500| f2 67 65 74 0d 03 8e 0e | 73 25 3d 97 20 61 24 2d |.get....|s%=. a$-|
|00000510| 36 34 0d 03 98 11 61 24 | 3d c2 61 24 2c a9 61 24 |64....a$|=.a$,.a$|
|00000520| 2d 31 29 0d 03 a2 05 e1 | 0d 03 ac 05 3a 0d 03 b6 |-1).....|....:...|
|00000530| 14 dd 20 f2 73 6f 72 74 | 28 77 6f 72 64 24 28 29 |.. .sort|(word$()|
|00000540| 29 0d 03 c0 11 ea 20 61 | 24 2c 61 25 2c 62 25 2c |)..... a|$,a%,b%,|
|00000550| 6e 25 0d 03 ca 13 6e 25 | 3d de 28 77 6f 72 64 24 |n%....n%|=.(word$|
|00000560| 28 29 2c 31 29 0d 03 d4 | 10 f2 71 73 6f 72 74 28 |(),1)...|..qsort(|
|00000570| 30 2c 6e 25 29 0d 03 de | 05 e1 0d 03 e8 05 3a 0d |0,n%)...|......:.|
|00000580| 03 f2 13 dd 20 f2 71 73 | 6f 72 74 28 73 25 2c 65 |.... .qs|ort(s%,e|
|00000590| 25 29 0d 03 fc 0e e7 20 | 73 25 3e 3d 65 25 20 e1 |%)..... |s%>=e% .|
|000005a0| 0d 04 06 18 61 24 3d 77 | 6f 72 64 24 28 28 73 25 |....a$=w|ord$((s%|
|000005b0| 2b 65 25 29 3e 3e 31 29 | 0d 04 10 0b 61 25 3d 73 |+e%)>>1)|....a%=s|
|000005c0| 25 2d 31 0d 04 1a 0b 62 | 25 3d 65 25 2b 31 0d 04 |%-1....b|%=e%+1..|
|000005d0| 24 05 f5 0d 04 2e 05 f5 | 0d 04 38 09 61 25 2b 3d |$.......|..8.a%+=|
|000005e0| 31 0d 04 42 13 fd 20 77 | 6f 72 64 24 28 61 25 29 |1..B.. w|ord$(a%)|
|000005f0| 3e 3d 61 24 0d 04 4c 05 | f5 0d 04 56 09 62 25 2d |>=a$..L.|...V.b%-|
|00000600| 3d 31 0d 04 60 13 fd 20 | 77 6f 72 64 24 28 62 25 |=1..`.. |word$(b%|
|00000610| 29 3c 3d 61 24 0d 04 6a | 22 e7 20 61 25 3c 62 25 |)<=a$..j|". a%<b%|
|00000620| 20 c8 94 20 77 6f 72 64 | 24 28 61 25 29 2c 77 6f | .. word|$(a%),wo|
|00000630| 72 64 24 28 62 25 29 0d | 04 74 0c fd 20 61 25 3e |rd$(b%).|.t.. a%>|
|00000640| 3d 62 25 0d 04 7e 13 f2 | 71 73 6f 72 74 28 73 25 |=b%..~..|qsort(s%|
|00000650| 2c 61 25 2d 31 29 0d 04 | 88 13 f2 71 73 6f 72 74 |,a%-1)..|...qsort|
|00000660| 28 62 25 2b 31 2c 65 25 | 29 0d 04 92 05 e1 0d 04 |(b%+1,e%|).......|
|00000670| 9c 05 3a 0d 04 a6 18 dd | 20 a4 6d 61 74 63 68 28 |..:.....| .match(|
|00000680| 61 24 2c 77 6f 72 64 24 | 28 29 29 0d 04 b0 11 ea |a$,word$|()).....|
|00000690| 20 73 25 2c 65 25 2c 68 | 25 2c 66 25 0d 04 ba 13 | s%,e%,h|%,f%....|
|000006a0| 65 25 3d de 28 77 6f 72 | 64 24 28 29 2c 31 29 0d |e%=.(wor|d$(),1).|
|000006b0| 04 c4 05 f5 0d 04 ce 0f | f2 62 69 6e 28 73 25 2c |........|.bin(s%,|
|000006c0| 65 25 29 0d 04 d8 08 fd | 20 66 25 0d 04 e2 07 3d |e%).....| f%....=|
|000006d0| 66 25 0d 04 ec 05 3a 0d | 04 f6 11 dd 20 f2 62 69 |f%....:.|.... .bi|
|000006e0| 6e 28 73 25 2c 65 25 29 | 0d 05 00 0e e7 20 65 25 |n(s%,e%)|..... e%|
|000006f0| 3e 3d 73 25 20 8c 0d 05 | 0a 11 68 25 3d 28 65 25 |>=s% ...|..h%=(e%|
|00000700| 2d 73 25 29 3e 3e 31 0d | 05 14 17 e7 20 61 24 3e |-s%)>>1.|.... a$>|
|00000710| 77 6f 72 64 24 28 73 25 | 2b 68 25 29 20 8c 0d 05 |word$(s%|+h%) ...|
|00000720| 1e 14 f2 62 69 6e 28 73 | 25 2b 68 25 2b 31 2c 65 |...bin(s|%+h%+1,e|
|00000730| 25 29 0d 05 28 05 cc 0d | 05 32 17 e7 20 61 24 3c |%)..(...|.2.. a$<|
|00000740| 77 6f 72 64 24 28 73 25 | 2b 68 25 29 20 8c 0d 05 |word$(s%|+h%) ...|
|00000750| 3c 14 f2 62 69 6e 28 73 | 25 2c 65 25 2d 68 25 2d |<..bin(s|%,e%-h%-|
|00000760| 31 29 0d 05 46 05 cc 0d | 05 50 0e 66 25 3d 73 25 |1)..F...|.P.f%=s%|
|00000770| 2b 68 25 2b 31 0d 05 5a | 05 cd 0d 05 64 05 cd 0d |+h%+1..Z|....d...|
|00000780| 05 6e 05 cc 0d 05 78 08 | 66 25 3d b9 0d 05 82 05 |.n....x.|f%=.....|
|00000790| cd 0d 05 8c 05 e1 0d ff |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+