LISP15

.TXT

Скачиваний:

Добавлен:

15.06.2014

Размер:

21.28 Кб

Скачать

☆

5.21. ђ Ў®в б нЄа ®¬ Є®б®«Ё

”гЄжЁЁ нЄа Є®б®«Ё ЇаҐ¤ § зҐл ¤«п ўл¤ зЁ нЄа Ё
д®а¬ вЁа®ў Ёп б нЄа вҐЄбв - нв® дгЄжЁЁ б®§¤ Ёп ®Є®,
Ё§¬ҐҐЁп Ї®«®¦ҐЁп Єгаб®а Ё бўҐавЄЁ вҐЄбв . ЏҐаҐ¬ҐлҐ нЄа
Є®б®«Ё ®ЎҐбЇҐзЁў ов гЇа ў«ҐЁҐ в ЄЁ¬Ё ваЁЎгв ¬Ё, Є Є ¬Ґаж ЁҐ,
ЁўҐаб®Ґ Ё§®Ўа ¦ҐЁҐ, паЄ®бвм Ё ўв®¬ вЁзҐбЄ п бўҐавЄ нЄа .
Џа®жҐ¤гал, Є®в®алҐ muLISP ¬®¦Ґв ЁбЇ®«м§®ў вм ¤«п ўлЇ®«ҐЁп
а §«Ёзле нЄа ле ®ЇҐа жЁ©, ®в«Ёз овбп ¤агЈ ®в ¤агЈ ¤«п
а §«Ёзле Є®¬ЇмовҐа®ў Ё (Ё«Ё) Є®б®«Ґ©. ‘«Ґ¤®ў вҐ«м®, Є®Ј¤
muLISP бв авгҐв ЇҐаўл© а §, ® Їлв Ґвбп ба §г ®ЇаҐ¤Ґ«Ёвм вЁЇ
ќ‚Њ. …б«Ё нв® г¤ Ґвбп б¤Ґ« вм, ®Ў нв®¬ гЄ §лў Ґвбп ў® ўв®а®©
бва®ЄҐ б®®ЎйҐЁп muLISP (б¬. Ј« ўг 2).
…б«Ё ¦Ґ бЁбвҐ¬ Ґ ¬®¦Ґв ®ЇаҐ¤Ґ«Ёвм вЁЇ ќ‚Њ, ўл¤ Ґвбп ¤агЈ®Ґ
б®®ЎйҐЁҐ:
---------------------------------------------------------
| 1 = Other generic MS-DOS computer |
| 2 = IBM PC or "look-alike" computers |
| 3 = ANSI.SYS screen or VT-100 Terminal |
| 4 = TI Professional Computer |
| 5 = Zenith Z-100 Computer or VT-52 Terminal |
| 6 = Hewlett-Packard HP-150 Computer |
| 7 = Hewlett-Packard HP-110 Computer |
| 8 = NEC Advanced Personal Computer or ADM-3A Terminal |
| |
| Please enter your computer type number: |
---------------------------------------------------------

…б«Ё Ё §¤Ґбм Ґ гЄ § вЁЇ ў иҐ© ќ‚Њ, ўлЎҐаЁвҐ вЁЇ "1".
Ћ¤ Є®, ў нв®¬ б«гз Ґ ¬®ЈЁҐ Ё§ ¤Ґ©бвўЁ©, а бб¬ ваЁў Ґ¬ле ў
¤ ®© Ј« ўҐ, Ўг¤гв Ґ¤Ґ©бвўЁвҐ«мл¬Ё Ё ў®§ўа впв NIL.
Џа®Ја ¬¬ muLISP ¬®¦Ґв ®ЇаҐ¤Ґ«Ёвм вЁЇ ќ‚Њ ЇгвҐ¬ Їа®ўҐаЄЁ
Ў ©в вЁЇ , Є®в®ал© а бЇ®«®¦Ґ ў Ў §®ў®© бва ЁжҐ muLISP б®
б¬ҐйҐЁҐ¬ 855 ў ¤ҐбпвЁз®© бЁбвҐ¬Ґ (б¬. ЏаЁ«®¦ҐЁҐ ‚).
‘«Ґ¤®ў вҐ«м®, Є®¬ ¤

(CSMEMORY 855)

ў®§ўа вЁв ®¬Ґа вЁЇ ќ‚Њ - Ї®«®¦ЁвҐ«м®Ґ жҐ«®Ґ зЁб«®.
„ «ҐҐ Ўг¤Ґв бзЁв вмбп, зв® нЄа Є®б®«Ё Ё¬ҐҐв 25 бва®Є Ё 80
Є®«®®Є. „«п нЄа ®ў ¤агЈЁе а §¬Ґа®ў б«Ґ¤гҐв § ¬ҐЁвм ¤ лҐ
ўҐ«ЁзЁл ваҐЎгҐ¬лҐ б®Ј« б® вЁЇг нЄа . ‚ҐаеЁ© «Ґўл© гЈ®«
нЄа , в.Ґ. Ёбе®¤®Ґ Ї®«®¦ҐЁҐ - нв® 0-п бва®Є , 0-п Є®«®Є .

