/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / emacs-18.59-src.lha / GNU / src / amiga / emacs-18.59 / lisp / hanoi.elc

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 68 61 6e 6f 69 2d 74 6f |.(defun |hanoi-to|
|00000010| 70 6f 73 20 28 72 6f 77 | 20 63 6f 6c 29 20 28 62 |pos (row| col) (b|
|00000020| 79 74 65 2d 63 6f 64 65 | 20 22 c2 08 21 88 c3 20 |yte-code| "..!.. |
|00000030| 88 c4 09 21 87 22 20 5b | 72 6f 77 20 63 6f 6c 20 |...!." [|row col |
|00000040| 67 6f 74 6f 2d 6c 69 6e | 65 20 62 65 67 69 6e 6e |goto-lin|e beginn|
|00000050| 69 6e 67 2d 6f 66 2d 6c | 69 6e 65 20 66 6f 72 77 |ing-of-l|ine forw|
|00000060| 61 72 64 2d 63 68 61 72 | 5d 20 34 29 29 0a 0a 28 |ard-char|] 4))..(|
|00000070| 64 65 66 75 6e 20 68 61 | 6e 6f 69 20 28 6e 72 69 |defun ha|noi (nri|
|00000080| 6e 67 73 29 20 22 5c 0a | 54 6f 77 65 72 73 20 6f |ngs) "\.|Towers o|
|00000090| 66 20 48 61 6e 6f 69 20 | 64 69 76 65 72 73 69 6f |f Hanoi |diversio|
|000000a0| 6e 2e 20 20 41 72 67 75 | 6d 65 6e 74 20 69 73 20 |n.  Argu|ment is |
|000000b0| 6e 75 6d 62 65 72 20 6f | 66 20 72 69 6e 67 73 2e |number o|f rings.|
|000000c0| 22 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 28 |" (inter|active (|
|000000d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 3f 83 09 00 |byte-cod|e ".?...|
|000000e0| c1 82 0c 00 c2 08 21 43 | 87 22 20 5b 63 75 72 72 |......!C|." [curr|
|000000f0| 65 6e 74 2d 70 72 65 66 | 69 78 2d 61 72 67 20 33 |ent-pref|ix-arg 3|
|00000100| 20 70 72 65 66 69 78 2d | 6e 75 6d 65 72 69 63 2d | prefix-|numeric-|
|00000110| 76 61 6c 75 65 5d 20 32 | 29 29 20 28 62 79 74 65 |value] 2|)) (byte|
|00000120| 2d 63 6f 64 65 20 22 cd | 88 09 d3 58 85 0b 00 d4 |-code ".|...X....|
|00000130| d5 21 88 cd cd cd c5 d6 | 20 21 c6 d6 20 21 1e 06 |.!......| !.. !..|
|00000140| 1d 1c 1b 1a 09 d7 5c 5c | d8 d9 09 53 da 5c 22 d7 |......\\|...S.\".|
|00000150| db 23 1e 08 1e 07 0e 06 | 0e 07 59 85 3a 00 0e 06 |.#......|..Y.:...|
|00000160| 0e 08 56 3f 85 62 00 dc | 20 88 c5 d6 20 21 89 15 |..V?.b..| ... !..|
|00000170| 0e 07 59 85 57 00 c6 d6 | 20 21 89 16 06 0e 08 56 |..Y.W...| !.....V|
|00000180| 3f 85 62 00 d4 dd 0e 08 | 0e 07 23 88 de 0e 06 da |?.b.....|..#.....|
|00000190| 5c 22 89 12 88 df e0 0a | e1 5c 22 21 3f 85 79 00 |\"......|.\"!?.y.|
|000001a0| 0a 54 89 12 88 0d e2 5a | 0e 07 56 83 89 00 0d e2 |.T.....Z|..V.....|
|000001b0| 5a 82 8a 00 0d 89 13 2a | 88 e3 0b 09 e1 23 0a 0b |Z......*|.....#..|
|000001c0| 42 d9 e2 0a 5c 22 0b 42 | d9 db 0a 5c 22 0b 42 e4 |B...\".B|...\".B.|
|000001d0| 09 cd 5c 22 1e 0c 1e 0b | 1e 0a 1e 09 1c d3 1e 0e |..\"....|........|
|000001e0| 0e 0e 09 57 85 e3 00 0e | 0c 0e 0e e5 cd e6 d8 0e |...W....|........|
|000001f0| 0e 0e 0e e2 23 e7 0e 0e | 5c 5c 5c 22 e6 d8 0e 0e |....#...|\\\"....|
|00000200| 0e 0e e2 23 e8 5c 22 23 | 49 88 0e 0e 54 89 16 0e |...#.\"#|I...T...|
|00000210| 88 82 b2 00 29 88 e9 ea | 21 88 cd 89 16 0f 88 eb |....)...|!.......|
|00000220| 70 21 88 ec 20 88 d3 1e | 0e 0e 0e 0b 57 85 13 01 |p!.. ...|....W...|
|00000230| 0e 0e 54 89 16 0e 88 ed | e8 0e 06 53 5c 22 88 ee |..T.....|...S\"..|
|00000240| 63 88 82 f8 00 29 88 ed | ef 0e 06 53 5c 22 88 e1 |c....)..|...S\"..|
|00000250| 1e 10 0e 10 da 57 85 5f | 01 f0 0c d9 0e 10 0a 5c |.....W._|.......\|
|00000260| 22 5c 22 88 0e 10 d7 5c | 5c 89 16 10 88 0c 1e 0e |"\"....\|\.......|
|00000270| 0e 0e 0b 57 85 5a 01 0e | 0e 54 89 16 0e 88 f1 e1 |...W.Z..|.T......|
|00000280| 21 88 f2 63 88 f3 e1 21 | 88 f4 e1 21 88 82 3a 01 |!..c...!|...!..:.|
|00000290| 29 88 82 1f 01 29 88 d3 | cd 1e 11 1e 0e 0e 0e 09 |)....)..|........|
|000002a0| 57 85 ac 01 0e 0c e3 09 | e1 0e 0e 23 48 89 16 11 |W.......|...#H...|
|000002b0| 88 0e 11 d3 0b 0e 0e 5a | 49 88 f0 0e 09 41 0e 09 |.......Z|I....A..|
|000002c0| 40 09 0e 0e 5a 5a 5c 22 | 88 f5 0e 11 d2 cd 23 88 |@...ZZ\"|......#.|
|000002d0| f6 0e 09 0e 09 41 53 5c | 22 88 0e 0e 54 89 16 0e |.....AS\|"...T...|
|000002e0| 88 82 67 01 2a 88 d2 89 | 16 0f 88 f7 d3 21 88 f8 |..g.*...|.....!..|
|000002f0| 09 53 0e 09 0e 0a 0e 0b | 24 88 65 62 88 f9 fa 21 |.S......|$.eb...!|
|00000300| 88 d2 89 16 0f 88 fb fc | 20 21 88 f7 d3 21 2d 2d |........| !...!--|
|00000310| 87 22 20 5b 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |." [curr|ent-pref|
|00000320| 69 78 2d 61 72 67 20 6e | 72 69 6e 67 73 20 70 6f |ix-arg n|rings po|
|00000330| 6c 65 2d 73 70 61 63 69 | 6e 67 20 66 6c 6f 6f 72 |le-spaci|ng floor|
|00000340| 2d 72 6f 77 20 66 6c 79 | 2d 72 6f 77 20 77 69 6e |-row fly|-row win|
|00000350| 64 6f 77 2d 68 65 69 67 | 68 74 20 77 69 6e 64 6f |dow-heig|ht windo|
|00000360| 77 2d 77 69 64 74 68 20 | 68 20 77 20 70 6f 6c 65 |w-width |h w pole|
|00000370| 2d 31 20 70 6f 6c 65 2d | 32 20 70 6f 6c 65 2d 33 |-1 pole-|2 pole-3|
|00000380| 20 72 69 6e 67 73 20 6e | 69 6c 20 69 20 62 75 66 | rings n|il i buf|
|00000390| 66 65 72 2d 72 65 61 64 | 2d 6f 6e 6c 79 20 6e 20 |fer-read|-only n |
|000003a0| 72 69 6e 67 20 74 20 30 | 20 65 72 72 6f 72 20 22 |ring t 0| error "|
|000003b0| 4e 65 67 61 74 69 76 65 | 20 6e 75 6d 62 65 72 20 |Negative| number |
|000003c0| 6f 66 20 72 69 6e 67 73 | 22 20 73 65 6c 65 63 74 |of rings|" select|
|000003d0| 65 64 2d 77 69 6e 64 6f | 77 20 32 20 2b 20 2a 20 |ed-windo|w 2 + * |
|000003e0| 36 20 35 20 64 65 6c 65 | 74 65 2d 6f 74 68 65 72 |6 5 dele|te-other|
|000003f0| 2d 77 69 6e 64 6f 77 73 | 20 22 53 63 72 65 65 6e |-windows| "Screen|
|00000400| 20 69 73 20 74 6f 6f 20 | 73 6d 61 6c 6c 20 28 6e | is too |small (n|
|00000410| 65 65 64 20 61 74 20 6c | 65 61 73 74 20 25 64 78 |eed at l|east %dx|
|00000420| 25 64 29 22 20 2f 20 7a | 65 72 6f 70 20 6c 6f 67 |%d)" / z|erop log|
|00000430| 61 6e 64 20 31 20 33 20 | 2d 20 6d 61 6b 65 2d 76 |and 1 3 |- make-v|
|00000440| 65 63 74 6f 72 20 76 65 | 63 74 6f 72 20 6d 61 6b |ector ve|ctor mak|
|00000450| 65 2d 73 74 72 69 6e 67 | 20 34 38 20 33 32 20 73 |e-string| 48 32 s|
|00000460| 77 69 74 63 68 2d 74 6f | 2d 62 75 66 66 65 72 20 |witch-to|-buffer |
|00000470| 22 2a 48 61 6e 6f 69 2a | 22 20 62 75 66 66 65 72 |"*Hanoi*|" buffer|
|00000480| 2d 66 6c 75 73 68 2d 75 | 6e 64 6f 20 65 72 61 73 |-flush-u|ndo eras|
|00000490| 65 2d 62 75 66 66 65 72 | 20 69 6e 73 65 72 74 2d |e-buffer| insert-|
|000004a0| 63 68 61 72 20 31 30 20 | 36 31 20 68 61 6e 6f 69 |char 10 |61 hanoi|
|000004b0| 2d 74 6f 70 6f 73 20 6e | 65 78 74 2d 6c 69 6e 65 |-topos n|ext-line|
|000004c0| 20 31 32 34 20 64 65 6c | 65 74 65 2d 63 68 61 72 | 124 del|ete-char|
|000004d0| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 68 | backwar|d-char h|
|000004e0| 61 6e 6f 69 2d 64 72 61 | 77 2d 72 69 6e 67 20 73 |anoi-dra|w-ring s|
|000004f0| 65 74 63 64 72 20 73 69 | 74 2d 66 6f 72 20 68 61 |etcdr si|t-for ha|
|00000500| 6e 6f 69 30 20 6d 65 73 | 73 61 67 65 20 22 44 6f |noi0 mes|sage "Do|
|00000510| 6e 65 22 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |ne" set-|buffer-m|
|00000520| 6f 64 69 66 69 65 64 2d | 70 20 62 75 66 66 65 72 |odified-|p buffer|
|00000530| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 5d 20 34 36 29 |-modifie|d-p] 46)|
|00000540| 29 0a 0a 28 64 65 66 75 | 6e 20 68 61 6e 6f 69 30 |)..(defu|n hanoi0|
|00000550| 20 28 6e 20 66 72 6f 6d | 20 74 6f 20 77 6f 72 6b | (n from| to work|
|00000560| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c5 20 |) (byte-|code ". |
|00000570| 83 0d 00 c6 c7 c8 43 5c | 22 82 28 00 08 c9 57 86 |......C\|".(...W.|
|00000580| 28 00 ca 08 53 0a 0b 0c | 24 88 cb 08 0a 0c 23 88 |(...S...|$.....#.|
|00000590| ca 08 53 0b 0c 0a 24 87 | 22 20 5b 6e 20 74 20 66 |..S...$.|" [n t f|
|000005a0| 72 6f 6d 20 77 6f 72 6b | 20 74 6f 20 69 6e 70 75 |rom work| to inpu|
|000005b0| 74 2d 70 65 6e 64 69 6e | 67 2d 70 20 73 69 67 6e |t-pendin|g-p sign|
|000005c0| 61 6c 20 71 75 69 74 20 | 22 49 20 63 61 6e 20 74 |al quit |"I can t|
|000005d0| 65 6c 6c 20 79 6f 75 27 | 76 65 20 68 61 64 20 65 |ell you'|ve had e|
|000005e0| 6e 6f 75 67 68 22 20 30 | 20 68 61 6e 6f 69 30 20 |nough" 0| hanoi0 |
|000005f0| 68 61 6e 6f 69 2d 6d 6f | 76 65 2d 72 69 6e 67 5d |hanoi-mo|ve-ring]|
|00000600| 20 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 68 61 6e | 9))..(d|efun han|
|00000610| 6f 69 2d 6d 6f 76 65 2d | 72 69 6e 67 20 28 6e 20 |oi-move-|ring (n |
|00000620| 66 72 6f 6d 20 74 6f 29 | 20 28 62 79 74 65 2d 63 |from to)| (byte-c|
|00000630| 6f 64 65 20 22 09 0a 48 | c4 1b 18 08 cd 48 ce 0e |ode "..H|.....H..|
|00000640| 07 40 0a cf 23 ce 0e 09 | 40 0a cf 23 0e 09 41 1e |.@..#...|@..#..A.|
|00000650| 0a 1e 08 1e 06 1d d0 0d | 0e 06 5c 22 88 0d 0e 0b |........|..\"....|
|00000660| 56 85 4a 00 d1 08 c4 cc | 23 88 d2 cf 21 88 d1 08 |V.J.....|#...!...|
|00000670| cc c4 23 88 d3 cd 21 88 | 0d 53 89 15 88 82 27 00 |..#...!.|.S....'.|
|00000680| 88 d4 0e 07 0e 07 41 54 | 5c 22 88 d5 0e 08 0e 06 |......AT|\"......|
|00000690| 5c 22 3f 85 ad 00 0e 08 | 0e 06 56 83 85 00 d6 cf |\"?.....|..V.....|
|000006a0| 21 88 d7 d8 21 88 d9 cf | 21 88 da db db 5c 22 88 |!...!...|!....\".|
|000006b0| d3 cd 21 88 0e 06 54 54 | 89 16 06 82 a9 00 0e 08 |..!...TT|........|
|000006c0| 0e 06 57 85 a9 00 d9 cf | 21 88 dc d8 21 88 d6 cf |..W.....|!...!...|
|000006d0| 21 88 da db db 5c 22 88 | d3 cd 21 88 0e 06 53 53 |!....\".|..!...SS|
|000006e0| 89 16 06 88 82 54 00 88 | d0 0e 0b 0e 08 5c 22 88 |.....T..|.....\".|
|000006f0| 0d 0e 0a 57 85 db 00 d1 | 08 c4 0d 0e 0b 56 23 88 |...W....|.....V#.|
|00000700| dd cf 21 88 d1 08 cc c4 | 23 88 d3 cd 21 88 0d 54 |..!.....|#...!..T|
|00000710| 89 15 88 82 b5 00 88 08 | cd 0e 0a 49 88 d4 0e 09 |........|...I....|
|00000720| 0e 09 41 53 5c 22 2c 2a | 87 22 20 5b 72 69 6e 67 |..AS\",*|." [ring|
|00000730| 20 72 69 6e 67 73 20 6e | 20 62 75 66 66 65 72 2d | rings n| buffer-|
|00000740| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 72 6f |read-onl|y nil ro|
|00000750| 77 20 63 6f 6c 20 66 72 | 6f 6d 20 64 73 74 2d 63 |w col fr|om dst-c|
|00000760| 6f 6c 20 74 6f 20 64 73 | 74 2d 72 6f 77 20 66 6c |ol to ds|t-row fl|
|00000770| 79 2d 72 6f 77 20 74 20 | 30 20 2d 20 31 20 68 61 |y-row t |0 - 1 ha|
|00000780| 6e 6f 69 2d 74 6f 70 6f | 73 20 68 61 6e 6f 69 2d |noi-topo|s hanoi-|
|00000790| 64 72 61 77 2d 72 69 6e | 67 20 70 72 65 76 69 6f |draw-rin|g previo|
|000007a0| 75 73 2d 6c 69 6e 65 20 | 73 69 74 2d 66 6f 72 20 |us-line |sit-for |
|000007b0| 73 65 74 63 64 72 20 65 | 71 75 61 6c 20 65 6e 64 |setcdr e|qual end|
|000007c0| 2d 6f 66 2d 6c 69 6e 65 | 20 64 65 6c 65 74 65 2d |-of-line| delete-|
|000007d0| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 32 20 |backward|-char 2 |
|000007e0| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|000007f0| 65 20 69 6e 73 65 72 74 | 20 33 32 20 64 65 6c 65 |e insert| 32 dele|
|00000800| 74 65 2d 63 68 61 72 20 | 6e 65 78 74 2d 6c 69 6e |te-char |next-lin|
|00000810| 65 5d 20 32 37 29 29 0a | 0a 28 64 65 66 75 6e 20 |e] 27)).|.(defun |
|00000820| 68 61 6e 6f 69 2d 64 72 | 61 77 2d 72 69 6e 67 20 |hanoi-dr|aw-ring |
|00000830| 28 72 69 6e 67 20 66 31 | 20 66 32 29 20 28 62 79 |(ring f1| f2) (by|
|00000840| 74 65 2d 63 6f 64 65 20 | 22 8a 09 83 0b 00 0a c5 |te-code |".......|
|00000850| 48 82 0e 00 0a c6 48 18 | 08 47 1b c7 0b 21 88 08 |H.....H.|.G...!..|
|00000860| 63 88 0c 85 2c 00 c8 c9 | 0b c5 5c 5c c6 5c 22 21 |c...,...|..\\.\"!|
|00000870| 88 c7 c5 21 88 ca 63 2a | 29 87 22 20 5b 73 74 72 |...!..c*|)." [str|
|00000880| 69 6e 67 20 66 31 20 72 | 69 6e 67 20 6c 65 6e 20 |ing f1 r|ing len |
|00000890| 66 32 20 31 20 32 20 64 | 65 6c 65 74 65 2d 63 68 |f2 1 2 d|elete-ch|
|000008a0| 61 72 20 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |ar backw|ard-char|
|000008b0| 20 2f 20 31 32 34 5d 20 | 35 29 29 0a             | / 124] |5)).    |
+--------+-------------------------+-------------------------+--------+--------+