/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / cookie1.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 00 40 63 68 75 72 63 |piled by| .@churc|
|00000020| 68 79 2e 67 6e 75 2e 61 | 69 2e 6d 69 74 2e 65 64 |hy.gnu.a|i.mit.ed|
|00000030| 75 20 6f 6e 20 53 61 74 | 20 53 65 70 20 32 35 20 |u on Sat| Sep 25 |
|00000040| 31 37 3a 33 36 3a 32 33 | 20 31 39 39 33 0a 3b 3b |17:36:23| 1993.;;|
|00000050| 3b 20 66 72 6f 6d 20 66 | 69 6c 65 20 2f 68 6f 6d |; from f|ile /hom|
|00000060| 65 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 |e/gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 63 6f 6f 6b 69 65 31 |9.0/lisp|/cookie1|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 32 30 2e 31 2e 0a 3b |rsion 19|.20.1..;|
|000000a0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000b0| 69 6f 6e 20 46 53 46 20 | 32 2e 31 30 0a 3b 3b 3b |ion FSF |2.10.;;;|
|000000c0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000d0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000e0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|000000f0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000100| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000110| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000120| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000130| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000140| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000150| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|00000170| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000180| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 |    (err|or "This|
|000001a0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001b0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 31 39 22 |ed for E|macs 19"|
|000001c0| 29 29 0a 0a 28 72 61 6e | 64 6f 6d 20 74 29 0a 28 |))..(ran|dom t).(|
|000001d0| 64 65 66 63 6f 6e 73 74 | 20 63 6f 6f 6b 69 65 2d |defconst| cookie-|
|000001e0| 64 65 6c 69 6d 69 74 65 | 72 20 22 5c 6e 25 25 5c |delimite|r "\n%%\|
|000001f0| 6e 5c 5c 7c 00 22 20 22 | 5c 0a 44 65 6c 69 6d 69 |n\\|." "|\.Delimi|
|00000200| 74 65 72 20 75 73 65 64 | 20 74 6f 20 73 65 70 61 |ter used| to sepa|
|00000210| 72 61 74 65 20 63 6f 6f | 6b 69 65 20 66 69 6c 65 |rate coo|kie file|
|00000220| 20 65 6e 74 72 69 65 73 | 2e 22 29 0a 28 64 65 66 | entries|.").(def|
|00000230| 76 61 72 20 63 6f 6f 6b | 69 65 2d 63 61 63 68 65 |var cook|ie-cache|
|00000240| 20 28 6d 61 6b 65 2d 76 | 65 63 74 6f 72 20 35 31 | (make-v|ector 51|
|00000250| 31 20 30 29 20 22 5c 0a | 43 61 63 68 65 20 6f 66 |1 0) "\.|Cache of|
|00000260| 20 63 6f 6f 6b 69 65 20 | 66 69 6c 65 73 20 74 68 | cookie |files th|
|00000270| 61 74 20 68 61 76 65 20 | 61 6c 72 65 61 64 79 20 |at have |already |
|00000280| 62 65 65 6e 20 73 6e 61 | 72 66 65 64 2e 22 29 0a |been sna|rfed.").|
|00000290| 28 64 65 66 61 6c 69 61 | 73 20 27 63 6f 6f 6b 69 |(defalia|s 'cooki|
|000002a0| 65 20 23 5b 28 70 68 72 | 61 73 65 2d 66 69 6c 65 |e #[(phr|ase-file|
|000002b0| 20 73 74 61 72 74 6d 73 | 67 20 65 6e 64 6d 73 67 | startms|g endmsg|
|000002c0| 29 20 22 c0 09 5c 6e 0b | 23 1c c5 0c 21 88 0c c6 |) "..\n.|#...!...|
|000002d0| 48 29 87 22 20 5b 63 6f | 6f 6b 69 65 2d 73 6e 61 |H)." [co|okie-sna|
|000002e0| 72 66 20 70 68 72 61 73 | 65 2d 66 69 6c 65 20 73 |rf phras|e-file s|
|000002f0| 74 61 72 74 6d 73 67 20 | 65 6e 64 6d 73 67 20 63 |tartmsg |endmsg c|
|00000300| 6f 6f 6b 69 65 2d 76 65 | 63 74 6f 72 20 73 68 75 |ookie-ve|ctor shu|
|00000310| 66 66 6c 65 2d 76 65 63 | 74 6f 72 20 31 5d 20 34 |ffle-vec|tor 1] 4|
|00000320| 20 22 5c 0a 52 65 74 75 | 72 6e 20 61 20 72 61 6e | "\.Retu|rn a ran|
|00000330| 64 6f 6d 20 70 68 72 61 | 73 65 20 66 72 6f 6d 20 |dom phra|se from |
|00000340| 50 48 52 41 53 45 2d 46 | 49 4c 45 2e 20 20 57 68 |PHRASE-F|ILE.  Wh|
|00000350| 65 6e 20 74 68 65 20 70 | 68 72 61 73 65 20 66 69 |en the p|hrase fi|
|00000360| 6c 65 0a 69 73 20 72 65 | 61 64 20 69 6e 2c 20 64 |le.is re|ad in, d|
|00000370| 69 73 70 6c 61 79 20 53 | 54 41 52 54 4d 53 47 20 |isplay S|TARTMSG |
|00000380| 61 74 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |at begin|ning of |
|00000390| 6c 6f 61 64 2c 20 45 4e | 44 4d 53 47 20 61 74 20 |load, EN|DMSG at |
|000003a0| 65 6e 64 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |end."]).|(defalia|
|000003b0| 73 20 27 63 6f 6f 6b 69 | 65 2d 69 6e 73 65 72 74 |s 'cooki|e-insert|
|000003c0| 20 23 5b 28 70 68 72 61 | 73 65 2d 66 69 6c 65 20 | #[(phra|se-file |
|000003d0| 26 6f 70 74 69 6f 6e 61 | 6c 20 63 6f 75 6e 74 20 |&optiona|l count |
|000003e0| 73 74 61 72 74 6d 73 67 | 20 65 6e 64 6d 73 67 29 |startmsg| endmsg)|
|000003f0| 20 22 c0 09 5c 6e 0b 23 | 1c c5 0c 21 88 60 1e 06 | "..\n.#|...!.`..|
|00000400| c7 63 88 c8 0c 47 c9 5a | 0e 5c 6e 86 1b 00 c9 5e |.c...G.Z|.\n....^|
|00000410| 0c 5c 22 88 c7 63 88 cb | 0e 06 60 cc 23 2a 87 22 |.\"..c..|..`.#*."|
|00000420| 20 5b 63 6f 6f 6b 69 65 | 2d 73 6e 61 72 66 20 70 | [cookie|-snarf p|
|00000430| 68 72 61 73 65 2d 66 69 | 6c 65 20 73 74 61 72 74 |hrase-fi|le start|
|00000440| 6d 73 67 20 65 6e 64 6d | 73 67 20 63 6f 6f 6b 69 |msg endm|sg cooki|
|00000450| 65 2d 76 65 63 74 6f 72 | 20 73 68 75 66 66 6c 65 |e-vector| shuffle|
|00000460| 2d 76 65 63 74 6f 72 20 | 73 74 61 72 74 20 31 30 |-vector |start 10|
|00000470| 20 63 6f 6f 6b 69 65 31 | 20 31 20 63 6f 75 6e 74 | cookie1| 1 count|
|00000480| 20 66 69 6c 6c 2d 72 65 | 67 69 6f 6e 2d 61 73 2d | fill-re|gion-as-|
|00000490| 70 61 72 61 67 72 61 70 | 68 20 6e 69 6c 5d 20 34 |paragrap|h nil] 4|
|000004a0| 20 22 5c 0a 49 6e 73 65 | 72 74 20 72 61 6e 64 6f | "\.Inse|rt rando|
|000004b0| 6d 20 70 68 72 61 73 65 | 73 20 66 72 6f 6d 20 50 |m phrase|s from P|
|000004c0| 48 52 41 53 45 2d 46 49 | 4c 45 3b 20 43 4f 55 4e |HRASE-FI|LE; COUN|
|000004d0| 54 20 6f 66 20 74 68 65 | 6d 2e 20 20 57 68 65 6e |T of the|m.  When|
|000004e0| 20 74 68 65 20 70 68 72 | 61 73 65 20 66 69 6c 65 | the phr|ase file|
|000004f0| 0a 69 73 20 72 65 61 64 | 20 69 6e 2c 20 64 69 73 |.is read| in, dis|
|00000500| 70 6c 61 79 20 53 54 41 | 52 54 4d 53 47 20 61 74 |play STA|RTMSG at|
|00000510| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 6c 6f | beginni|ng of lo|
|00000520| 61 64 2c 20 45 4e 44 4d | 53 47 20 61 74 20 65 6e |ad, ENDM|SG at en|
|00000530| 64 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |d."]).(d|efalias |
|00000540| 27 63 6f 6f 6b 69 65 31 | 20 23 5b 28 61 72 67 20 |'cookie1| #[(arg |
|00000550| 63 6f 6f 6b 69 65 2d 76 | 65 63 29 20 22 08 c1 55 |cookie-v|ec) "..U|
|00000560| 83 08 00 c2 87 0b 08 48 | 63 88 c4 63 88 c5 08 53 |.......H|c..c...S|
|00000570| 0b 5c 22 87 22 20 5b 61 | 72 67 20 30 20 74 20 63 |.\"." [a|rg 0 t c|
|00000580| 6f 6f 6b 69 65 2d 76 65 | 63 20 22 20 22 20 63 6f |ookie-ve|c " " co|
|00000590| 6f 6b 69 65 31 5d 20 33 | 20 22 5c 0a 49 6e 73 65 |okie1] 3| "\.Inse|
|000005a0| 72 74 73 20 61 20 63 6f | 6f 6b 69 65 20 70 68 72 |rts a co|okie phr|
|000005b0| 61 73 65 20 41 52 47 20 | 74 69 6d 65 73 2e 22 5d |ase ARG |times."]|
|000005c0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 6f |).(defal|ias 'coo|
|000005d0| 6b 69 65 2d 73 6e 61 72 | 66 20 23 5b 28 70 68 72 |kie-snar|f #[(phr|
|000005e0| 61 73 65 2d 66 69 6c 65 | 20 73 74 61 72 74 6d 73 |ase-file| startms|
|000005f0| 67 20 65 6e 64 6d 73 67 | 29 20 22 c0 09 5c 6e 5c |g endmsg|) "..\n\|
|00000600| 22 89 1b 83 1e 00 0b 4b | c4 c5 09 21 38 9a 84 1e |"......K|...!8...|
|00000610| 00 c6 09 c7 50 21 83 1e | 00 c8 13 0b 83 27 00 0b |....P!..|.....'..|
|00000620| 4a 82 80 00 c9 09 5c 6e | 5c 22 13 ca 0e 0b 21 88 |J.....\n|\"....!.|
|00000630| 8a cc cd 21 c8 1e 0e 89 | 1e 0f 71 88 0b c4 c5 09 |...!....|..q.....|
|00000640| 21 38 4d 88 d0 d1 09 21 | 21 88 d2 0e 13 21 88 d4 |!8M....!|!....!..|
|00000650| c8 77 88 6d 84 6e 00 60 | 1e 15 d2 0e 13 21 88 0e |.w.m.n.`|.....!..|
|00000660| 15 60 53 7b 0e 0e 42 16 | 0e 29 82 50 00 d6 0e 0f |.`S{..B.|.).P....|
|00000670| 21 88 ca 0e 17 21 88 0b | d8 d9 0e 0e 5c 22 4c 2b |!....!..|....\"L+|
|00000680| 29 87 22 20 5b 69 6e 74 | 65 72 6e 2d 73 6f 66 74 |)." [int|ern-soft|
|00000690| 20 70 68 72 61 73 65 2d | 66 69 6c 65 20 63 6f 6f | phrase-|file coo|
|000006a0| 6b 69 65 2d 63 61 63 68 | 65 20 73 79 6d 20 35 20 |kie-cach|e sym 5 |
|000006b0| 66 69 6c 65 2d 61 74 74 | 72 69 62 75 74 65 73 20 |file-att|ributes |
|000006c0| 79 65 73 2d 6f 72 2d 6e | 6f 2d 70 20 22 20 68 61 |yes-or-n|o-p " ha|
|000006d0| 73 20 63 68 61 6e 67 65 | 64 2e 20 20 52 65 61 64 |s change|d.  Read|
|000006e0| 20 6e 65 77 20 63 6f 6e | 74 65 6e 74 73 3f 20 22 | new con|tents? "|
|000006f0| 20 6e 69 6c 20 69 6e 74 | 65 72 6e 20 6d 65 73 73 | nil int|ern mess|
|00000700| 61 67 65 20 73 74 61 72 | 74 6d 73 67 20 67 65 6e |age star|tmsg gen|
|00000710| 65 72 61 74 65 2d 6e 65 | 77 2d 62 75 66 66 65 72 |erate-ne|w-buffer|
|00000720| 20 22 2a 63 6f 6f 6b 69 | 65 2a 22 20 72 65 73 75 | "*cooki|e*" resu|
|00000730| 6c 74 20 62 75 66 20 69 | 6e 73 65 72 74 2d 66 69 |lt buf i|nsert-fi|
|00000740| 6c 65 2d 63 6f 6e 74 65 | 6e 74 73 20 65 78 70 61 |le-conte|nts expa|
|00000750| 6e 64 2d 66 69 6c 65 2d | 6e 61 6d 65 20 72 65 2d |nd-file-|name re-|
|00000760| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 63 |search-f|orward c|
|00000770| 6f 6f 6b 69 65 2d 64 65 | 6c 69 6d 69 74 65 72 20 |ookie-de|limiter |
|00000780| 22 20 09 5c 6e 0d 0c 22 | 20 62 65 67 20 6b 69 6c |" .\n.."| beg kil|
|00000790| 6c 2d 62 75 66 66 65 72 | 20 65 6e 64 6d 73 67 20 |l-buffer| endmsg |
|000007a0| 61 70 70 6c 79 20 76 65 | 63 74 6f 72 5d 20 35 20 |apply ve|ctor] 5 |
|000007b0| 22 5c 0a 52 65 61 64 73 | 20 69 6e 20 74 68 65 20 |"\.Reads| in the |
|000007c0| 50 48 52 41 53 45 2d 46 | 49 4c 45 2c 20 72 65 74 |PHRASE-F|ILE, ret|
|000007d0| 75 72 6e 73 20 69 74 20 | 61 73 20 61 20 76 65 63 |urns it |as a vec|
|000007e0| 74 6f 72 20 6f 66 20 73 | 74 72 69 6e 67 73 2e 0a |tor of s|trings..|
|000007f0| 45 6d 69 74 20 53 54 41 | 52 54 4d 53 47 20 61 6e |Emit STA|RTMSG an|
|00000800| 64 20 45 4e 44 4d 53 47 | 20 62 65 66 6f 72 65 20 |d ENDMSG| before |
|00000810| 61 6e 64 20 61 66 74 65 | 72 2e 20 20 43 61 63 68 |and afte|r.  Cach|
|00000820| 65 73 20 74 68 65 20 72 | 65 73 75 6c 74 3b 20 73 |es the r|esult; s|
|00000830| 65 63 6f 6e 64 0a 61 6e | 64 20 73 75 62 73 65 71 |econd.an|d subseq|
|00000840| 75 65 6e 74 20 63 61 6c | 6c 73 20 6f 6e 20 74 68 |uent cal|ls on th|
|00000850| 65 20 73 61 6d 65 20 66 | 69 6c 65 20 77 6f 6e 27 |e same f|ile won'|
|00000860| 74 20 67 6f 20 74 6f 20 | 64 69 73 6b 2e 22 5d 29 |t go to |disk."])|
|00000870| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 72 65 61 64 |.(defali|as 'read|
|00000880| 2d 63 6f 6f 6b 69 65 20 | 23 5b 28 70 72 6f 6d 70 |-cookie |#[(promp|
|00000890| 74 20 70 68 72 61 73 65 | 2d 66 69 6c 65 20 73 74 |t phrase|-file st|
|000008a0| 61 72 74 6d 73 67 20 65 | 6e 64 6d 73 67 20 26 6f |artmsg e|ndmsg &o|
|000008b0| 70 74 69 6f 6e 61 6c 20 | 72 65 71 75 69 72 65 2d |ptional |require-|
|000008c0| 6d 61 74 63 68 29 20 22 | c0 09 5c 6e 5c 22 84 0d |match) "|..\n\"..|
|000008d0| 00 c3 09 0c 0d 23 88 c6 | 0e 07 c8 09 5c 6e 5c 22 |.....#..|....\n\"|
|000008e0| 89 1e 09 ca 4e 86 4b 00 | cb 1e 0c c3 09 0c 0d 23 |....N.K.|.......#|
|000008f0| 89 1e 0d 47 1e 0e 0e 0e | 53 89 16 0e cf 56 83 43 |...G....|S....V.C|
|00000900| 00 0e 0d 0e 0e 48 43 0e | 0c 42 16 0c 82 2a 00 d0 |.....HC.|.B...*..|
|00000910| 0e 09 ca 0e 0c 23 2b 29 | cb 0e 11 cb 89 26 06 87 |.....#+)|.....&..|
|00000920| 22 20 5b 69 6e 74 65 72 | 6e 2d 73 6f 66 74 20 70 |" [inter|n-soft p|
|00000930| 68 72 61 73 65 2d 66 69 | 6c 65 20 63 6f 6f 6b 69 |hrase-fi|le cooki|
|00000940| 65 2d 63 61 63 68 65 20 | 63 6f 6f 6b 69 65 2d 73 |e-cache |cookie-s|
|00000950| 6e 61 72 66 20 73 74 61 | 72 74 6d 73 67 20 65 6e |narf sta|rtmsg en|
|00000960| 64 6d 73 67 20 63 6f 6d | 70 6c 65 74 69 6e 67 2d |dmsg com|pleting-|
|00000970| 72 65 61 64 20 70 72 6f | 6d 70 74 20 69 6e 74 65 |read pro|mpt inte|
|00000980| 72 6e 20 73 79 6d 20 63 | 6f 6d 70 6c 65 74 69 6f |rn sym c|ompletio|
|00000990| 6e 2d 61 6c 69 73 74 20 | 6e 69 6c 20 61 6c 69 73 |n-alist |nil alis|
|000009a0| 74 20 76 65 63 20 69 20 | 30 20 70 75 74 20 72 65 |t vec i |0 put re|
|000009b0| 71 75 69 72 65 2d 6d 61 | 74 63 68 5d 20 38 20 22 |quire-ma|tch] 8 "|
|000009c0| 5c 0a 50 72 6f 6d 70 74 | 20 77 69 74 68 20 50 52 |\.Prompt| with PR|
|000009d0| 4f 4d 50 54 20 61 6e 64 | 20 72 65 61 64 20 77 69 |OMPT and| read wi|
|000009e0| 74 68 20 63 6f 6d 70 6c | 65 74 69 6f 6e 20 61 6d |th compl|etion am|
|000009f0| 6f 6e 67 20 63 6f 6f 6b | 69 65 73 20 69 6e 20 50 |ong cook|ies in P|
|00000a00| 48 52 41 53 45 2d 46 49 | 4c 45 2e 0a 53 54 41 52 |HRASE-FI|LE..STAR|
|00000a10| 54 4d 53 47 20 61 6e 64 | 20 45 4e 44 4d 53 47 20 |TMSG and| ENDMSG |
|00000a20| 61 72 65 20 70 61 73 73 | 65 64 20 61 6c 6f 6e 67 |are pass|ed along|
|00000a30| 20 74 6f 20 60 63 6f 6f | 6b 69 65 2d 73 6e 61 72 | to `coo|kie-snar|
|00000a40| 66 27 2e 0a 4f 70 74 69 | 6f 6e 61 6c 20 66 69 66 |f'..Opti|onal fif|
|00000a50| 74 68 20 61 72 67 20 52 | 45 51 55 49 52 45 2d 4d |th arg R|EQUIRE-M|
|00000a60| 41 54 43 48 20 6e 6f 6e | 2d 6e 69 6c 20 66 6f 72 |ATCH non|-nil for|
|00000a70| 63 65 73 20 61 20 6d 61 | 74 63 68 69 6e 67 20 63 |ces a ma|tching c|
|00000a80| 6f 6f 6b 69 65 2e 22 5d | 29 0a 28 64 65 66 61 6c |ookie."]|).(defal|
|00000a90| 69 61 73 20 27 73 68 75 | 66 66 6c 65 2d 76 65 63 |ias 'shu|ffle-vec|
|00000aa0| 74 6f 72 20 23 5b 28 76 | 65 63 74 6f 72 29 20 22 |tor #[(v|ector) "|
|00000ab0| c0 c1 89 5c 6e 47 1b 1c | 1d 89 1e 06 0b 57 83 35 |...\nG..|.....W.5|
|00000ac0| 00 0e 06 c7 0b 0e 06 5a | 21 5c 5c 15 5c 6e 0e 06 |.......Z|!\\.\n..|
|00000ad0| 48 14 5c 6e 0e 06 5c 6e | 0d 48 49 88 5c 6e 0d 0c |H.\n..\n|.HI.\n..|
|00000ae0| 49 88 0e 06 54 89 16 06 | 82 0b 00 2c 5c 6e 87 22 |I...T...|...,\n."|
|00000af0| 20 5b 30 20 6e 69 6c 20 | 76 65 63 74 6f 72 20 6c | [0 nil |vector l|
|00000b00| 65 6e 20 74 65 6d 70 20 | 6a 20 69 20 72 61 6e 64 |en temp |j i rand|
|00000b10| 6f 6d 5d 20 35 20 22 5c | 0a 52 61 6e 64 6f 6d 6c |om] 5 "\|.Randoml|
|00000b20| 79 20 70 65 72 6d 75 74 | 65 20 74 68 65 20 65 6c |y permut|e the el|
|00000b30| 65 6d 65 6e 74 73 20 6f | 66 20 56 45 43 54 4f 52 |ements o|f VECTOR|
|00000b40| 20 28 61 6c 6c 20 70 65 | 72 6d 75 74 61 74 69 6f | (all pe|rmutatio|
|00000b50| 6e 73 20 65 71 75 61 6c | 6c 79 20 6c 69 6b 65 6c |ns equal|ly likel|
|00000b60| 79 29 22 5d 29 0a 28 70 | 72 6f 76 69 64 65 20 28 |y)"]).(p|rovide (|
|00000b70| 71 75 6f 74 65 20 63 6f | 6f 6b 69 65 31 29 29 0a |quote co|okie1)).|
+--------+-------------------------+-------------------------+--------+--------+