SET-CURSOR [row,column] Function

…б«Ё вЁЇ ў иҐ© ќ‚Њ б®®вўҐвбвўгҐв, Ё Ґб«Ё <бва®Є > Ё
<Є®«®Є > а ўл 0 Ё«Ё Ї®«®¦ЁвҐ«млҐ жҐ«лҐ зЁб« , ¬ҐмиҐ, зҐ¬ 25 Ё
80 б®®вўҐвбвўҐ®, (SET-CURSOR бва®Є Є®«®Є ) ЇҐаҐ¬Ґй Ґв Єгаб®а
ў ваҐЎгҐ¬го бва®Єг Ё Є®«®Єг нЄа Ё ўл¤ Ґв ’. ‚ Їа®вЁў®¬
б«гз Ґ ў®§ўа й Ґвбп NIL. Ќ ЇаЁ¬ҐаҐ Ї®Є § ®, Є Є ў®§ўа вЁвм
Єгаб®а ў Ёбе®¤®Ґ Ї®«®¦ҐЁҐ; ЇаЁ нв®¬ ў ўҐаеҐ¬ «Ґў®¬ гЈ«г ®Є
ўл¤ Ґвбп "’":
(SET-CURSOR 0 0) --> T

ROW [ ] Function
COLUMN [ ] Function

(ROW) Ё (COLUMN) ў®§ўа й ов б®®вўҐвбвўҐ® Ї®«®¦ҐЁҐ Єгаб®а
ў бва®ЄҐ Ё Є®«®ЄҐ б®Ј« б® вҐЄгйҐ¬г ®Єг.

CLEAR-SCREEN [ ] Function

…б«Ё вЁЇ ќ‚Њ б®®вўҐвбвўгҐв, (CLEAR-SCREEN) зЁбвЁв вҐЄгйҐҐ
®Є®, ЇҐаҐ¬Ґй Ґв Єгаб®а ў ўҐаеЁ© «Ґўл© гЈ®« ®Є (в.Ґ. ў
Ёбе®¤®Ґ Ї®«®¦ҐЁҐ) Ё ў®§ўа й Ґв ’. ‚ Їа®вЁў®¬ б«гз Ґ
ў®§ўа й Ґвбп NIL. Ќ ЇаЁ¬ҐаҐ Ї®Є § ®, Є Є ¬®¦® Ї®зЁбвЁвм нЄа ;
ЇаЁ нв®¬ ў ўҐаеЁ© «Ґўл© гЈ®« ўл¤ Ґвбп ’:
(CLEAR-SCREEN) --> T

INSERT-LINES [n] Function

…б«Ё вЁЇ ќ‚Њ б®®вўҐвбвўгҐв, <n> - ®«м Ё«Ё Ї®«®¦ЁвҐ«м®Ґ
жҐ«®Ґ, (INSERT-LINES n) ўбв ў«пҐв <n> з¬бвле бва®Є ў вҐЄгйҐҐ ®Є®,
зЁ п б® бва®ЄЁ, Ї®¬ҐзҐ®© Єгаб®а®¬, Ё ў®§ўа й Ґв T. ‚
Їа®вЁў®¬ б«гз Ґ ў®§ўа й Ґвбп NIL. Ќ®ўлҐ бва®ЄЁ ўбв ў«повбп §
бзҐв бўҐавЄЁ г¦®Ј® Є®«ЁзҐбвў бва®Є ў Ё¦Ґ© з бвЁ ®Є .

DELETE-LINES [n] Function

…б«Ё вЁЇ ќ‚Њ б®®вўҐвбвўгҐв, Ё Ґб«Ё <n> - ®«м Ё«Ё
Ї®«®¦ЁвҐ«м®Ґ жҐ«®Ґ, (DELETE-LINES n) гЁзв®¦ Ґв <n> бва®Є
вҐЄгйҐЈ® ®Є , зЁ п б® бва®ЄЁ, Ї®¬ҐзҐ®© Єгаб®а®¬, Ё
ў®§ўа й Ґв ’. ‚ Їа®вЁў®¬ б«гз Ґ ў®§ўа й Ґвбп NIL. ‘ва®ЄЁ
гЁзв®¦ овбп § бзҐв бўҐавЄЁ г¦®Ј® Є®«ЁзҐбвў бва®Є Ё¦Ґ
Єгаб®а ўўҐае.

MAKE-WINDOW [row,column,rows,columns] Function

