/ Liren Large Software Subsidy 9 / 09.iso / e / e070 / 6.ddi / EXPLORER / SLIDES / TO-ASSIG.TF

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 41 53 4c 20 46 49 4c | 45 0d 0a 43 6f 70 79 72 |FASL FIL|E..Copyr|
|00000010| 69 67 68 74 20 28 63 29 | 20 31 39 38 34 20 53 61 |ight (c)| 1984 Sa|
|00000020| 6e 20 4d 61 72 63 6f 20 | 41 73 73 6f 63 69 61 74 |n Marco |Associat|
|00000030| 65 73 0d 0a 09 41 6c 6c | 20 72 69 67 68 74 73 20 |es...All| rights |
|00000040| 72 65 73 65 72 76 65 64 | 2e 0d 0a 1a ff 07 04 55 |reserved|.......U|
|00000050| 53 45 52 0e 0d 00 00 00 | 00 07 04 4c 49 53 50 0e |SER.....|...LISP.|
|00000060| 0b 01 04 53 45 54 46 07 | 0a 47 45 54 2d 4c 45 53 |...SETF.|.GET-LES|
|00000070| 53 4f 4e 0b 01 05 51 55 | 4f 54 45 07 09 54 4f 2d |SON...QU|OTE..TO-|
|00000080| 41 53 53 49 47 4e 04 10 | 02 04 10 02 0b 01 05 51 |ASSIGN..|.......Q|
|00000090| 55 4f 54 45 07 06 4c 45 | 53 53 4f 4e 07 09 54 4f |UOTE..LE|SSON..TO|
|000000a0| 2d 41 53 53 49 47 4e 0b | 01 04 4e 41 4d 45 07 09 |-ASSIGN.|..NAME..|
|000000b0| 54 4f 2d 41 53 53 49 47 | 4e 04 10 01 07 04 4e 45 |TO-ASSIG|N.....NE|
|000000c0| 58 54 07 0b 54 4f 2d 53 | 45 51 55 45 4e 43 45 04 |XT..TO-S|EQUENCE.|
|000000d0| 10 01 07 08 50 52 45 56 | 49 4f 55 53 07 07 43 4f |....PREV|IOUS..CO|
|000000e0| 4e 53 2d 49 49 04 10 01 | 07 0b 4c 45 53 53 4f 4e |NS-II...|..LESSON|
|000000f0| 2d 4e 41 4d 45 26 09 55 | 73 69 6e 67 20 4c 45 54 |-NAME&.U|sing LET|
|00000100| 04 10 01 04 10 08 07 05 | 53 4c 49 44 45 07 0a 45 |........|SLIDE..E|
|00000110| 58 50 4f 53 49 54 49 4f | 4e 23 01 00 00 00 04 07 |XPOSITIO|N#......|
|00000120| 0a 45 58 50 4f 53 49 54 | 49 4f 4e 25 0f 01 00 00 |.EXPOSIT|ION%....|
|00000130| 0a 4e 6f 77 20 69 74 20 | 69 73 20 74 69 6d 65 20 |.Now it |is time |
|00000140| 74 6f 20 6c 65 61 72 6e | 20 61 62 6f 75 74 20 73 |to learn| about s|
|00000150| 74 69 6c 6c 20 6d 6f 72 | 65 20 4c 49 53 50 20 70 |till mor|e LISP p|
|00000160| 72 69 6d 69 74 69 76 65 | 73 20 74 68 61 74 0a 77 |rimitive|s that.w|
|00000170| 69 6c 6c 20 6d 61 6b 65 | 20 79 6f 75 72 20 70 72 |ill make| your pr|
|00000180| 6f 67 72 61 6d 6d 69 6e | 67 20 74 6f 6f 6c 20 6b |ogrammin|g tool k|
|00000190| 69 74 20 6d 75 63 68 20 | 6d 6f 72 65 20 70 6f 77 |it much |more pow|
|000001a0| 65 72 66 75 6c 2e 0a 0a | 54 68 65 20 66 69 72 73 |erful...|The firs|
|000001b0| 74 20 6f 66 20 74 68 65 | 73 65 20 70 72 69 6d 69 |t of the|se primi|
|000001c0| 74 69 76 65 73 20 69 73 | 20 4c 45 54 2c 20 77 68 |tives is| LET, wh|
|000001d0| 69 63 68 20 65 6e 61 62 | 6c 65 73 20 79 6f 75 20 |ich enab|les you |
|000001e0| 74 6f 20 63 72 65 61 74 | 65 0a 6e 65 77 20 70 61 |to creat|e.new pa|
|000001f0| 72 61 6d 65 74 65 72 73 | 20 69 6e 20 61 64 64 69 |rameters| in addi|
|00000200| 74 69 6f 6e 20 74 6f 20 | 74 68 6f 73 65 20 69 6e |tion to |those in|
|00000210| 20 74 68 65 20 70 61 72 | 61 6d 65 74 65 72 20 6c | the par|ameter l|
|00000220| 69 73 74 73 20 6f 66 0a | 70 72 6f 63 65 64 75 72 |ists of.|procedur|
|00000230| 65 20 64 65 66 69 6e 69 | 74 69 6f 6e 73 2e 0a 23 |e defini|tions..#|
|00000240| 08 00 00 00 10 01 04 27 | 03 00 00 00 2e 27 05 00 |.......'|.....'..|
|00000250| 00 00 2e 07 05 53 4c 49 | 44 45 07 0a 45 58 50 4f |.....SLI|DE..EXPO|
|00000260| 53 49 54 49 4f 4e 23 02 | 00 00 00 04 07 0a 45 58 |SITION#.|......EX|
|00000270| 50 4f 53 49 54 49 4f 4e | 25 78 01 00 00 0a 48 65 |POSITION|%x....He|
|00000280| 72 65 20 74 68 65 20 4c | 45 54 20 74 65 6d 70 6c |re the L|ET templ|
|00000290| 61 74 65 20 61 6e 64 20 | 61 6e 20 65 78 61 6d 70 |ate and |an examp|
|000002a0| 6c 65 3a 0a 0a 28 4c 45 | 54 20 28 28 3c 70 61 72 |le:..(LE|T ((<par|
|000002b0| 61 6d 65 74 65 72 20 31 | 3e 20 3c 76 61 6c 75 65 |ameter 1|> <value|
|000002c0| 20 31 3e 29 20 2e 2e 2e | 20 28 3c 70 61 72 61 6d | 1>) ...| (<param|
|000002d0| 65 74 65 72 20 6e 3e 20 | 3c 76 61 6c 75 65 20 6e |eter n> |<value n|
|000002e0| 3e 29 29 0a 00 02 3c 66 | 6f 72 6d 20 31 3e 20 2e |>))...<f|orm 1> .|
|000002f0| 2e 2e 20 3c 66 6f 72 6d | 20 6e 3e 29 0a 0a 2a 20 |.. <form| n>)..* |
|00000300| 28 4c 45 54 20 28 28 58 | 20 33 29 20 28 59 20 35 |(LET ((X| 3) (Y 5|
|00000310| 29 29 0a 00 04 28 2a 20 | 58 20 59 29 29 0a 31 35 |))...(* |X Y)).15|
|00000320| 0a 0a 48 65 72 65 20 69 | 73 20 74 68 65 20 77 61 |..Here i|s the wa|
|00000330| 79 20 74 68 65 20 4c 45 | 54 20 74 65 6d 70 6c 61 |y the LE|T templa|
|00000340| 74 65 20 63 6f 72 72 65 | 73 70 6f 6e 64 73 20 74 |te corre|sponds t|
|00000350| 6f 20 74 68 65 20 4c 45 | 54 20 65 78 61 6d 70 6c |o the LE|T exampl|
|00000360| 65 3a 0a 0a 00 0c 58 00 | 0c 33 00 10 59 00 0c 35 |e:....X.|.3..Y..5|
|00000370| 0a 00 0c 1e 00 0c 1e 00 | 10 1e 00 0c 1e 0a 00 0c |........|........|
|00000380| b3 00 0c b3 00 10 b3 00 | 0c b3 0a 28 4c 45 54 20 |........|...(LET |
|00000390| 28 28 3c 70 61 72 61 6d | 65 74 65 72 20 31 3e 20 |((<param|eter 1> |
|000003a0| 3c 76 61 6c 75 65 20 31 | 3e 29 20 2e 2e 2e 20 28 |<value 1|>) ... (|
|000003b0| 3c 70 61 72 61 6d 65 74 | 65 72 20 6e 3e 20 3c 76 |<paramet|er n> <v|
|000003c0| 61 6c 75 65 20 6e 3e 29 | 29 0a 00 02 3c 66 6f 72 |alue n>)|)...<for|
|000003d0| 6d 20 31 3e 20 2e 2e 2e | 20 3c 66 6f 72 6d 20 6e |m 1> ...| <form n|
|000003e0| 3e 29 0a 00 05 b3 0a 00 | 05 1f 0a 00 02 28 2a 20 |>)......|.....(* |
|000003f0| 58 20 59 29 0a 23 15 00 | 00 00 10 01 04 27 03 00 |X Y).#..|.....'..|
|00000400| 00 00 2e 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|00000410| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 03 00 00 |..EXPOSI|TION#...|
|00000420| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 52 |....EXPO|SITION%R|
|00000430| 02 00 00 0a 43 6f 6e 73 | 69 64 65 72 20 74 68 65 |....Cons|ider the|
|00000440| 20 65 78 61 6d 70 6c 65 | 20 61 6e 64 20 74 68 65 | example| and the|
|00000450| 20 74 65 6d 70 6c 61 74 | 65 20 61 67 61 69 6e 3a | templat|e again:|
|00000460| 0a 0a 28 4c 45 54 20 28 | 28 3c 70 61 72 61 6d 65 |..(LET (|(<parame|
|00000470| 74 65 72 20 31 3e 20 3c | 76 61 6c 75 65 20 31 3e |ter 1> <|value 1>|
|00000480| 29 20 2e 2e 2e 20 28 3c | 70 61 72 61 6d 65 74 65 |) ... (<|paramete|
|00000490| 72 20 6e 3e 20 3c 76 61 | 6c 75 65 20 6e 3e 29 29 |r n> <va|lue n>))|
|000004a0| 0a 00 02 3c 66 6f 72 6d | 20 31 3e 20 2e 2e 2e 20 |...<form| 1> ... |
|000004b0| 3c 66 6f 72 6d 20 6e 3e | 29 0a 0a 28 4c 45 54 20 |<form n>|)..(LET |
|000004c0| 28 28 58 20 33 29 20 28 | 59 20 35 29 29 0a 00 02 |((X 3) (|Y 5))...|
|000004d0| 28 2a 20 58 20 59 29 29 | 0a 0a 54 68 65 20 70 61 |(* X Y))|..The pa|
|000004e0| 72 61 6d 65 74 65 72 2d | 73 70 65 63 69 66 69 63 |rameter-|specific|
|000004f0| 61 74 69 6f 6e 20 6c 69 | 73 74 20 68 61 73 20 74 |ation li|st has t|
|00000500| 77 6f 20 65 6c 65 6d 65 | 6e 74 73 2c 20 6e 61 6d |wo eleme|nts, nam|
|00000510| 65 6c 79 20 28 58 20 33 | 29 0a 61 6e 64 20 28 59 |ely (X 3|).and (Y|
|00000520| 20 35 29 2e 00 02 42 6f | 74 68 20 6e 61 6d 65 20 | 5)...Bo|th name |
|00000530| 61 20 70 61 72 61 6d 65 | 74 65 72 20 61 6e 64 20 |a parame|ter and |
|00000540| 62 6f 74 68 20 61 72 72 | 61 6e 67 65 20 66 6f 72 |both arr|ange for|
|00000550| 20 74 68 65 0a 70 61 72 | 61 6d 65 74 65 72 27 73 | the.par|ameter's|
|00000560| 20 69 6e 69 74 69 61 6c | 20 76 61 6c 75 65 2e 0a | initial| value..|
|00000570| 0a 58 27 73 20 76 61 6c | 75 65 20 62 65 63 6f 6d |.X's val|ue becom|
|00000580| 65 73 20 33 20 61 6e 64 | 20 59 27 73 20 76 61 6c |es 3 and| Y's val|
|00000590| 75 65 20 62 65 63 6f 6d | 65 73 20 35 2e 0a 0a 54 |ue becom|es 5...T|
|000005a0| 68 65 20 62 6f 64 79 20 | 68 61 73 20 6a 75 73 74 |he body |has just|
|000005b0| 20 6f 6e 65 20 66 6f 72 | 6d 20 74 6f 20 62 65 20 | one for|m to be |
|000005c0| 65 76 61 6c 75 61 74 65 | 64 2c 20 6e 61 6d 65 6c |evaluate|d, namel|
|000005d0| 79 20 28 2a 20 58 20 59 | 29 2e 20 0a 4f 66 74 65 |y (* X Y|). .Ofte|
|000005e0| 6e 20 74 68 65 72 65 20 | 61 72 65 20 6d 61 6e 79 |n there |are many|
|000005f0| 2e 0a 0a 54 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |...The v|alue of |
|00000600| 74 68 65 20 4c 45 54 20 | 65 78 70 72 65 73 73 69 |the LET |expressi|
|00000610| 6f 6e 20 69 73 20 74 68 | 65 20 76 61 6c 75 65 20 |on is th|e value |
|00000620| 6f 66 20 74 68 65 20 6c | 61 73 74 20 66 6f 72 6d |of the l|ast form|
|00000630| 20 69 6e 0a 74 68 65 20 | 62 6f 64 79 2e 00 02 49 | in.the |body...I|
|00000640| 6e 20 74 68 69 73 20 65 | 78 61 6d 70 6c 65 2c 20 |n this e|xample, |
|00000650| 74 68 65 20 6c 61 73 74 | 20 66 6f 72 6d 20 69 73 |the last| form is|
|00000660| 20 74 68 65 20 6f 6e 6c | 79 20 66 6f 72 6d 20 61 | the onl|y form a|
|00000670| 6e 64 0a 74 68 65 20 72 | 65 73 75 6c 74 20 69 73 |nd.the r|esult is|
|00000680| 20 31 35 2e 0a 23 16 00 | 00 00 10 01 04 27 03 00 | 15..#..|.....'..|
|00000690| 00 00 2e 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|000006a0| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 04 00 00 |..EXPOSI|TION#...|
|000006b0| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 25 64 |....EXPO|SITION%d|
|000006c0| 01 00 00 0a 48 65 72 65 | 20 69 73 20 74 68 65 20 |....Here| is the |
|000006d0| 77 61 79 20 74 68 65 20 | 4c 45 54 20 74 65 6d 70 |way the |LET temp|
|000006e0| 6c 61 74 65 20 63 6f 72 | 72 65 73 70 6f 6e 64 73 |late cor|responds|
|000006f0| 20 74 6f 20 61 6e 6f 74 | 68 65 72 20 65 78 61 6d | to anot|her exam|
|00000700| 70 6c 65 0a 4c 45 54 20 | 66 6f 72 6d 2c 20 69 6e |ple.LET |form, in|
|00000710| 20 77 68 69 63 68 20 74 | 68 65 20 70 61 72 61 6d | which t|he param|
|00000720| 65 74 65 72 73 20 67 65 | 74 20 74 68 65 69 72 20 |eters ge|t their |
|00000730| 76 61 6c 75 65 73 20 66 | 72 6f 6d 20 63 6f 6d 70 |values f|rom comp|
|00000740| 75 74 65 64 0a 66 6f 72 | 6d 73 2c 20 6e 6f 74 20 |uted.for|ms, not |
|00000750| 6a 75 73 74 20 6e 75 6d | 62 65 72 73 3a 0a 0a 0a |just num|bers:...|
|00000760| 28 4c 45 54 20 28 28 58 | 20 28 2b 20 41 20 42 29 |(LET ((X| (+ A B)|
|00000770| 29 20 28 59 20 28 2d 20 | 41 20 42 29 29 29 20 28 |) (Y (- |A B))) (|
|00000780| 2a 20 58 20 59 29 29 0a | 0a 0a 00 0c 58 00 09 28 |* X Y)).|....X..(|
|00000790| 2b 20 41 20 42 29 00 0d | 59 00 09 28 2d 20 41 20 |+ A B)..|Y..(- A |
|000007a0| 42 29 0a 00 0c 1e 00 0c | 1e 00 10 1e 00 0c 1e 0a |B)......|........|
|000007b0| 00 0c b3 00 0c b3 00 10 | b3 00 0c b3 0a 28 4c 45 |........|.....(LE|
|000007c0| 54 20 28 28 3c 70 61 72 | 61 6d 65 74 65 72 20 31 |T ((<par|ameter 1|
|000007d0| 3e 20 3c 76 61 6c 75 65 | 20 31 3e 29 20 2e 2e 2e |> <value| 1>) ...|
|000007e0| 20 28 3c 70 61 72 61 6d | 65 74 65 72 20 6e 3e 20 | (<param|eter n> |
|000007f0| 3c 76 61 6c 75 65 20 6e | 3e 29 29 0a 00 02 3c 66 |<value n|>))...<f|
|00000800| 6f 72 6d 20 31 3e 20 2e | 2e 2e 20 3c 66 6f 72 6d |orm 1> .|.. <form|
|00000810| 20 6e 3e 29 0a 00 05 b3 | 0a 00 05 1f 0a 00 02 28 | n>)....|.......(|
|00000820| 2a 20 58 20 59 29 0a 23 | 12 00 00 00 10 01 04 27 |* X Y).#|.......'|
|00000830| 03 00 00 00 2e 27 05 00 | 00 00 2e 07 05 53 4c 49 |.....'..|.....SLI|
|00000840| 44 45 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 23 05 |DE..EXPO|SITION#.|
|00000850| 00 00 00 04 07 0a 45 58 | 50 4f 53 49 54 49 4f 4e |......EX|POSITION|
|00000860| 25 e2 01 00 00 0a 43 6f | 6e 73 69 64 65 72 20 74 |%.....Co|nsider t|
|00000870| 68 65 20 65 78 61 6d 70 | 6c 65 20 61 6e 64 20 74 |he examp|le and t|
|00000880| 68 65 20 74 65 6d 70 6c | 61 74 65 20 61 67 61 69 |he templ|ate agai|
|00000890| 6e 3a 0a 0a 28 4c 45 54 | 20 28 28 58 20 28 2b 20 |n:..(LET| ((X (+ |
|000008a0| 41 20 42 29 29 20 28 59 | 20 28 2d 20 41 20 42 29 |A B)) (Y| (- A B)|
|000008b0| 29 29 0a 00 02 28 2a 20 | 58 20 59 29 29 0a 0a 28 |))...(* |X Y))..(|
|000008c0| 4c 45 54 20 28 28 3c 70 | 61 72 61 6d 65 74 65 72 |LET ((<p|arameter|
|000008d0| 20 31 3e 20 3c 76 61 6c | 75 65 20 31 3e 29 20 2e | 1> <val|ue 1>) .|
|000008e0| 2e 2e 20 28 3c 70 61 72 | 61 6d 65 74 65 72 20 6e |.. (<par|ameter n|
|000008f0| 3e 20 3c 76 61 6c 75 65 | 20 6e 3e 29 29 0a 00 02 |> <value| n>))...|
|00000900| 3c 66 6f 72 6d 20 31 3e | 20 2e 2e 2e 20 3c 66 6f |<form 1>| ... <fo|
|00000910| 72 6d 20 6e 3e 29 0a 0a | 41 73 20 62 65 66 6f 72 |rm n>)..|As befor|
|00000920| 65 2c 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |e, the p|arameter|
|00000930| 2d 73 70 65 63 69 66 69 | 63 61 74 69 6f 6e 20 6c |-specifi|cation l|
|00000940| 69 73 74 20 68 61 73 20 | 74 77 6f 20 65 6c 65 6d |ist has |two elem|
|00000950| 65 6e 74 73 2c 0a 6e 61 | 6d 65 6c 79 20 28 58 20 |ents,.na|mely (X |
|00000960| 28 2b 20 41 20 42 29 29 | 20 61 6e 64 20 28 59 20 |(+ A B))| and (Y |
|00000970| 28 2d 20 41 20 42 29 29 | 2e 00 02 54 68 65 20 6f |(- A B))|...The o|
|00000980| 6e 6c 79 20 64 69 66 66 | 65 72 65 6e 63 65 20 69 |nly diff|erence i|
|00000990| 73 20 74 68 61 74 0a 74 | 68 65 72 65 20 69 73 20 |s that.t|here is |
|000009a0| 73 6f 6d 65 20 63 6f 6d | 70 75 74 61 74 69 6f 6e |some com|putation|
|000009b0| 20 69 6e 76 6f 6c 76 65 | 64 20 69 6e 20 73 65 74 | involve|d in set|
|000009c0| 74 69 6e 67 20 75 70 20 | 74 68 65 20 69 6e 69 74 |ting up |the init|
|000009d0| 69 61 6c 0a 70 61 72 61 | 6d 65 74 65 72 20 76 61 |ial.para|meter va|
|000009e0| 6c 75 65 73 2e 0a 0a 41 | 73 73 75 6d 69 6e 67 20 |lues...A|ssuming |
|000009f0| 41 27 73 20 76 61 6c 75 | 65 20 69 73 20 31 31 20 |A's valu|e is 11 |
|00000a00| 61 6e 64 20 42 27 73 20 | 76 61 6c 75 65 20 69 73 |and B's |value is|
|00000a10| 20 37 2c 20 74 68 65 6e | 20 58 27 73 20 76 61 6c | 7, then| X's val|
|00000a20| 75 65 0a 62 65 63 6f 6d | 65 73 20 31 38 20 61 6e |ue.becom|es 18 an|
|00000a30| 64 20 59 27 73 20 76 61 | 6c 75 65 20 62 65 63 6f |d Y's va|lue beco|
|00000a40| 6d 65 73 20 34 2e 0a 23 | 11 00 00 00 10 01 04 27 |mes 4..#|.......'|
|00000a50| 03 00 00 00 2e 27 05 00 | 00 00 2e 07 05 53 4c 49 |.....'..|.....SLI|
|00000a60| 44 45 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 23 06 |DE..EXPO|SITION#.|
|00000a70| 00 00 00 04 07 0a 45 58 | 50 4f 53 49 54 49 4f 4e |......EX|POSITION|
|00000a80| 25 47 01 00 00 0a 4e 6f | 74 65 20 74 68 61 74 20 |%G....No|te that |
|00000a90| 74 68 65 20 4c 45 54 20 | 74 65 6d 70 6c 61 74 65 |the LET |template|
|00000aa0| 20 69 73 20 73 69 6d 69 | 6c 61 72 20 74 6f 20 74 | is simi|lar to t|
|00000ab0| 68 65 20 44 45 46 55 4e | 20 74 65 6d 70 6c 61 74 |he DEFUN| templat|
|00000ac0| 65 3a 0a 0a 28 4c 45 54 | 00 1d 28 44 45 46 55 4e |e:..(LET|..(DEFUN|
|00000ad0| 20 3c 70 72 6f 63 65 64 | 75 72 65 20 6e 61 6d 65 | <proced|ure name|
|00000ae0| 3e 0a 00 02 28 28 3c 70 | 61 72 61 6d 65 74 65 72 |>...((<p|arameter|
|00000af0| 20 31 3e 20 3c 76 61 6c | 75 65 20 31 3e 29 00 07 | 1> <val|ue 1>)..|
|00000b00| 28 3c 70 61 72 61 6d 65 | 74 65 72 20 31 3e 0a 00 |(<parame|ter 1>..|
|00000b10| 03 2e 2e 2e 00 1e 2e 2e | 2e 0a 00 03 28 3c 70 61 |........|....(<pa|
|00000b20| 72 61 6d 65 74 65 72 20 | 6e 3e 20 3c 76 61 6c 75 |rameter |n> <valu|
|00000b30| 65 20 6e 3e 29 29 00 07 | 3c 70 61 72 61 6d 65 74 |e n>))..|<paramet|
|00000b40| 65 72 20 6e 3e 29 29 0a | 00 02 3c 66 6f 72 6d 20 |er n>)).|..<form |
|00000b50| 31 3e 00 19 3c 66 6f 72 | 6d 20 31 3e 0a 00 02 2e |1>..<for|m 1>....|
|00000b60| 2e 2e 00 1e 2e 2e 2e 0a | 00 02 3c 66 6f 72 6d 20 |........|..<form |
|00000b70| 6e 3e 29 00 18 3c 66 6f | 72 6d 20 6e 3e 29 0a 0a |n>)..<fo|rm n>)..|
|00000b80| 54 68 65 20 6c 69 73 74 | 20 6f 66 20 66 6f 72 6d |The list| of form|
|00000b90| 73 20 69 73 20 6a 75 73 | 74 20 6c 69 6b 65 20 74 |s is jus|t like t|
|00000ba0| 68 65 20 6c 69 73 74 20 | 6f 66 20 66 6f 72 6d 73 |he list |of forms|
|00000bb0| 20 69 6e 20 61 20 70 72 | 6f 63 65 64 75 72 65 0a | in a pr|ocedure.|
|00000bc0| 64 65 66 69 6e 69 74 69 | 6f 6e 2e 0a 23 0e 00 00 |definiti|on..#...|
|00000bd0| 00 10 01 04 27 03 00 00 | 00 2e 27 05 00 00 00 2e |....'...|..'.....|
|00000be0| 07 05 53 4c 49 44 45 07 | 0a 45 58 50 4f 53 49 54 |..SLIDE.|.EXPOSIT|
|00000bf0| 49 4f 4e 23 07 00 00 00 | 04 07 0a 45 58 50 4f 53 |ION#....|...EXPOS|
|00000c00| 49 54 49 4f 4e 25 97 01 | 00 00 0a 54 68 65 20 6c |ITION%..|...The l|
|00000c10| 69 73 74 20 6f 66 20 70 | 61 72 61 6d 65 74 65 72 |ist of p|arameter|
|00000c20| 20 73 70 65 63 69 66 69 | 63 61 74 69 6f 6e 73 20 | specifi|cations |
|00000c30| 69 6e 20 4c 45 54 20 69 | 73 20 61 20 6c 69 74 74 |in LET i|s a litt|
|00000c40| 6c 65 20 64 69 66 66 65 | 72 65 6e 74 0a 66 72 6f |le diffe|rent.fro|
|00000c50| 6d 20 74 68 65 20 6c 69 | 73 74 20 6f 66 20 70 61 |m the li|st of pa|
|00000c60| 72 61 6d 65 74 65 72 73 | 20 69 6e 20 44 45 46 55 |rameters| in DEFU|
|00000c70| 4e 20 62 65 63 61 75 73 | 65 20 4c 45 54 27 73 20 |N becaus|e LET's |
|00000c80| 70 61 72 61 6d 65 74 65 | 72 0a 76 61 6c 75 65 73 |paramete|r.values|
|00000c90| 20 61 72 65 20 63 6f 6d | 69 6e 67 20 66 72 6f 6d | are com|ing from|
|00000ca0| 20 76 61 6c 75 65 2d 73 | 70 65 63 69 66 79 69 6e | value-s|pecifyin|
|00000cb0| 67 20 66 6f 72 6d 73 2c | 20 72 61 74 68 65 72 20 |g forms,| rather |
|00000cc0| 74 68 61 6e 20 66 72 6f | 6d 0a 61 72 67 75 6d 65 |than fro|m.argume|
|00000cd0| 6e 74 73 2e 0a 0a 44 45 | 46 55 4e 20 70 61 72 61 |nts...DE|FUN para|
|00000ce0| 6d 65 74 65 72 20 73 70 | 65 63 69 66 69 63 61 74 |meter sp|ecificat|
|00000cf0| 69 6f 6e 3a 00 05 3c 70 | 61 72 61 6d 65 74 65 72 |ion:..<p|arameter|
|00000d00| 3e 0a 4c 45 54 20 70 61 | 72 61 6d 65 74 65 72 20 |>.LET pa|rameter |
|00000d10| 73 70 65 63 69 66 69 63 | 61 74 69 6f 6e 3a 00 07 |specific|ation:..|
|00000d20| 28 3c 70 61 72 61 6d 65 | 74 65 72 3e 20 3c 76 61 |(<parame|ter> <va|
|00000d30| 6c 75 65 3e 29 00 07 0a | 0a 4e 6f 74 65 20 74 68 |lue>)...|.Note th|
|00000d40| 61 74 20 70 61 72 65 6e | 74 68 65 73 65 73 20 73 |at paren|theses s|
|00000d50| 65 74 20 6f 66 66 20 6f | 6e 65 20 4c 45 54 20 70 |et off o|ne LET p|
|00000d60| 61 72 61 6d 65 74 65 72 | 20 73 70 65 63 69 66 69 |arameter| specifi|
|00000d70| 63 61 74 69 6f 6e 0a 66 | 72 6f 6d 20 61 6e 6f 74 |cation.f|rom anot|
|00000d80| 68 65 72 20 4c 45 54 20 | 70 61 72 61 6d 65 74 65 |her LET |paramete|
|00000d90| 72 20 73 70 65 63 69 66 | 69 63 61 74 69 6f 6e 2e |r specif|ication.|
|00000da0| 0a 23 0c 00 00 00 10 01 | 04 27 03 00 00 00 2e 27 |.#......|.'.....'|
|00000db0| 05 00 00 00 2e 07 05 53 | 4c 49 44 45 07 08 45 58 |.......S|LIDE..EX|
|00000dc0| 41 4d 50 4c 45 53 23 08 | 00 00 00 04 07 0d 45 58 |AMPLES#.|......EX|
|00000dd0| 41 4d 50 4c 45 2d 47 52 | 4f 55 50 26 2d 41 73 73 |AMPLE-GR|OUP&-Ass|
|00000de0| 75 6d 65 20 41 27 73 20 | 76 61 6c 75 65 20 69 73 |ume A's |value is|
|00000df0| 20 35 3b 0a 41 73 73 75 | 6d 65 20 42 27 73 20 76 | 5;.Assu|me B's v|
|00000e00| 61 6c 75 65 20 69 73 20 | 33 2e 23 02 00 00 00 10 |alue is |3.#.....|
|00000e10| 01 26 2b 2a 20 28 4c 45 | 54 20 28 28 58 20 28 2b |.&+* (LE|T ((X (+|
|00000e20| 20 41 20 42 29 29 20 28 | 59 20 28 2d 20 41 20 42 | A B)) (|Y (- A B|
|00000e30| 29 29 29 0a 00 04 28 2a | 20 58 20 59 29 29 23 02 |)))...(*| X Y))#.|
|00000e40| 00 00 00 10 01 26 02 31 | 36 23 01 00 00 00 10 01 |.....&.1|6#......|
|00000e50| 27 04 00 00 00 2e 07 0d | 45 58 41 4d 50 4c 45 2d |'.......|EXAMPLE-|
|00000e60| 47 52 4f 55 50 26 1e 41 | 73 73 75 6d 65 20 58 27 |GROUP&.A|ssume X'|
|00000e70| 73 20 69 6e 69 74 69 61 | 6c 20 76 61 6c 75 65 20 |s initia|l value |
|00000e80| 69 73 20 32 2e 23 01 00 | 00 00 10 01 26 19 2a 20 |is 2.#..|....&.* |
|00000e90| 28 4c 45 54 20 28 28 58 | 20 34 29 29 0a 00 04 28 |(LET ((X| 4))...(|
|00000ea0| 2a 20 58 20 58 29 29 23 | 02 00 00 00 10 01 26 02 |* X X))#|......&.|
|00000eb0| 31 36 23 01 00 00 00 10 | 01 27 04 00 00 00 2e 04 |16#.....|.'......|
|00000ec0| 10 02 27 05 00 00 00 2e | 07 05 53 4c 49 44 45 07 |..'.....|..SLIDE.|
|00000ed0| 08 45 58 41 4d 50 4c 45 | 53 23 09 00 00 00 04 07 |.EXAMPLE|S#......|
|00000ee0| 0d 45 58 41 4d 50 4c 45 | 2d 47 52 4f 55 50 26 1e |.EXAMPLE|-GROUP&.|
|00000ef0| 41 73 73 75 6d 65 20 58 | 27 73 20 69 6e 69 74 69 |Assume X|'s initi|
|00000f00| 61 6c 20 76 61 6c 75 65 | 20 69 73 20 32 2e 23 01 |al value| is 2.#.|
|00000f10| 00 00 00 10 01 26 03 2a | 20 58 23 01 00 00 00 10 |.....&.*| X#.....|
|00000f20| 01 26 55 32 00 06 3b 56 | 61 6c 75 65 20 6f 66 20 |.&U2..;V|alue of |
|00000f30| 58 20 70 61 72 61 6d 65 | 74 65 72 20 69 73 20 72 |X parame|ter is r|
|00000f40| 65 73 65 74 20 74 6f 20 | 69 74 73 20 66 6f 72 6d |eset to |its form|
|00000f50| 65 72 20 76 61 6c 75 65 | 20 6f 66 20 32 0a 00 07 |er value| of 2...|
|00000f60| 3b 61 66 74 65 72 20 4c | 45 54 20 69 73 20 65 76 |;after L|ET is ev|
|00000f70| 61 6c 75 61 74 65 64 2e | 23 02 00 00 00 10 01 27 |aluated.|#......'|
|00000f80| 04 00 00 00 2e 04 10 01 | 27 05 00 00 00 2e 07 05 |........|'.......|
|00000f90| 53 4c 49 44 45 07 08 45 | 58 41 4d 50 4c 45 53 23 |SLIDE..E|XAMPLES#|
|00000fa0| 0a 00 00 00 04 07 0d 45 | 58 41 4d 50 4c 45 2d 47 |.......E|XAMPLE-G|
|00000fb0| 52 4f 55 50 26 87 41 73 | 73 75 6d 65 20 58 27 73 |ROUP&.As|sume X's|
|00000fc0| 20 69 6e 69 74 69 61 6c | 20 76 61 6c 75 65 20 69 | initial| value i|
|00000fd0| 73 20 32 2e 0a 0a 4e 6f | 74 65 20 74 68 61 74 20 |s 2...No|te that |
|00000fe0| 61 20 4c 45 54 20 70 61 | 72 61 6d 65 74 65 72 27 |a LET pa|rameter'|
|00000ff0| 73 20 76 61 6c 75 65 20 | 63 61 6e 20 62 65 20 63 |s value |can be c|
|00001000| 6f 6d 70 75 74 65 64 20 | 75 73 69 6e 67 20 61 20 |omputed |using a |
|00001010| 66 6f 72 6d 0a 74 68 61 | 74 20 69 6e 63 6c 75 64 |form.tha|t includ|
|00001020| 65 73 20 61 20 73 79 6d | 62 6f 6c 20 6f 66 20 74 |es a sym|bol of t|
|00001030| 68 65 20 73 61 6d 65 20 | 6e 61 6d 65 2e 23 04 00 |he same |name.#..|
|00001040| 00 00 10 01 26 6b 00 09 | 3b 20 58 27 73 20 76 61 |....&k..|; X's va|
|00001050| 6c 75 65 20 69 73 20 32 | 20 68 65 72 65 2e 0a 00 |lue is 2| here...|
|00001060| 09 3b 20 b3 0a 00 09 3b | 20 1f 0a 2a 20 28 4c 45 |.; ....;| ..* (LE|
|00001070| 54 20 28 28 58 20 58 29 | 29 20 28 2a 20 58 20 58 |T ((X X)|) (* X X|
|00001080| 29 29 0a 00 07 3b 20 1e | 0a 00 07 3b 20 b3 0a 00 |))...; .|...; ...|
|00001090| 07 3b 20 58 27 73 20 70 | 61 72 61 6d 65 74 65 72 |.; X's p|arameter|
|000010a0| 20 76 61 6c 75 65 20 62 | 65 63 6f 6d 65 73 20 32 | value b|ecomes 2|
|000010b0| 2e 23 07 00 00 00 10 01 | 26 01 34 23 01 00 00 00 |.#......|&.4#....|
|000010c0| 10 01 27 04 00 00 00 2e | 04 10 01 27 05 00 00 00 |..'.....|...'....|
|000010d0| 2e 07 05 53 4c 49 44 45 | 07 08 45 58 41 4d 50 4c |...SLIDE|..EXAMPL|
|000010e0| 45 53 23 0b 00 00 00 04 | 07 0d 45 58 41 4d 50 4c |ES#.....|..EXAMPL|
|000010f0| 45 2d 47 52 4f 55 50 26 | 87 41 73 73 75 6d 65 20 |E-GROUP&|.Assume |
|00001100| 58 27 73 20 69 6e 69 74 | 69 61 6c 20 76 61 6c 75 |X's init|ial valu|
|00001110| 65 20 69 73 20 32 2e 0a | 0a 4e 6f 74 65 20 74 68 |e is 2..|.Note th|
|00001120| 61 74 20 61 20 4c 45 54 | 20 70 61 72 61 6d 65 74 |at a LET| paramet|
|00001130| 65 72 27 73 20 76 61 6c | 75 65 20 63 61 6e 20 62 |er's val|ue can b|
|00001140| 65 20 63 6f 6d 70 75 74 | 65 64 20 75 73 69 6e 67 |e comput|ed using|
|00001150| 20 61 20 66 6f 72 6d 0a | 74 68 61 74 20 69 6e 63 | a form.|that inc|
|00001160| 6c 75 64 65 73 20 61 20 | 73 79 6d 62 6f 6c 20 6f |ludes a |symbol o|
|00001170| 66 20 74 68 65 20 73 61 | 6d 65 20 6e 61 6d 65 2e |f the sa|me name.|
|00001180| 23 04 00 00 00 10 01 26 | 75 00 0c 3b 20 58 27 73 |#......&|u..; X's|
|00001190| 20 76 61 6c 75 65 20 69 | 73 20 32 20 68 65 72 65 | value i|s 2 here|
|000011a0| 2e 0a 00 0c 3b 20 b3 20 | b3 0a 00 0c 3b 20 1f 20 |....; . |....; . |
|000011b0| 1f 0a 2a 20 28 4c 45 54 | 20 28 28 58 20 28 2b 20 |..* (LET| ((X (+ |
|000011c0| 58 20 58 29 29 29 20 28 | 2a 20 58 20 58 29 29 0a |X X))) (|* X X)).|
|000011d0| 00 07 3b 20 1e 0a 00 07 | 3b 20 b3 0a 00 07 3b 20 |..; ....|; ....; |
|000011e0| 58 27 73 20 70 61 72 61 | 6d 65 74 65 72 20 76 61 |X's para|meter va|
|000011f0| 6c 75 65 20 62 65 63 6f | 6d 65 73 20 34 2e 23 07 |lue beco|mes 4.#.|
|00001200| 00 00 00 10 01 26 02 31 | 36 23 01 00 00 00 10 01 |.....&.1|6#......|
|00001210| 27 04 00 00 00 2e 04 10 | 01 27 05 00 00 00 2e 07 |'.......|.'......|
|00001220| 05 53 4c 49 44 45 07 08 | 45 58 41 4d 50 4c 45 53 |.SLIDE..|EXAMPLES|
|00001230| 23 0c 00 00 00 04 07 0d | 45 58 41 4d 50 4c 45 2d |#.......|EXAMPLE-|
|00001240| 47 52 4f 55 50 26 51 41 | 73 73 75 6d 65 20 58 27 |GROUP&QA|ssume X'|
|00001250| 73 20 69 6e 69 74 69 61 | 6c 20 76 61 6c 75 65 20 |s initia|l value |
|00001260| 69 73 20 32 2e 0a 0a 4e | 6f 74 65 20 74 68 61 74 |is 2...N|ote that|
|00001270| 20 4c 45 54 73 20 63 61 | 6e 20 62 65 20 6e 65 73 | LETs ca|n be nes|
|00001280| 74 65 64 2c 20 6f 6e 65 | 20 69 6e 73 69 64 65 20 |ted, one| inside |
|00001290| 61 6e 6f 74 68 65 72 2e | 23 03 00 00 00 10 01 26 |another.|#......&|
|000012a0| 46 2a 20 28 4c 45 54 20 | 28 28 58 20 34 29 29 0a |F* (LET |((X 4)).|
|000012b0| 00 04 28 4c 45 54 20 28 | 28 59 20 28 2a 20 58 20 |..(LET (|(Y (* X |
|000012c0| 58 29 29 29 0a 00 06 28 | 4c 45 54 20 28 28 5a 20 |X)))...(|LET ((Z |
|000012d0| 28 2b 20 59 20 59 29 29 | 29 0a 00 08 28 2b 20 58 |(+ Y Y))|)...(+ X|
|000012e0| 20 59 20 5a 29 29 29 23 | 04 00 00 00 10 01 26 1c | Y Z)))#|......&.|
|000012f0| 35 32 00 1c 3b 53 69 6e | 63 65 20 34 20 2b 20 31 |52..;Sin|ce 4 + 1|
|00001300| 36 20 2b 20 33 32 20 3d | 20 35 32 0a 23 02 00 00 |6 + 32 =| 52.#...|
|00001310| 00 10 01 27 04 00 00 00 | 2e 04 10 01 27 05 00 00 |...'....|....'...|
|00001320| 00 2e 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|00001330| 49 54 49 4f 4e 23 0d 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00001340| 4f 53 49 54 49 4f 4e 25 | 94 02 00 00 0a 4c 65 74 |OSITION%|.....Let|
|00001350| 27 73 20 6c 6f 6f 6b 20 | 61 74 20 61 6e 20 65 78 |'s look |at an ex|
|00001360| 61 6d 70 6c 65 20 6f 66 | 20 70 72 6f 63 65 64 75 |ample of| procedu|
|00001370| 72 65 20 64 65 66 69 6e | 65 64 20 75 73 69 6e 67 |re defin|ed using|
|00001380| 20 4c 45 54 2e 00 02 53 | 75 70 70 6f 73 65 0a 79 | LET...S|uppose.y|
|00001390| 6f 75 20 61 6c 72 65 61 | 64 79 20 68 61 76 65 20 |ou alrea|dy have |
|000013a0| 61 20 70 72 6f 63 65 64 | 75 72 65 20 6e 61 6d 65 |a proced|ure name|
|000013b0| 64 20 46 52 41 43 54 49 | 4f 4e 2d 44 4f 4e 45 3a |d FRACTI|ON-DONE:|
|000013c0| 0a 0a 28 44 45 46 55 4e | 20 46 52 41 43 54 49 4f |..(DEFUN| FRACTIO|
|000013d0| 4e 2d 44 4f 4e 45 20 28 | 53 4d 41 4c 4c 20 4c 41 |N-DONE (|SMALL LA|
|000013e0| 52 47 45 29 0a 00 02 28 | 4c 49 53 54 20 28 2a 20 |RGE)...(|LIST (* |
|000013f0| 31 30 30 20 28 2f 20 53 | 4d 41 4c 4c 20 4c 41 52 |100 (/ S|MALL LAR|
|00001400| 47 45 29 29 20 27 50 45 | 52 43 45 4e 54 29 29 0a |GE)) 'PE|RCENT)).|
|00001410| 0a 53 6f 6d 65 68 6f 77 | 20 79 6f 75 20 63 61 6e |.Somehow| you can|
|00001420| 20 6e 65 76 65 72 20 72 | 65 6d 65 6d 62 65 72 20 | never r|emember |
|00001430| 69 66 20 74 68 65 20 66 | 69 72 73 74 20 61 72 67 |if the f|irst arg|
|00001440| 75 6d 65 6e 74 20 69 73 | 20 73 75 70 70 6f 73 65 |ument is| suppose|
|00001450| 64 0a 74 6f 20 62 65 20 | 74 68 65 20 73 6d 61 6c |d.to be |the smal|
|00001460| 6c 20 6e 75 6d 62 65 72 | 20 6f 72 20 74 68 65 20 |l number| or the |
|00001470| 6c 61 72 67 65 20 6f 6e | 65 2e 00 02 59 6f 75 20 |large on|e...You |
|00001480| 77 69 73 68 20 79 6f 75 | 20 63 6f 75 6c 64 20 6a |wish you| could j|
|00001490| 75 73 74 0a 73 75 70 70 | 6c 79 20 74 77 6f 20 6e |ust.supp|ly two n|
|000014a0| 75 6d 62 65 72 73 20 69 | 6e 20 65 69 74 68 65 72 |umbers i|n either|
|000014b0| 20 6f 72 64 65 72 2c 20 | 6c 65 74 74 69 6e 67 20 | order, |letting |
|000014c0| 74 68 65 20 70 72 6f 63 | 65 64 75 72 65 20 69 74 |the proc|edure it|
|000014d0| 73 65 6c 66 0a 61 72 72 | 61 6e 67 65 20 74 6f 20 |self.arr|ange to |
|000014e0| 64 69 76 69 64 65 20 74 | 68 65 20 6c 61 72 67 65 |divide t|he large|
|000014f0| 72 20 62 79 20 74 68 65 | 20 73 6d 61 6c 6c 65 72 |r by the| smaller|
|00001500| 20 6e 6f 20 6d 61 74 74 | 65 72 20 77 68 61 74 2e | no matt|er what.|
|00001510| 20 0a 0a 41 6d 6f 6e 67 | 20 74 68 65 20 67 72 65 | ..Among| the gre|
|00001520| 61 74 20 6e 75 6d 62 65 | 72 20 6f 66 20 61 70 70 |at numbe|r of app|
|00001530| 72 6f 61 63 68 65 73 2c | 20 77 65 20 65 6c 65 63 |roaches,| we elec|
|00001540| 74 20 74 6f 20 73 74 72 | 61 69 67 68 74 65 6e 0a |t to str|aighten.|
|00001550| 74 68 69 6e 67 73 20 61 | 72 6f 75 6e 64 20 75 73 |things a|round us|
|00001560| 69 6e 67 20 4c 45 54 2e | 0a 0a 28 44 45 46 55 4e |ing LET.|..(DEFUN|
|00001570| 20 46 52 41 43 54 49 4f | 4e 2d 44 4f 4e 45 20 28 | FRACTIO|N-DONE (|
|00001580| 58 20 59 29 0a 00 02 28 | 4c 45 54 20 28 28 53 4d |X Y)...(|LET ((SM|
|00001590| 41 4c 4c 20 28 4d 49 4e | 20 58 20 59 29 29 0a 00 |ALL (MIN| X Y))..|
|000015a0| 08 28 4c 41 52 47 45 20 | 28 4d 41 58 20 58 20 59 |.(LARGE |(MAX X Y|
|000015b0| 29 29 29 0a 00 04 28 4c | 49 53 54 20 28 2a 20 31 |)))...(L|IST (* 1|
|000015c0| 30 30 20 28 2f 20 53 4d | 41 4c 4c 20 4c 41 52 47 |00 (/ SM|ALL LARG|
|000015d0| 45 29 29 20 27 50 45 52 | 43 45 4e 54 29 29 29 0a |E)) 'PER|CENT))).|
|000015e0| 23 14 00 00 00 10 01 04 | 27 03 00 00 00 2e 27 05 |#.......|'.....'.|
|000015f0| 00 00 00 2e 07 05 53 4c | 49 44 45 07 0a 45 58 50 |......SL|IDE..EXP|
|00001600| 4f 53 49 54 49 4f 4e 23 | 0e 00 00 00 04 07 0a 45 |OSITION#|.......E|
|00001610| 58 50 4f 53 49 54 49 4f | 4e 26 9d 0a 48 65 72 65 |XPOSITIO|N&..Here|
|00001620| 20 69 73 20 74 68 65 20 | 6e 65 77 20 46 52 41 43 | is the |new FRAC|
|00001630| 54 49 4f 4e 2d 44 4f 4e | 45 20 69 6e 20 61 63 74 |TION-DON|E in act|
|00001640| 69 6f 6e 3b 20 61 73 73 | 75 6d 65 20 41 27 73 20 |ion; ass|ume A's |
|00001650| 76 61 6c 75 65 20 69 73 | 20 38 0a 61 6e 64 20 42 |value is| 8.and B|
|00001660| 27 73 20 76 61 6c 75 65 | 20 69 73 20 31 30 3a 0a |'s value| is 10:.|
|00001670| 0a 2a 20 28 46 52 41 43 | 54 49 4f 4e 2d 44 4f 4e |.* (FRAC|TION-DON|
|00001680| 45 20 41 20 42 29 0a 28 | 38 30 20 50 45 52 43 45 |E A B).(|80 PERCE|
|00001690| 4e 54 29 0a 0a 2a 20 28 | 46 52 41 43 54 49 4f 4e |NT)..* (|FRACTION|
|000016a0| 2d 44 4f 4e 45 20 42 20 | 41 29 0a 28 38 30 20 50 |-DONE B |A).(80 P|
|000016b0| 45 52 43 45 4e 54 29 0a | 23 0a 00 00 00 10 01 04 |ERCENT).|#.......|
|000016c0| 27 03 00 00 00 2e 27 05 | 00 00 00 2e 07 05 53 4c |'.....'.|......SL|
|000016d0| 49 44 45 07 0a 45 58 50 | 4f 53 49 54 49 4f 4e 23 |IDE..EXP|OSITION#|
|000016e0| 0f 00 00 00 04 07 0a 45 | 58 50 4f 53 49 54 49 4f |.......E|XPOSITIO|
|000016f0| 4e 25 26 02 00 00 0a 4e | 6f 74 65 20 74 68 65 20 |N%&....N|ote the |
|00001700| 63 6f 72 72 65 73 70 6f | 6e 64 65 6e 63 65 73 20 |correspo|ndences |
|00001710| 62 65 74 77 65 65 6e 20 | 74 68 65 20 4c 45 54 20 |between |the LET |
|00001720| 74 65 6d 70 6c 61 74 65 | 20 61 6e 64 20 74 68 65 |template| and the|
|00001730| 0a 4c 45 54 20 65 78 61 | 6d 70 6c 65 20 69 6e 20 |.LET exa|mple in |
|00001740| 74 68 65 20 70 72 6f 63 | 65 64 75 72 65 20 46 52 |the proc|edure FR|
|00001750| 41 43 54 49 4f 4e 2d 44 | 4f 4e 45 3a 0a 0a 28 44 |ACTION-D|ONE:..(D|
|00001760| 45 46 55 4e 20 46 52 41 | 43 54 49 4f 4e 2d 44 4f |EFUN FRA|CTION-DO|
|00001770| 4e 45 20 28 58 20 59 29 | 0a 00 02 28 4c 45 54 20 |NE (X Y)|...(LET |
|00001780| 28 28 53 4d 41 4c 4c 20 | 28 4d 49 4e 20 58 20 59 |((SMALL |(MIN X Y|
|00001790| 29 29 20 28 4c 41 52 47 | 45 20 28 4d 41 58 20 58 |)) (LARG|E (MAX X|
|000017a0| 20 59 29 29 29 0a 00 04 | 28 4c 49 53 54 20 28 2a | Y)))...|(LIST (*|
|000017b0| 20 31 30 30 20 28 2f 20 | 53 4d 41 4c 4c 20 4c 41 | 100 (/ |SMALL LA|
|000017c0| 52 47 45 29 29 20 27 50 | 45 52 43 45 4e 54 29 29 |RGE)) 'P|ERCENT))|
|000017d0| 29 0a 0a 00 0f da c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |).......|........|
|000017e0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 10 20 53 4d |........|..... SM|
|000017f0| 41 4c 4c 0a 00 0f b3 00 | 0b da c4 c4 c4 c4 c4 c4 |ALL.....|........|
|00001800| c4 c4 c4 c4 10 20 28 4d | 49 4e 20 58 20 59 29 0a |..... (M|IN X Y).|
|00001810| 00 02 28 4c 45 54 20 28 | 28 3c 70 61 72 61 6d 65 |..(LET (|(<parame|
|00001820| 74 65 72 20 31 3e 20 3c | 76 61 6c 75 65 20 31 3e |ter 1> <|value 1>|
|00001830| 29 0a 00 08 28 3c 70 61 | 72 61 6d 65 74 65 72 20 |)...(<pa|rameter |
|00001840| 32 3e 20 3c 76 61 6c 75 | 65 20 32 3e 29 0a 00 0f |2> <valu|e 2>)...|
|00001850| c0 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c5 c4 c4 c4 |........|........|
|00001860| c4 c4 c4 c4 c4 c4 c4 10 | 20 4c 41 52 47 45 0a 00 |........| LARGE..|
|00001870| 1b c0 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 10 20 28 4d |........|..... (M|
|00001880| 41 58 20 58 20 59 29 0a | 00 08 2e 2e 2e 0a 00 08 |AX X Y).|........|
|00001890| 28 3c 70 61 72 61 6d 65 | 74 65 72 20 6e 3e 20 3c |(<parame|ter n> <|
|000018a0| 76 61 6c 75 65 20 6e 3e | 29 29 0a 00 04 3c 66 6f |value n>|))...<fo|
|000018b0| 72 6d 20 31 3e 20 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |rm 1> ..|........|
|000018c0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 10 |........|........|
|000018d0| 20 28 4c 49 53 54 20 28 | 2a 20 31 30 30 20 28 2f | (LIST (|* 100 (/|
|000018e0| 20 53 4d 41 4c 4c 20 4c | 41 52 47 45 29 29 0a 00 | SMALL L|ARGE))..|
|000018f0| 04 3c 66 6f 72 6d 20 32 | 3e 00 22 27 50 45 52 43 |.<form 2|>."'PERC|
|00001900| 45 4e 54 29 20 0a 00 04 | 2e 2e 2e 00 14 0a 00 04 |ENT) ...|........|
|00001910| 3c 66 6f 72 6d 20 6e 3e | 29 00 08 0a 23 15 00 00 |<form n>|)...#...|
|00001920| 00 10 01 04 27 03 00 00 | 00 2e 27 05 00 00 00 2e |....'...|..'.....|
|00001930| 07 05 53 4c 49 44 45 07 | 0a 45 58 50 4f 53 49 54 |..SLIDE.|.EXPOSIT|
|00001940| 49 4f 4e 23 10 00 00 00 | 04 07 0a 45 58 50 4f 53 |ION#....|...EXPOS|
|00001950| 49 54 49 4f 4e 25 6b 01 | 00 00 0a 4e 6f 74 65 20 |ITION%k.|...Note |
|00001960| 63 61 72 65 66 75 6c 6c | 79 20 74 68 61 74 20 61 |carefull|y that a|
|00001970| 6c 6c 20 69 6e 69 74 69 | 61 6c 2d 76 61 6c 75 65 |ll initi|al-value|
|00001980| 20 66 6f 72 6d 73 20 61 | 72 65 20 65 76 61 6c 75 | forms a|re evalu|
|00001990| 61 74 65 64 20 62 65 66 | 6f 72 65 0a 74 68 65 20 |ated bef|ore.the |
|000019a0| 6e 65 77 20 70 61 72 61 | 6d 65 74 65 72 20 76 61 |new para|meter va|
|000019b0| 6c 75 65 73 20 61 72 65 | 20 61 73 73 69 67 6e 65 |lues are| assigne|
|000019c0| 64 2e 0a 0a 00 1c 54 68 | 65 73 65 20 66 6f 72 6d |d.....Th|ese form|
|000019d0| 73 20 61 72 65 20 41 4c | 4c 20 65 76 61 6c 75 61 |s are AL|L evalua|
|000019e0| 74 65 64 2c 0a 00 20 b3 | 0a 00 20 1f 0a 28 4c 45 |ted,.. .|.. ..(LE|
|000019f0| 54 20 28 28 3c 70 61 72 | 61 6d 65 74 65 72 20 31 |T ((<par|ameter 1|
|00001a00| 3e 00 08 3c 76 61 6c 75 | 65 20 31 3e 29 0a 00 07 |>..<valu|e 1>)...|
|00001a10| 2e 2e 2e 0a 00 06 28 3c | 70 61 72 61 6d 65 74 65 |......(<|paramete|
|00001a20| 72 20 6e 3e 00 08 3c 76 | 61 6c 75 65 20 6e 3e 29 |r n>..<v|alue n>)|
|00001a30| 29 0a 00 0c 1e 0a 00 0c | b3 0a 00 0c c0 c4 c4 c4 |).......|........|
|00001a40| c4 c4 20 62 65 66 6f 72 | 65 20 41 4e 59 20 6f 66 |.. befor|e ANY of|
|00001a50| 20 74 68 65 73 65 20 70 | 61 72 61 6d 65 74 65 72 | these p|arameter|
|00001a60| 73 20 61 72 65 20 73 65 | 74 2e 0a 0a 00 02 3c 66 |s are se|t.....<f|
|00001a70| 6f 72 6d 20 31 3e 20 2e | 2e 2e 20 3c 66 6f 72 6d |orm 1> .|.. <form|
|00001a80| 20 6e 3e 29 0a 0a 57 65 | 20 73 61 79 20 74 68 61 | n>)..We| say tha|
|00001a90| 74 20 74 68 65 20 4c 45 | 54 20 70 61 72 61 6d 65 |t the LE|T parame|
|00001aa0| 74 65 72 20 76 61 6c 75 | 65 73 20 61 72 65 20 63 |ter valu|es are c|
|00001ab0| 6f 6d 70 75 74 65 64 20 | 69 6e 20 50 41 52 41 4c |omputed |in PARAL|
|00001ac0| 4c 45 4c 2e 0a 23 12 00 | 00 00 10 01 04 27 03 00 |LEL..#..|.....'..|
|00001ad0| 00 00 2e 27 05 00 00 00 | 2e 07 05 53 4c 49 44 45 |...'....|...SLIDE|
|00001ae0| 07 0a 45 58 50 4f 53 49 | 54 49 4f 4e 23 11 00 00 |..EXPOSI|TION#...|
|00001af0| 00 04 07 0a 45 58 50 4f | 53 49 54 49 4f 4e 26 da |....EXPO|SITION&.|
|00001b00| 0a 53 75 70 70 6f 73 65 | 20 58 27 73 20 76 61 6c |.Suppose| X's val|
|00001b10| 75 65 20 69 73 20 63 75 | 72 72 65 6e 74 6c 79 20 |ue is cu|rrently |
|00001b20| 30 2e 00 02 4e 6f 77 20 | 74 68 69 6e 6b 20 61 62 |0...Now |think ab|
|00001b30| 6f 75 74 20 74 68 69 73 | 20 4c 45 54 20 66 6f 72 |out this| LET for|
|00001b40| 6d 3a 0a 0a 2a 20 28 4c | 45 54 20 28 28 58 20 33 |m:..* (L|ET ((X 3|
|00001b50| 29 00 04 3b 58 27 73 20 | 70 61 72 61 6d 65 74 65 |)..;X's |paramete|
|00001b60| 72 20 76 61 6c 75 65 20 | 77 69 6c 6c 20 62 65 20 |r value |will be |
|00001b70| 33 2e 0a 00 08 28 59 20 | 58 29 29 00 03 3b 59 27 |3....(Y |X))..;Y'|
|00001b80| 73 20 70 61 72 61 6d 65 | 74 65 72 20 76 61 6c 75 |s parame|ter valu|
|00001b90| 65 20 77 69 6c 6c 20 62 | 65 20 30 2c 20 73 69 6e |e will b|e 0, sin|
|00001ba0| 63 65 0a 00 04 28 4c 49 | 53 54 20 58 20 59 29 29 |ce...(LI|ST X Y))|
|00001bb0| 00 02 3b 58 27 73 20 76 | 61 6c 75 65 20 77 61 73 |..;X's v|alue was|
|00001bc0| 20 30 20 6f 75 74 73 69 | 64 65 20 74 68 65 20 4c | 0 outsi|de the L|
|00001bd0| 45 54 2e 0a 28 33 20 30 | 29 0a 23 08 00 00 00 10 |ET..(3 0|).#.....|
|00001be0| 01 04 27 03 00 00 00 2e | 27 05 00 00 00 2e 07 05 |..'.....|'.......|
|00001bf0| 53 4c 49 44 45 07 08 45 | 58 41 4d 50 4c 45 53 23 |SLIDE..E|XAMPLES#|
|00001c00| 12 00 00 00 04 07 0d 45 | 58 41 4d 50 4c 45 2d 47 |.......E|XAMPLE-G|
|00001c10| 52 4f 55 50 26 6e 41 73 | 73 75 6d 65 20 4c 31 27 |ROUP&nAs|sume L1'|
|00001c20| 73 20 69 6e 69 74 69 61 | 6c 20 76 61 6c 75 65 20 |s initia|l value |
|00001c30| 69 73 20 28 54 48 49 53 | 20 49 53 20 54 48 45 20 |is (THIS| IS THE |
|00001c40| 46 49 52 53 54 20 4c 49 | 53 54 29 3b 0a 61 73 73 |FIRST LI|ST);.ass|
|00001c50| 75 6d 65 20 4c 32 27 73 | 20 69 6e 69 74 69 61 6c |ume L2's| initial|
|00001c60| 20 76 61 6c 75 65 20 69 | 73 20 28 54 48 49 53 20 | value i|s (THIS |
|00001c70| 49 53 20 54 48 45 20 53 | 45 43 4f 4e 44 20 4c 49 |IS THE S|ECOND LI|
|00001c80| 53 54 29 2e 23 02 00 00 | 00 10 01 26 4c 2a 20 28 |ST).#...|...&L* (|
|00001c90| 4c 45 54 20 28 28 4c 31 | 20 27 28 54 48 49 53 20 |LET ((L1| '(THIS |
|00001ca0| 49 53 20 54 48 45 20 50 | 41 52 41 4d 45 54 45 52 |IS THE P|ARAMETER|
|00001cb0| 20 56 41 4c 55 45 20 4f | 46 20 4c 31 29 29 0a 00 | VALUE O|F L1))..|
|00001cc0| 08 28 4c 32 20 4c 31 29 | 29 0a 00 04 28 4c 49 53 |.(L2 L1)|)...(LIS|
|00001cd0| 54 20 4c 31 20 4c 32 29 | 29 23 03 00 00 00 10 01 |T L1 L2)|)#......|
|00001ce0| 26 6a 28 28 54 48 49 53 | 20 49 53 20 54 48 45 20 |&j((THIS| IS THE |
|00001cf0| 50 41 52 41 4d 45 54 45 | 52 20 56 41 4c 55 45 20 |PARAMETE|R VALUE |
|00001d00| 4f 46 20 4c 31 29 0a 20 | 28 54 48 49 53 20 49 53 |OF L1). |(THIS IS|
|00001d10| 20 54 48 45 20 46 49 52 | 53 54 20 4c 49 53 54 29 | THE FIR|ST LIST)|
|00001d20| 29 00 0e 3b 4c 32 20 73 | 65 74 20 74 6f 20 4c 31 |)..;L2 s|et to L1|
|00001d30| 27 73 20 76 61 6c 75 65 | 0a 00 28 3b 6f 75 74 73 |'s value|..(;outs|
|00001d40| 69 64 65 20 74 68 65 20 | 4c 45 54 2e 23 03 00 00 |ide the |LET.#...|
|00001d50| 00 10 01 27 04 00 00 00 | 2e 04 10 01 27 05 00 00 |...'....|....'...|
|00001d60| 00 2e 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|00001d70| 49 54 49 4f 4e 23 13 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00001d80| 4f 53 49 54 49 4f 4e 25 | 03 02 00 00 0a 53 6f 6d |OSITION%|.....Som|
|00001d90| 65 74 69 6d 65 73 2c 20 | 68 6f 77 65 76 65 72 2c |etimes, |however,|
|00001da0| 20 77 65 20 77 61 6e 74 | 20 74 6f 20 68 61 76 65 | we want| to have|
|00001db0| 20 61 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 4c 45 | a versi|on of LE|
|00001dc0| 54 20 74 68 61 74 20 64 | 6f 65 73 0a 70 61 72 61 |T that d|oes.para|
|00001dd0| 6d 65 74 65 72 20 61 73 | 73 69 67 6e 6d 65 6e 74 |meter as|signment|
|00001de0| 20 64 69 66 66 65 72 65 | 6e 74 6c 79 20 73 6f 20 | differe|ntly so |
|00001df0| 74 68 61 74 20 74 68 65 | 20 76 61 6c 75 65 20 6f |that the| value o|
|00001e00| 66 20 61 20 70 61 72 61 | 6d 65 74 65 72 0a 61 73 |f a para|meter.as|
|00001e10| 73 69 67 6e 65 64 20 65 | 61 72 6c 79 20 63 61 6e |signed e|arly can|
|00001e20| 20 62 65 20 75 73 65 64 | 20 74 6f 20 63 6f 6d 70 | be used| to comp|
|00001e30| 75 74 65 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |ute the |value of|
|00001e40| 20 61 20 70 61 72 61 6d | 65 74 65 72 0a 61 73 73 | a param|eter.ass|
|00001e50| 69 67 6e 65 64 20 6c 61 | 74 65 2e 00 02 54 68 65 |igned la|te...The|
|00001e60| 20 72 65 71 75 69 72 65 | 64 20 76 65 72 73 69 6f | require|d versio|
|00001e70| 6e 20 6f 66 20 4c 45 54 | 20 69 73 20 4c 45 54 2a |n of LET| is LET*|
|00001e80| 2e 20 0a 0a 53 75 70 70 | 6f 73 65 20 58 27 73 20 |. ..Supp|ose X's |
|00001e90| 76 61 6c 75 65 20 69 73 | 20 63 75 72 72 65 6e 74 |value is| current|
|00001ea0| 6c 79 20 30 2e 00 02 4e | 6f 77 20 74 68 69 6e 6b |ly 0...N|ow think|
|00001eb0| 20 61 62 6f 75 74 20 74 | 68 69 73 20 65 78 61 6d | about t|his exam|
|00001ec0| 70 6c 65 0a 4c 45 54 2a | 20 66 6f 72 6d 3a 0a 0a |ple.LET*| form:..|
|00001ed0| 2a 20 28 4c 45 54 2a 20 | 28 28 58 20 33 29 00 04 |* (LET* |((X 3)..|
|00001ee0| 3b 58 27 73 20 70 61 72 | 61 6d 65 74 65 72 20 76 |;X's par|ameter v|
|00001ef0| 61 6c 75 65 20 77 69 6c | 6c 20 62 65 20 33 2e 0a |alue wil|l be 3..|
|00001f00| 00 09 28 59 20 58 29 29 | 00 03 3b 59 27 73 20 70 |..(Y X))|..;Y's p|
|00001f10| 61 72 61 6d 65 74 65 72 | 20 76 61 6c 75 65 20 77 |arameter| value w|
|00001f20| 69 6c 6c 20 62 65 20 33 | 2c 20 58 27 73 20 6e 65 |ill be 3|, X's ne|
|00001f30| 77 20 76 61 6c 75 65 2e | 0a 00 04 28 4c 49 53 54 |w value.|...(LIST|
|00001f40| 20 58 20 59 29 29 0a 28 | 33 20 33 29 0a 0a 57 65 | X Y)).(|3 3)..We|
|00001f50| 20 73 61 79 20 74 68 61 | 74 20 74 68 65 20 4c 45 | say tha|t the LE|
|00001f60| 54 2a 20 70 61 72 61 6d | 65 74 65 72 20 76 61 6c |T* param|eter val|
|00001f70| 75 65 73 20 61 72 65 20 | 63 6f 6d 70 75 74 65 64 |ues are |computed|
|00001f80| 20 53 45 51 55 45 4e 54 | 49 41 4c 4c 59 2e 0a 23 | SEQUENT|IALLY..#|
|00001f90| 10 00 00 00 10 01 04 27 | 03 00 00 00 2e 27 05 00 |.......'|.....'..|
|00001fa0| 00 00 2e 07 05 53 4c 49 | 44 45 07 08 45 58 41 4d |.....SLI|DE..EXAM|
|00001fb0| 50 4c 45 53 23 14 00 00 | 00 04 07 0d 45 58 41 4d |PLES#...|....EXAM|
|00001fc0| 50 4c 45 2d 47 52 4f 55 | 50 26 6d 41 73 73 75 6d |PLE-GROU|P&mAssum|
|00001fd0| 65 20 4c 31 27 73 20 69 | 6e 69 74 69 61 6c 20 76 |e L1's i|nitial v|
|00001fe0| 61 6c 75 65 20 69 73 20 | 28 54 48 49 53 20 49 53 |alue is |(THIS IS|
|00001ff0| 20 54 48 45 20 46 49 52 | 53 54 20 4c 49 53 54 29 | THE FIR|ST LIST)|
|00002000| 3b 0a 61 73 73 75 6d 65 | 20 4c 32 27 73 20 69 6e |;.assume| L2's in|
|00002010| 69 74 69 61 6c 20 76 61 | 6c 75 65 20 69 73 20 28 |itial va|lue is (|
|00002020| 54 48 49 53 20 49 53 20 | 54 48 45 20 53 45 43 4f |THIS IS |THE SECO|
|00002030| 4e 44 20 4c 49 53 54 29 | 23 02 00 00 00 10 01 26 |ND LIST)|#......&|
|00002040| 4c 2a 20 28 4c 45 54 20 | 28 28 4c 31 20 27 28 54 |L* (LET |((L1 '(T|
|00002050| 48 49 53 20 49 53 20 54 | 48 45 20 50 41 52 41 4d |HIS IS T|HE PARAM|
|00002060| 45 54 45 52 20 56 41 4c | 55 45 20 4f 46 20 4c 31 |ETER VAL|UE OF L1|
|00002070| 29 29 0a 00 08 28 4c 32 | 20 4c 31 29 29 0a 00 04 |))...(L2| L1))...|
|00002080| 28 4c 49 53 54 20 4c 31 | 20 4c 32 29 29 23 03 00 |(LIST L1| L2))#..|
|00002090| 00 00 10 01 26 8a 28 28 | 54 48 49 53 20 49 53 20 |....&.((|THIS IS |
|000020a0| 54 48 45 20 50 41 52 41 | 4d 45 54 45 52 20 56 41 |THE PARA|METER VA|
|000020b0| 4c 55 45 20 4f 46 20 4c | 31 29 0a 20 28 54 48 49 |LUE OF L|1). (THI|
|000020c0| 53 20 49 53 20 54 48 45 | 20 46 49 52 53 54 20 4c |S IS THE| FIRST L|
|000020d0| 49 53 54 29 29 00 0b 3b | 4c 32 20 73 65 74 20 74 |IST))..;|L2 set t|
|000020e0| 6f 20 4c 31 27 73 20 76 | 61 6c 75 65 20 6f 75 74 |o L1's v|alue out|
|000020f0| 73 69 64 65 0a 00 25 3b | 74 68 65 20 4c 45 54 2e |side..%;|the LET.|
|00002100| 00 02 50 61 72 61 6d 65 | 74 65 72 73 0a 00 25 3b |..Parame|ters..%;|
|00002110| 73 65 74 20 69 6e 20 70 | 61 72 61 6c 6c 65 6c 2e |set in p|arallel.|
|00002120| 23 04 00 00 00 10 01 27 | 04 00 00 00 2e 04 10 01 |#......'|........|
|00002130| 27 05 00 00 00 2e 07 05 | 53 4c 49 44 45 07 08 45 |'.......|SLIDE..E|
|00002140| 58 41 4d 50 4c 45 53 23 | 15 00 00 00 04 07 0d 45 |XAMPLES#|.......E|
|00002150| 58 41 4d 50 4c 45 2d 47 | 52 4f 55 50 26 6d 41 73 |XAMPLE-G|ROUP&mAs|
|00002160| 73 75 6d 65 20 4c 31 27 | 73 20 69 6e 69 74 69 61 |sume L1'|s initia|
|00002170| 6c 20 76 61 6c 75 65 20 | 69 73 20 28 54 48 49 53 |l value |is (THIS|
|00002180| 20 49 53 20 54 48 45 20 | 46 49 52 53 54 20 4c 49 | IS THE |FIRST LI|
|00002190| 53 54 29 3b 0a 61 73 73 | 75 6d 65 20 4c 32 27 73 |ST);.ass|ume L2's|
|000021a0| 20 69 6e 69 74 69 61 6c | 20 76 61 6c 75 65 20 69 | initial| value i|
|000021b0| 73 20 28 54 48 49 53 20 | 49 53 20 54 48 45 20 53 |s (THIS |IS THE S|
|000021c0| 45 43 4f 4e 44 20 4c 49 | 53 54 29 23 02 00 00 00 |ECOND LI|ST)#....|
|000021d0| 10 01 26 4c 2a 20 28 4c | 45 54 2a 20 28 28 4c 31 |..&L* (L|ET* ((L1|
|000021e0| 20 27 28 54 48 49 53 20 | 49 53 20 54 48 45 20 50 | '(THIS |IS THE P|
|000021f0| 41 52 41 4d 45 54 45 52 | 20 56 41 4c 55 45 20 4f |ARAMETER| VALUE O|
|00002200| 46 20 4c 31 29 29 0a 00 | 09 28 4c 32 20 4c 31 29 |F L1))..|.(L2 L1)|
|00002210| 29 0a 00 04 28 4c 49 53 | 54 20 4c 31 20 4c 32 29 |)...(LIS|T L1 L2)|
|00002220| 23 03 00 00 00 10 01 26 | 8b 28 28 54 48 49 53 20 |#......&|.((THIS |
|00002230| 49 53 20 54 48 45 20 50 | 41 52 41 4d 45 54 45 52 |IS THE P|ARAMETER|
|00002240| 20 56 41 4c 55 45 20 4f | 46 20 4c 31 29 0a 20 28 | VALUE O|F L1). (|
|00002250| 54 48 49 53 20 49 53 20 | 54 48 45 20 50 41 52 41 |THIS IS |THE PARA|
|00002260| 4d 45 54 45 52 20 56 41 | 4c 55 45 20 4f 46 20 4c |METER VA|LUE OF L|
|00002270| 31 29 29 00 03 3b 4c 32 | 20 73 65 74 20 74 6f 20 |1))..;L2| set to |
|00002280| 4c 31 27 73 0a 00 28 3b | 6e 65 77 20 76 61 6c 75 |L1's..(;|new valu|
|00002290| 65 2e 00 02 50 61 72 61 | 6d 65 74 65 72 73 0a 00 |e...Para|meters..|
|000022a0| 28 3b 73 65 74 20 73 65 | 71 75 65 6e 74 69 61 6c |(;set se|quential|
|000022b0| 6c 79 2e 0a 23 05 00 00 | 00 10 01 27 04 00 00 00 |ly..#...|...'....|
|000022c0| 2e 04 10 01 27 05 00 00 | 00 2e 07 05 53 4c 49 44 |....'...|....SLID|
|000022d0| 45 07 08 50 52 41 43 54 | 49 43 45 23 16 00 00 00 |E..PRACT|ICE#....|
|000022e0| 07 05 46 4f 52 4d 53 0b | 01 01 54 04 10 02 26 35 |..FORMS.|..T...&5|
|000022f0| 0a 54 72 79 20 79 6f 75 | 72 20 68 61 6e 64 20 61 |.Try you|r hand a|
|00002300| 74 20 61 20 66 65 77 20 | 65 78 61 6d 70 6c 65 73 |t a few |examples|
|00002310| 20 75 73 69 6e 67 20 4c | 45 54 20 61 6e 64 20 4c | using L|ET and L|
|00002320| 45 54 2a 2e 0a 23 03 00 | 00 00 10 01 27 05 00 00 |ET*..#..|....'...|
|00002330| 00 2e 07 05 53 4c 49 44 | 45 07 0a 45 58 50 4f 53 |....SLID|E..EXPOS|
|00002340| 49 54 49 4f 4e 23 17 00 | 00 00 04 07 0a 45 58 50 |ITION#..|.....EXP|
|00002350| 4f 53 49 54 49 4f 4e 25 | b6 01 00 00 0a 52 65 6d |OSITION%|.....Rem|
|00002360| 65 6d 62 65 72 20 2e 2e | 2e 0a 0a 6f 00 04 49 46 |ember ..|...o..IF|
|00002370| 20 79 6f 75 20 77 61 6e | 74 20 74 6f 20 63 72 65 | you wan|t to cre|
|00002380| 61 74 65 20 70 61 72 61 | 6d 65 74 65 72 73 2c 20 |ate para|meters, |
|00002390| 0a 00 05 41 4e 44 20 79 | 6f 75 20 77 61 6e 74 20 |...AND y|ou want |
|000023a0| 74 68 65 20 70 61 72 61 | 6d 65 74 65 72 73 20 61 |the para|meters a|
|000023b0| 73 73 69 67 6e 65 64 20 | 69 6e 20 70 61 72 61 6c |ssigned |in paral|
|000023c0| 6c 65 6c 2c 0a 00 05 54 | 48 45 4e 20 69 6e 74 72 |lel,...T|HEN intr|
|000023d0| 6f 64 75 63 65 20 61 20 | 4c 45 54 3a 0a 0a 00 05 |oduce a |LET:....|
|000023e0| 28 4c 45 54 20 28 28 3c | 70 61 72 61 6d 65 74 65 |(LET ((<|paramete|
|000023f0| 72 20 31 3e 20 3c 76 61 | 6c 75 65 20 31 3e 29 0a |r 1> <va|lue 1>).|
|00002400| 00 0b 2e 2e 2e 0a 00 0b | 28 3c 70 61 72 61 6d 65 |........|(<parame|
|00002410| 74 65 72 20 6e 3e 20 3c | 76 61 6c 75 65 20 6e 3e |ter n> <|value n>|
|00002420| 29 29 0a 00 07 3c 66 6f | 72 6d 20 31 3e 20 2e 2e |))...<fo|rm 1> ..|
|00002430| 2e 20 3c 66 6f 72 6d 20 | 6e 3e 29 0a 0a 6f 00 04 |. <form |n>)..o..|
|00002440| 49 46 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 63 |IF you w|ant to c|
|00002450| 72 65 61 74 65 20 70 61 | 72 61 6d 65 74 65 72 73 |reate pa|rameters|
|00002460| 2c 20 0a 00 05 41 4e 44 | 20 79 6f 75 20 77 61 6e |, ...AND| you wan|
|00002470| 74 20 74 68 65 20 70 61 | 72 61 6d 65 74 65 72 73 |t the pa|rameters|
|00002480| 20 61 73 73 69 67 6e 65 | 64 20 73 65 71 75 65 6e | assigne|d sequen|
|00002490| 74 69 61 6c 6c 79 2c 0a | 00 05 54 48 45 4e 20 69 |tially,.|..THEN i|
|000024a0| 6e 74 72 6f 64 75 63 65 | 20 61 20 4c 45 54 2a 3a |ntroduce| a LET*:|
|000024b0| 0a 0a 00 05 28 4c 45 54 | 2a 20 28 28 3c 70 61 72 |....(LET|* ((<par|
|000024c0| 61 6d 65 74 65 72 20 31 | 3e 20 3c 76 61 6c 75 65 |ameter 1|> <value|
|000024d0| 20 31 3e 29 0a 00 0c 2e | 2e 2e 0a 00 0c 28 3c 70 | 1>)....|.....(<p|
|000024e0| 61 72 61 6d 65 74 65 72 | 20 6e 3e 20 3c 76 61 6c |arameter| n> <val|
|000024f0| 75 65 20 6e 3e 29 29 0a | 00 07 3c 66 6f 72 6d 20 |ue n>)).|..<form |
|00002500| 31 3e 20 2e 2e 2e 20 3c | 66 6f 72 6d 20 6e 3e 29 |1> ... <|form n>)|
|00002510| 0a 0a 23 16 00 00 00 10 | 01 04 27 03 00 00 00 2e |..#.....|..'.....|
|00002520| 27 05 00 00 00 2e 27 17 | 00 00 00 04 27 05 00 00 |'.....'.|....'...|
|00002530| 00 2e 04 10 02 04 10 03 | 36 0b 01 04 53 45 54 46 |........|6...SETF|
|00002540| 07 15 2a 4c 41 53 54 2d | 4c 4f 41 44 45 44 2d 4c |..*LAST-|LOADED-L|
|00002550| 45 53 53 4f 4e 53 2a 0b | 01 05 51 55 4f 54 45 07 |ESSONS*.|..QUOTE.|
|00002560| 09 54 4f 2d 41 53 53 49 | 47 4e 04 10 01 04 10 02 |.TO-ASSI|GN......|
|00002570| 04 10 03 36 40          |                         |...6@   |        |
+--------+-------------------------+-------------------------+--------+--------+