…б«Ё вЁЇ ќ‚Њ б®®вўҐвбвўгҐв, Ё Ґб«Ё <бва®Є >, <Є®«®Є >,
<бва®ЄЁ> Ё <Є®«®ЄЁ> е®¤пвбп ў ®ЇаҐ¤Ґ«Ґле ЇаҐ¤Ґ« е,
(MAKE-WINDOW бва®Є Є®«®Є бва®ЄЁ Є®«®ЄЁ) б®§¤ Ґв нЄа Ґ
Є®б®«Ё Їап¬®гЈ®«мго ®Ў« бвм Є Є вҐЄгйҐҐ ®Є®, ЇҐаҐ¬Ґй Ґв Єгаб®а
ў ўҐаеЁ© «Ґўл© гЈ®« ®Є Ё ў®§ўа й Ґв ’. ‚ҐаеЁ© «Ґўл© гЈ®« ®Є
®ЇаҐ¤Ґ«пҐвбп <бва®Є®©> Ё <Є®«®Є®©>. ЋЄ® Ё¬ҐҐв иЁаЁг <Є®«®®Є>
Ё ўлб®вг <бва®Є>.
<‘ва®Є > ¤®«¦ Ўлвм г«Ґ¬ Ё«Ё Ї®«®¦ЁвҐ«мл¬ жҐ«л¬, ¬ҐмиЁ¬,
зҐ¬ 25. <Љ®«®Є > ¤®«¦ Ўлвм г«Ґ¬ Ё«Ё Ї®«®¦ЁвҐ«мл¬ жҐ«л¬,
¬ҐмиЁ¬, зҐ¬ 80. € <бва®Є >, Ё <Є®«®Є > Ї® г¬®«з Ёо ЇаЁЁ¬ овбп
§ 0. <‘ва®ЄЁ> ¤®«¦л Ўлвм Ї®«®¦ЁвҐ«мл¬Ё жҐ«л¬Ё, ¬ҐмиЁ¬Ё Ё«Ё
а ўл¬Ё 25 ¬Ёгб <бва®Є >. <‘ва®ЄЁ> Ї® г¬®«з Ёо а бб¬ ваЁў овбп
Є Є 25 ¬Ёгб <бва®Є >. <Љ®«®ЄЁ> ¤®«¦л Ўлвм Ї®«®¦ЁвҐ«мл¬Ё
жҐ«л¬Ё ¬ҐмиҐ Ё«Ё а ў® 80 ¬Ёгб <Є®«®Є >. <Љ®«®ЄЁ> Ї®
г¬®«з Ёо а бб¬ ваЁў овбп Є Є 80 ¬Ёгб <Є®«®Є >.
(MAKE-WINDOW) ў®§ўа й Ґв бЇЁб®Є Ё§ 4-е н«Ґ¬Ґв®ў: Ёбе®¤®©
бва®ЄЁ, Ёбе®¤®© Є®«®ЄЁ, Є®«ЁзҐбвў бва®Є Ё Є®«ЁзҐбвў Є®«®®Є
вҐЄгйҐЈ® ®Є . Ќ Їа®¬ҐаҐ Ї®Є § ®, Є Є б®§¤ Ґвбп ®Є® ў 12 бва®Є
Ё 40 Є®«®®Є ў жҐваҐ нЄа :
(MAKE-WINDOW 6 20 12 40) --> T

FOREGROUND-COLOR [n] Function
BACKGROUND-COLOR [n] Function

…б«Ё вЁЇ ќ‚Њ б®®вўҐвбвўгҐв, Ё Ґб«Ё <n> - ®«м Ё«Ё
Ї®«®¦ЁвҐ«м®Ґ жҐ«®Ґ, ¬ҐмиҐ, зҐ¬ 16, (FOREGROUND-COLOR n) Ё
(BACKGROUND-COLOR n) гбв ў«Ёў ов б®®вўҐвбвўҐ® в® ЇҐаҐ¤ҐЈ® Ё
§ ¤ҐЈ® Ї« ў <n> Ё ў®§ўа й Ґв ЇаҐ¤л¤гйҐҐ § зҐЁҐ. …б«Ё
дгЄжЁп ўл§лў Ґвбп ЎҐ§ аЈг¬Ґв®ў, ўл¤ овбп вҐЄгйЁҐ § зҐЁп
в®®ў.
…б«Ё muLISP а Ў®в Ґв IBM PC б ¬®®еа®¬®ўл¬ ¬®Ёв®а®¬, в®
¤«п а §«Ёзле § зҐЁ© <n> нЄа ¤ЁбЇ«Ґп ўл¤ овбп б«Ґ¤гойЁҐ
аҐ§г«мв вл:
ЏҐаҐ¤Ё© Ї« : ‡ ¤Ё© Ї« : ђҐ§г«мв в:
-------------- ------------ ----------
0 0 ЌҐв Ё§®Ўа ¦ҐЁп
1 0 Џ®¤зҐаЄЁў ЁҐ
7 0 Ќ®а¬ «м®Ґ Ё§®Ўа ¦ҐЁҐ
0 7 €ўҐаб®Ґ Ё§®Ўа ¦ҐЁҐ

…б«Ё muLISP а Ў®в Ґв IBM PC б жўҐвл¬ Ја дЁзҐбЄЁ¬
¤ЁбЇ«ҐҐ¬, в® а §«Ёзл¬ § зҐЁп¬ <n> б®®вўҐвбвўгов жўҐв :

0 - зҐал© 4 - Єа бл© 8 - вҐ¬®-бҐал© 12 - бўҐв«®-Єа бл©
1 - бЁЁ© 5 - дгЄбЁ®ўл© 9 - бўҐв«®-Ј®«гЎ®© 13 - бўҐв«л© дгЄбЁ
2 - §Ґ«Ґл© 6 - Є®аЁзҐўл© 10 - бўҐв«®-§Ґ«Ґл© 14 - ¦Ґ«вл©
3 - жЁ ®ўл© 7 - бўҐв«®-бҐал© 11 - бўҐв«л© жЁ 15 - ЎҐ«л©

CURSOR-LINES: [start-line,end-line] Function

Љгаб®а Є®б®«Ё - нв® ¬Ґаж ойЁ© ЇгзҐЄ бўҐв нЄа Ґ,
б®бв®пйЁ© Ё§ ®Ў®© Ё«Ё Ў®«ҐҐ Ј®аЁ§®в «мле «ЁЁ© ¤«Ё®© ў 1
бЁ¬ў®«. „«п ¬ иЁ IBM PC Ја Ёжл з « Ё Є®ж Єгаб®а ¬®Јгв
гбв ў«Ёў вмбп Ї®¤ гЇа ў«ҐЁҐ¬ ЏЋ. „«п ¬®®еа®¬®ў®Ј® ¤ЁбЇ«Ґп
Єгаб®а ¬®¦Ґв ўЄ«оз вм ў бҐЎп ¤® 14 бва®Є, ¤«п Ја дЁзҐбЄ®Ј®
¤ЁбЇ«Ґп - ¤® 8 бва®Є. ‚ «оЎ®¬ б«гз Ґ, «ЁЁЁ Єгаб®а г¬Ґаговбп,
зЁ п б 0.
…б«Ё muLISP а Ў®в Ґв IBM PC Ё Ґб«Ё <«ЁЁп- з «®> Ё
<«ЁЁп-Є®Ґж> - нв® Ґ®ваЁж вҐ«млҐ жҐ«лҐ, ¬ҐмиҐ, зҐ¬
¬ ЄбЁ¬ «м®Ґ Є®«ЁзҐбвў® «ЁЁ© Єгаб®а ¤«п ¤ ®Ј® ¬®Ёв®а ,
(CURSOR-LINE «ЁЁп- з «® «ЁЁп-Є®Ґж) гбв ў«Ёў Ґв «ЁЁЁ з «
Ё Є®ж Єгаб®а Ё ў®§ўа й Ґв бЇЁб®Є, б®бв®пйЁ© Ё§ ®¬Ґа®ў бв але
«ЁЁ© з « Ё Є®ж .
Џ® ®Є®з ЁЁ а Ў®вл muLISP ў®ббв ў«Ёў Ґв ЇҐаў® з «мго
д®а¬г Єгаб®а .
ЏаЁ¬Ґа:
(CURSOR-LINES 0 13) --> (12 13) ;Makes cursor a full block

DISPLAY-PAGE: [n] Function

…б«Ё muLISP а Ў®в Ґв IBM PC б Ја дЁзҐбЄЁ¬ ¤ЁбЇ«ҐҐ¬, Ё
Ґб«Ё <n> - ®«м Ё«Ё Ї®«®¦ЁвҐ«м®Ґ жҐ«®Ґ, ¬ҐмиҐ, зҐ¬ 8,
(DISPLAY-PAGE n) гбв ў«Ёў Ґв бва Ёжг ЄвЁўле а Ў®в ў <n> Ё
ў®§ўа й Ґв ЇаҐ¤л¤гйго бва Ёжг. ‚ Їа®вЁў®¬ б«гз Ґ, DISPLAY-PAGE
ў®§ўа й Ґв вҐЄгйго display-бва Ёжг. ќв® ¤ Ґв ў®§¬®¦®бвм Ўлбва®
ЇҐаҐЄ«оз вмбп ¬Ґ¦¤г нЄа ¬Ё, Ї®«л¬Ё вҐЄбв (б¬. ’ҐеЁзҐбЄ®Ґ
агЄ®ў®¤бвў® Ї® IBM PC).

*AUTO-NEWLINE*: '*AUTO-NEWLINE* Control variable

…б«Ё *AUTO-NEWLINE* - Ґ NIL, в® ҐЇ®баҐ¤бвўҐ® Ї®б«Ґ
бЁ¬ў®« , Є®в®ал© ўлбўҐзЁў Ґвбп ў б ¬®© Їа ў®© Є®«®ЄҐ вҐЄгйҐЈ®
®Є , ўв®¬ вЁзҐбЄЁ Ї®пў«пҐвбп ®ў п бва®Є . …б«Ё *AUTO-NEWLINE*
- NIL, в® ®ў п бва®Є Ґ Ї®пў«пҐвбп, Єгаб®а Ё§ б ¬®© Їа ў®©
Є®«®ЄЁ ®Є гЎЁа Ґвбп.

*BLINK*: NIL Control variable

…б«Ё *BLINK* - Ґ NIL, в® ®ўлҐ бЁ¬ў®«л нЄа Ґ ¤ЁбЇ«Ґп
Ўг¤гв ¬ЁЈ вм, Ґб«Ё NIL - Ґ Ўг¤гв ¬ЁЈ вм.

*HIGH-INTENSITY*: NIL Control variable

…б«Ё *HIGH-INTENSITY* - Ґ NIL, в® ®ўлҐ бЁ¬ў®«л Ўг¤гв
ўлбўҐзЁў вмбп б Ї®ўлиҐ®© паЄ®бвмо; Ґб«Ё NIL - б Ї®Ё¦Ґ®©
паЄ®бвмо (в.Ґ. вгбЄ«®).

5.22. ‘¬Ґи лҐ дгЄжЁЁ

TIME [flag] Function

TIME ў®§ўа й Ґв Є®«ЁзҐбвў® Їа®©¤Ґ®Ј® ўаҐ¬ҐЁ б вҐе Ї®а,
Є Є Ўл«Ё гбв ®ў«Ґл бЁбвҐ¬лҐ з бл, б в®з®бвмо ¤® б®вле ¤®«Ґ©
бҐЄг¤л. …б«Ё <д« Ј> - Ґ NIL, (TIME д« Ј) гбв ў«Ёў Ґв з бл ў 0.
TIME ¬®¦Ґв ЁбЇ®«м§®ў вмбп ¤«п ®ЇаҐ¤Ґ«ҐЁп ЁЎ®«ҐҐ
нддҐЄвЁў®Ј® «Ј®аЁв¬ аҐиҐЁп ®ЇаҐ¤Ґ«Ґ®© § ¤ зЁ. ‘Ўа®б з б®ў
¤® 0 Ґ ў«ЁпҐв бзҐвзЁЄ ўаҐ¬ҐЁ Ћ‘, в®«мЄ® ўгваҐЁ©
бзҐвзЁЄ ўаҐ¬ҐЁ muLISP.
ЏаЁ¬Ґа:
(DEFUN TIME (RESET)
((NULL RESET)
(return the time in 100ths of a second) )
(set the time counter to time 0)
0 )

(TIME T) (RECLAIM) (TIME) --> 50

6. Ћв« ¤зЁЄ muLISP

Ћв« ¤®зл© Ї ЄҐв muLISP - нв® ¬®¦Ґбвў® «Ј®аЁв¬®ў,
®ЎҐбЇҐзЁў ойве Ї®¬®йм Ї®«м§®ў вҐ«о ЇаЁ Їа®ҐЄвЁа®ў ЁЁ Ё ®в« ¤ЄҐ
Їа®Ја ¬¬ muLISP. Ћ б®¤Ґа¦Ёв баҐ¤бвў ва ббЁа®ўЄЁ, ЇаҐалў Ёп Ё
бв вЁбвЁЄЁ. ‘аҐ¤бвў ва ббЁа®ўЄЁ ¤«п Є ¦¤®© дгЄжЁЁ ўл¤ ов
нЄа ¤ЁбЇ«Ґп Ёд®а¬ жЁо ® е®¤Ґ ўлзЁб«ҐЁп дгЄжЁЁ. ‘аҐ¤бвў
ЇаҐалў Ёп ®бв ў«Ёў ов ўлзЁб«ҐЁҐ дгЄжЁ© ў ЄаЁвЁзҐбЄЁе
в®зЄ е, Ї®§ў®«пп Ї®«м§®ў вҐ«о ®бгйҐбвўЁвм Їа®ўҐаЄг баҐ¤л.
‘аҐ¤бвў бв вЁбвЁЄЁ Ї®¬®Ј ов ®ЇаҐ¤Ґ«Ёвм бЄ®а®бвм Ё«Ё Ј«гЎЁг
ЄаЁвЁзҐбЄЁе гз бвЄ®ў ў Ў®«миЁе Їа®Ја ¬¬ е.
‘аҐ¤бвў ®в« ¤ЄЁ muLISP - нв® Ёбе®¤л© д ©« DEBUG.LSP; ®
¬®¦Ґв Ўлвм § Јаг¦Ґ б Ї®¬®ймо Є®¬ ¤л

(RDS 'DEBUG)

‡ ЎҐЈ п ўЇҐаҐ¤, ®в¬ҐвЁ¬, зв® дгЄжЁЁ APP Ё REV ®ЇаҐ¤Ґ«повбп
б«Ґ¤гойЁ¬ ®Ўа §®¬:

(DEFUN APP (LST1 LST2)
((NULL LST1) LST2)
(CONS (CAR LST1) (APP (CDR LST1) LST2)) )

(DEFUN REV (LST)
((NULL LST) NIL)
(APP (REV (CDR LST)) (LIST (CAR LST))) )

APP Ё REV нЄўЁў «Ґвл Їа®бвл¬ дгЄжЁп¬ muLISP APPEND Ё
REVERSE б®®вўҐвбвўҐ®. Ћ¤ Є® APP Ё REV ¬ҐҐҐ нддҐЄвЁўл Ё
а Ў®в ов ¬ ЄбЁ¬г¬ б ¤ўг¬п аЈг¬Ґв ¬Ё, Ї®нв®¬г Ё¬ § ¤ л ¤агЈЁҐ
Ё¬Ґ .

6.1. ‘аҐ¤бвў ва ббЁа®ўЄЁ

Љ Є в®«мЄ® ўбваҐвЁ«бп ўл§®ў ва ббЁагҐ¬®© дгЄжЁЁ, ҐҐ Ё¬п Ё
бЇЁб®Є д®а¬ «мле Ё д ЄвЁзҐбЄЁе аЈг¬Ґв®ў ўл¤ овбп нЄа
¤ЁбЇ«Ґп. Љ Є в®«мЄ® ўлЇ®«Ёвбп ўле®¤ Ё§ ва ббЁагҐ¬®© дгЄжЁЁ,
нЄа ўл¤ овбп ҐҐ Ё¬п Ё § зҐЁҐ. Џ® ў иҐ¬г ¦Ґ« Ёо дгЄжЁЁ ¬®Јгв
ўлбўҐзЁў вм Ёд®а¬ жЁо ® ва ббЁа®ўЄҐ в®«мЄ® Ї®б«Ґ в®Ј®, Є Є
дгЄжЁп Ўг¤Ґв ўл§ў ®ЇаҐ¤Ґ«Ґ®Ґ Є®«ЁзҐбвў® а §, Ё«Ё в®«мЄ®
¬Ґ¦¤г ¬ ЄбЁ¬ «мл¬ Ё ¬ЁЁ¬ «мл¬ га®ўп¬Ё аҐЄгабЁўле ўЁвЄ®ў Ё
в.¤.
’а ббЁа®ўЄ дгЄжЁ© ®бгйҐбвў«пҐвбп б Ї®¬®ймо
Ґа §ўҐагв®© дгЄжЁЁ TRACE. Ћ ўл§лў Ґвбп б ®¤®© Ё«Ё Ў®«ҐҐ
дгЄжЁп¬Ё ¤«п ва ббЁа®ўЄЁ ў Є зҐбвўҐ бў®Ёе аЈг¬Ґв®ў. Ќ ЇаЁ¬Ґа,
Є®¬ ¤

(TRACE 'APP 'REV)

ва ббЁагҐв дгЄжЁЁ APP Ё REV. …б«Ё Ї®б«Ґ нв®Ј® ўўҐбвЁ Є®¬ ¤г

(REV '(A B)) ,

в® ўлбўҐвЁвбп б«Ґ¤гой п ва бб :

1| REV [LST: (A B)]
2| REV [LST: (B)]
3| REV [LST: NIL]
3| REV = NIL
3| APP [LST1:NIL,LST2: (B)]
3| APP = (B)
2| REV = (B)
2| APP [LST1: (B),LST2: (A)]
3| APP [LST1: NIL,LST2: (A)]
3| APP = (A)
2| APP = (B A)
1| REV = (B A)
(B A)

…б«Ё ўлў®¤ ва ббл ®бгйҐбвў«пҐвбп б«ЁиЄ®¬ Ўлбва®, ¤«п
ўаҐ¬Ґ®© ®бв ®ўЄЁ ва ббл ¬®¦® ЁбЇ®«м§®ў вм <CTRL-S>. ‘ Ї®¬®ймо
Є®¬ ¤

(SETQ ECHO T)
(WRS 'drive:name.type)

¬®¦® ЇҐаҐб« вм ўле®¤го ва ббг ў д ©« <Ё¬п>.<вЁЇ>
<гбва®©бвўҐ> ¤«п Ї®б«Ґ¤гойҐ© ўл¤ зЁ ҐЈ® Є®б®«м. Љ Є в®«мЄ®
ва бба®ўЄ § Є®зЁвбп, ўў®¤Ёвбп Є®¬ ¤

(WRS) ,

Є®в®а п § Єалў Ґв д ©«. ‡ вҐ¬ ¬®¦® Їа®б¬®ваҐвм д ©« ў «оЎ®©
г¦л© ¬®¬Ґв б Ї®¬®ймо бв ¤ ав®Ј® аҐ¤ Єв®а вҐЄбв®ў.
„«п «ЁЄўЁ¤ жЁЁ ЇаҐ¤бв ў«ҐЁп Ў®«миЁе ®ЎмҐ¬®ў Ґг¦®©
Ёд®а¬ жЁЁ ¬®¦® ўлЎа вм ¬®¬Ґв, Є®Ј¤ дгЄжЁп ва ббЁа®ўЄЁ Ўг¤Ґв
ўлЇ®«пвм ўлў®¤. Љ®¬ ¤

(SETQ TRACE NIL)

§ ¤Ґа¦Ёў Ґв ўлў®¤ ва ббл ¤«п ўбҐе дгЄжЁ© ¤® вҐе Ї®а, Ї®Є TRACE
ЇҐаҐ®ЇаҐ¤Ґ«пҐв § зҐЁҐ, ®в«Ёз®Ґ ®в NIL. Љ®¬ ¤

(REMFLAG 'TRACE 'name) ,

Ј¤Ґ <Ё¬п> - нв® Ё¬п ва ббЁагҐ¬®© дгЄжЁЁ, § ¤Ґа¦Ёў Ґв ўлў®¤ ва ббл
¤«п ¤ ®© дгЄжЁЁ ¤® вҐе Ї®а, Ї®Є Ґ ўбваҐвЁвбп Є®¬ ¤

(FLAG 'TRACE 'name)

‚лў®¤ ва ббл ¤«п ўбҐе дгЄжЁ© ¬®¦Ґв Ўлвм § ¤Ґа¦Ґ ®б®ўҐ
Є®«ЁзҐбвў ўл§®ў®ў ва ббЁагҐ¬®© дгЄжЁЁ. …б«Ё Є®ва®«м п
ЇҐаҐ¬Ґ п MINCALL Ё¬ҐҐв § зҐЁҐ жҐ«®Ј® Ї®«®¦ЁвҐ«м®Ј® зЁб« ,
ўҐбм ўлў®¤ ва ббл § ¤Ґа¦Ёў Ґвбп ¤® вҐе Ї®а, Ї®Є Є®«ЁзҐбвў®
ўл§®ў®ў дгЄжЁЁ Ґ Ўг¤Ґв Ў®«миҐ Ё«Ё а ў® нв®¬г § зҐЁо.
’ Є ¦Ґ, ®б®ўҐ Є®«ЁзҐбвў ўл§®ў®ў, ¬®¦Ґв Ўлвм § ¤Ґа¦
ўлў®¤ ва ббл ¤«п Є Є®©-«ЁЎ® ®¤®© Є®ЄаҐв®© дгЄжЁЁ. Љ®¬ ¤

(PUT 'MINCALL 'name n) ,

Ј¤Ґ <Ё¬п> - нв® Ё¬п ва ббЁагҐ¬®© дгЄжЁЁ, <n> - Ї®«®¦ЁвҐ«м®Ґ
жҐ«®Ґ зЁб«®, § ¤Ґа¦Ёў Ґв ўлў®¤ ва ббл дгЄжЁЁ ¤® вҐе Ї®а, Ї®Є
® Ґ Ўг¤Ґв ўл§ў <n> а §.
‚лў®¤ ва ббл ¤«п ўбҐе дгЄжЁ© ¬®¦Ґв Ўлвм § ¤Ґа¦ ®б®ўҐ
га®ўп ў«®¦Ґ®бвЁ ўл§®ў дгЄжЁЁ. …б«Ё Є®ва®«м п ЇҐаҐ¬Ґ п
NINLEVEL Ё¬ҐҐв § зҐЁҐ Ї®«®¦ЁвҐ«м®Ј® жҐ«®Ј® зЁб« , ўҐбм ўлў®¤
ва ббл § ¤Ґа¦Ёў Ґвбп ¤® вҐе Ї®а, Ї®Є га®ўҐм ў«®¦Ґ®бвЁ дгЄжЁЁ
Ўг¤Ґв Ў®«миҐ Ё«Ё а ўҐ нв®¬г § зҐЁо. ’®з® в Є ¦Ґ, Ґб«Ё
MAXLEVEL Ё¬ҐҐв § зҐЁҐ Ї®«®¦ЁвҐ«м®Ј® жҐ«®Ј® зЁб« , ўҐбм ўлў®¤
ва ббл § ¤Ґа¦Ёў Ґвбп ¤® вҐе Ї®а, Ї®Є га®ўҐм ў«®¦Ґ®бвЁ дгЄжЁЁ
Ўг¤Ґв ¬ҐмиҐ Ё«Ё а ўҐ нв®¬г § зҐЁо.
’®з® в Є ¦Ґ, ®б®ўҐ га®ўп ў«®¦Ґ®бвЁ ¬®¦Ґв Ўлвм
§ ¤Ґа¦Ґ ўлў®¤ ва ббл ¤«п Є Є®©-«ЁЎ® ®¤®© Є®ЄаҐвЄ®© дгЄжЁЁ.
Љ®¬ ¤

(PUT 'MINLEVEL 'name 'n) ,

Ј¤Ґ <Ё¬п> - нв® Ё¬п ва ббЁагҐ¬®© дгЄжЁЁ, <n> - Ї®«®¦ЁвҐ«м®Ґ
жҐ«®Ґ, ўлў®¤ ва ббл дгЄжЁЁ § ¤Ґа¦Ёў Ґвбп ¤® вҐе Ї®а, Ї®Є
га®ўҐм ҐҐ ў«®¦Ґ®бвЁ Ў®«миҐ Ё«Ё а ўҐ <n>.
’®з® в Є ¦Ґ, Є®¬ ¤

(PUT 'MAXLEVEL 'name n)

§ ¤Ґа¦Ёў Ґв ўлў®¤ ва ббл дгЄжЁЁ б Ё¬ҐҐ¬ <Ё¬п> ¤® вҐе Ї®а, Ї®Є
га®ўҐм ҐҐ ў«®¦Ґ®бвЁ ¬ҐмиҐ Ё«Ё а ўҐ <n>. ЏаЁбў Ёў п MAXLEVEL
§ зҐЁҐ 1, ¬®¦® ва ббЁа®ў вм ўл§®ў дгЄжЁЁ в®«мЄ® ўҐаеҐЈ®
га®ўп.
Ќ ЇаЁ¬Ґа, Є®¬ ¤л

(PUT 'MINLEVEL 'APP2)
(PUT 'MAXLEVEL 'REV1)
(REV '(A B C))

ўлЇ®«пҐв б«Ґ¤гойЁ© ўлў®¤:

1| REV [LST: (A B C)]
4| APP [LST1: NIL,LST2: (B)]
4| APP = (B)
3| APP [LST1: (B),LST2: (A)]
4| APP [LST1: NIL,LST2: (A)]
4| APP = (A)
3| APP = (B A)
1| REV = (C B A)
(C B A)

Ћ¤ Є®, ¤ ¦Ґ в®Ј¤ , Є®Ј¤ ўлў®¤ ва ббЁа®ўЄЁ Ўл« § ¤Ґа¦
®¤Ё¬ Ё§ ўлиҐЇҐаҐзЁб«Ґле бЇ®б®Ў®ў, ва бб ¬®¦Ґв Ўлвм ўл¤
нЄа ¤ЁбЇ«Ґп Ё§ в Є §лў Ґ¬®© "Ёбв®аЁЁ" ва ббЁа®ўЄЁ. Ћв« ¤®зл©
Ї ЄҐв ўв®¬ вЁзҐбЄЁ б®еа пҐв "Ёбв®аЁо" ва ббЁа®ўЄЁ ¤«п
Ї®б«Ґ¤гойҐЈ® ў®ббв ®ў«ҐЁп ўлў®¤ ва бб ЇаЁ Ї®¤®Ўле § ¤Ґа¦Є е.
"€бв®аЁп" б®еа пҐвбп ў ЎгдҐаҐ дЁЄбЁа®ў ®© ¤«Ёл; ¤«Ё ЎгдҐа
а ў § зҐЁо Є®ва®«м®© ЇҐаҐ¬Ґ®© HISTLEN. Џ® г¬®«з Ёо
§ зҐЁҐ HISTLEN а ў® 15. …б«Ё Ї®б«Ґ ЇаҐ¤л¤гйЁе ¤Ґ©бвўЁ© ўўҐбвЁ
Є®¬ ¤г:

(HISTORY) ,

ўлбўҐвЁвбп б«Ґ¤гой п ва бб :

4| APP [LST1: NIL,LST2: (C)]
4| APP = (C)
3| REV = (C)
3| APP [LST1: (C),LST2: (B)]
4| APP [LST1: NIL,LST2: (B)]
4| APP = (B)
3| APP = (C B)
2| REV = (C B)
2| APP [LST1: (C B),LST2: (A)]
3| APP [LST1: (B),LST2: (A)]
4| APP [LST1: NIL,LST2: (A)]
4| APP = (A)
3| APP = (B A)
2| APP = (C B A)
1| REV = (C B A)

Соседние файлы в папке Filp

#
15.06.2014746 б19LISP13.LSP
#
15.06.201422.59 Кб19LISP13.TXT
#
15.06.2014945 б19LISP14.LSP
#
15.06.201419.57 Кб19LISP14.TXT
#
15.06.2014801 б20LISP15.LSP
#
15.06.201421.28 Кб19LISP15.TXT
#
15.06.2014568 б20LISP16.LSP
#
15.06.201422.43 Кб19LISP16.TXT
#
15.06.2014817 б19LISP17.LSP
#
15.06.201421.3 Кб20LISP17.TXT
#
15.06.2014585 б20LISP18.LSP