LISP (Программа Лисп)
2018-01-122018-01-12zzyxelСтудИзба
Описание файла
Файл "LISP" внутри архива находится в следующих папках: Программа Лисп, LISP2. Документ из архива "Программа Лисп", который расположен в категории "". Всё это находится в предмете "функциональное программирование" из 7 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "остальное", в предмете "функциональное программирование" в общих файлах.
Онлайн просмотр документа "LISP"
Текст из документа "LISP"
�������� �������� ������� muLISP. II. �2������� �������� ������� muLISP85 2.1.�2 �㭪樨 �롮ન�0 ---------------------------------------------------------------- N | �㭪�� | ���祭�� �㭪樨, �ਬ��� | ---------------------------------------------------------------- 1 |CAR [S] | 1.S-ᯨ᮪.CAR �뤠�� ���� ���� ᯨ᪠| F | |(CAR '(A B C D)) | | |A | | | | | | 2.S-��筠� ���.CAR �뤠�� ����� ���� | | |���� ��筮� ���� | | |(CAR '((A . B) . C) | | |(A . B) | | | | | | 3.S-�⮬.CAR �뤠�� ���祭�� �⮬�, ��-| | |����� ��� ᯥ樠��묨 �㭪�ﬨ ��ᢠ���- | | |��� | | |(SETQ X 7) | | |7 | | |(CAR 'X) | | |7 | | |� ��砥 � � �⮬� ���祭�� ���������, | | |�뤠���� ��� �⮬ | ---------------------------------------------------------------- 2 |CDR [S] | 1.S-ᯨ᮪.CAR �����頥� ᯨ᮪ ��� ��ࢮ-| F | |�� ���� | | | (CDR '(A B C D)) | | | (B C D) | | | | | | 2.S-��筠�-���.CDR �����頥� �ࠢ�� | | |���� ��筮� ���� (�� ���孥� ���) | | | (CDR '((A . B) . C)) | | | � | | | | | | 3.S-�⮬.CDR �����頥� ᯨ᮪ ��� | | |�⮬� | | | (PUT 'JOE 'SEX 'MALE) | | | MALE | | | (CDR 'JOE) | | | ((SEX . MALE)) | ---------------------------------------------------------------- 3 |LAST [L] | LAST �����頥� ᯨ᮪, � ��� �࠭� | | |�� ����� �� ������� | | |(LAST '(A B C D)) | | |(D) | | |(LAST '(A B C . D)) | | |(C . D) | | |(LAST 'A) | | |NIL | ---------------------------------------------------------------- 4 |NTHCDR [N L]| NTHCDR �����頥� N-� CDR �� ᯨ᪠ L | | | | | |(NTHCDR 0 '(A B C D)) | | |(A B C D) | | |(NTHCDR 1 '(A B C D)) | | |(B C D) | | |(NTHCDR 2 '(A B C D)) | | |(C D) | | |(NTHCDR 5 '(A B C D)) | | |NIL | | |(NTHCDR 2 '(A B . C)) | | |C | ---------------------------------------------------------------- 5 |NTH [N L] | NTH �����頥� N-� ���� ᯨ᪠ (�����| F | |������� �� ���) | | | | | |(NTH 0 '(A B C D)) | | |0 | | |(NTH 3 '(A B C D)) | | |D | | |(NTH 4 '(A B C D)) | | |NIL | ---------------------------------------------------------------- 6 | SUBLIST | SUBLIST ������� � �����頥� ���ᯨ᮪ �| F | [L N M] |N-�� �� M-� ����� (����� ������� �� ���) | | | | |(SUBLIST '(A B C D E) 2 4) | | |(C D E) | | |(SUBLIST '(A B C D E) 2 2) | | | (C) | | |(SUBLIST '(A B C D E) 2) | |(C D E F) | | |(SUBLIST '(A B C D E) 0 3) | | |(A B C D) | ---------------------------------------------------------------- 10 |ASSOC | ASSOC �����⢫�� ���� � ���樠⨢��� | | [K AL] |ᯨ᪥ (AL) �� ���祭�� ���� (�) ᮮ⢥�- | | |����饣� ��⢠ | | | | | |(SETQ CAPITALS | | |'((USA . WASHINGTON)(FRANCE . PARIS)(JAPEN . TOCIO))) | |((USA . WASHINGTON)(FRANCE . PARIS)(JAPEN . TOCIO))) | | | | |(ASSOC 'FRANCE CAPITALS) | | |(FRANCE . PARIS) | | |(ASSOC 'AUSTRALIA CAPITALS) | | |NIL | ---------------------------------------------------------------- 2.2�2 ����������騥 �㭪樨�0 ---------------------------------------------------------------- N | �㭪�� | ���祭�� �㭪樨, �ਬ��� | ---------------------------------------------------------------- 1 |CONS[S1 S2] | 1.S2-ᯨ᮪.CONS �����頥� ᯨ᮪ S2 ����|F | |���⮬ ���ண� �������� ��㬥�� S1 | | | | | |(CONS 'A '(B C D)) | | |(A B C D) | | | | | | 2.S2-�⮬.CONS �����頥� ����� ����,����� | |���� ���ன S1, � �ࠢ�� - S2 | | | | | |(CONS 'A 'B) | | |(A . B) | ---------------------------------------------------------------- 2 |LIST[S1..Sn]| LIST k��������� � �����頥� ᯨ᮪, �� |F | |���⮢ S1, S2,...Sn.�� ������⢨� ��㬥�- | |⮢ �����頥� NIL | | | | | |(LIST 'A 'B 'C 'D) | | |(A B C D) | | |(LIST 'A '(B C) 'D) | | |(A (B C) D) | | |(LIST) | | |NIL | ---------------------------------------------------------------- 3 |APPEND | APPEND ���������� � �����頥� ᯨ᮪ �� |F | [L1...LN] |���⮢ ᯨ� L1, L2 ... Ln | | | | | |(APPEND '(A B C) '(D E F)) | | |(A B C D E F) | | |(SETQ FOO '(1 2 3)) | | |(1 2 3) | | |(APPEND '(A B C) FOO '(K L M)) | | |(A B C 1 2 3 K L M) | ---------------------------------------------------------------- 4 |REVERSE [L] | REVERSE �����頥� ॢ������� ᯨ᮪ L|F | |(����� ᯨ᪠ L � ���⭮� ���浪�) | | | | | |(REVERSE '(A B C D E)) | | |(E D C B A) | | |(REVERSE '(A B C) '(1 2 3)) | | |(C B A 1 2 3) | | |(REVERSE '(A B C) 'D) | | |(A B C . D) | ---------------------------------------------------------------- 5 |LENGTH[S] | 1.S-ᯨ᮪.LENGTH �����頥� � ���- |F | |⮢ � ᯨ᪥ L | | |(LENGTH '(A B C D E)) | | |5 | | | | | | 2.S-�⮬.LENGTH �����頥� � ᨬ����� | | |� �⮬� | | |(LENGTH 'TIME) | | |4 | | | | | | 3.S-�.LENGTH �����頥� ������⢮ ���-| | |⮢ ���������� �� � ����� | | |(LENGTH -13) | | |1 | ---------------------------------------------------------------- 2.3�2. �㭪樨 �ᯮ��������0 ---------------------------------------------------------------- N | �㭪�� | ���祭�� �㭪樨, �ਬ��� | ---------------------------------------------------------------- 1 |NUMBERP [S] |�, � S - 楫�� �, ���� NIL |F | | | | |(NUMBERP 32) | | |T | | |(NUMBERP 'D) | | |NIL | ---------------------------------------------------------------- 2 |ATOM [S] |�, � S - �⮬, ���� NIL |F | | | | |(ATOM 'KOT) | | |T | | |(ATOM '(A B C)) | | |NIL | | |(ATOM NIL) | | |T | ---------------------------------------------------------------- 3 |LISTP [S] |�, � S - ᯨ᮪, ���� NIL |F | | | | |(LISTP 'DOG) | | |NIL | | |(LISTP '(A B C)) | | |NIL | | |(LISTP NIL) | | |T | ---------------------------------------------------------------- 4 |NULL [S] |�, � S - ���⮩ ᯨ᮪, ���� NIL |F | | | | |(NULL NIL) | | |T | | |(NULL ()) | | |T | | |(NULL '(A B C)) | | |NIL | ---------------------------------------------------------------- 5 |ZEROP [S] |�, � S - ���, ���� NIL |F | | | | |(ZEROP 0) | | |T | | |(ZEROP 12) | | |NIL | | |(ZEROP 'DOG) | | |NIL | ---------------------------------------------------------------- 6 |PLUSP [S] |T, � S - ������⥫쭮� � |F | | | | |(PLUSP 12) | | |T | | |(PLUSP -4) | | |NIL | | |(PLUSP 0) | | |NIL | | |(PLUSP 'DOG) | | |NIL | ---------------------------------------------------------------- 7 |MINUSP [S] |�, � S - ����⥫쭮� � |F | | | | |(MINUSP 12) | | |NIL | | |(MINUSP -4) | | |T | | |(MINUSP 0) | | |NIL | | |(MINUSP 'DOG) | | |NIL | ---------------------------------------------------------------- 8 |ODDP [S] |�, � S - ���⭮� �, ���� NIL |F | | | | |(ODDP 12) | | |NIL | | |(ODDP -41) | | |T | | |(ODDP 0) | | |NIL | ---------------------------------------------------------------- 9 |EVENP [S] |�, � S - �⭮� �, ���� NIL |F | | | | |(EVENP 12) | | |T | | |(EVENP -41) | | |NIL | | |(EVENP 0) | | |T | ---------------------------------------------------------------- 2.4�2 �㭪樨 �ࠢ�����0 ---------------------------------------------------------------- N | �㭪�� | ���祭�� �㭪樨, �ਬ��� ---------------------------------------------------------------- 1 |EQUAL[S1 S2]|T, � S1 ࠢ�� S2, ���� NIL | F | | | | |(EQUAL 'A 'A) | | |T | | |(EQUAL '(A B C) '(A B C)) | | |T | | |(EQUAL '(A B C '(C B A)) | | |NIL | ---------------------------------------------------------------- 2 |MEMBER |� S ���� ���⮬ ᯨ᪠ L, ⮣�� |F | [S L] |���祭��� �㭪樨 �㤥� ���� ᯨ᪠ L, ��- | | |稭�� � ��ࢮ�� �宦����� S, ���� NIL | | | | | |(MEMDER 'A '(B C D)) | | |NIL | | |(MEMBER 'A '(B A D)) | | |(A D) | ---------------------------------------------------------------- 3 |= [N1...Nn] |�, � N1=N2=N3...=Nn, ���� NIL | F | | | | |(= 5 9) | | |NIL | | |(= 3 3.0) | | |T | ---------------------------------------------------------------- 4 |/= [N1...Nn]|T, � N1=N2 � N2=N3 � �.�., ���� NIL | F | | | | |(/= 5 9) | | |T | | |(/= 4 4 -7) | | |NIL | | |(/= 3 3.0) | | |NIL | | |(/= 6 2 6) | | |T | ---------------------------------------------------------------- 5 |< [N1...Nn] |�, � N1<N2 � N2<N3 � � .�., ���� NIL | F | | | | |(< 5 9) | | |T | | |(< 4 -7) | | |NIL | | |(< 3 3.0) | | |NIL | ---------------------------------------------------------------- 6 |> [N1...Nn] |T, � N1>N2 �N2>N3 � �.�., ���� NIL | F | | | | |(> 5 9) | | |NIL | | |(> 4 -7) | | |T | | |(> 3 3.0) | | |NIL | ---------------------------------------------------------------- 7 |<= [N1...Nn]|T, � N1<N2 � N2<N3 � �.�., ���� NIL | F | | | | |(<= 5 9) | | |T | | |(<= 4 -7) | | |NIL | | |(<= 3 3.0) | | |T | ---------------------------------------------------------------- 8 |>= [N1...Nn]|T, � N1>N2 � N2>N3 � �.�., ���� NIL | F | | | | |(>= 5 9) | | |NIL | | |(>= 4 -7) | | |T | | |(>= 3 3.0) | | |T | 2.5�2 �����᪨� �㭪樨�0 ---------------------------------------------------------------- N | �㭪�� | ���祭�� �㭪樨, �ਬ��� ---------------------------------------------------------------- 1 |NOT [S] | NOT �����頥� �, � S ����� ���祭�� NIL|F | |���� NIL | | | | | |(NOT NIL) | | |T | | |(NOT 'FOO) | | |NIL | | |(NOT (EQUAL 'DOG 'CAT)) | | |T | ---------------------------------------------------------------- 2 |AND[S1...S2]| AND �� ���ࠢ� ������ ���祭�� S1...Sn|F | |� �����頥� ���祭�� T, � �� ��㬥��� | | |��NIL, ���� ������ ������� �� ��ࢮ��| | |NIL � �����頥��� NIL | | | | | |(AND (EQ 'DOG 'CAT)(< 2 3)) | | |NIL | | |(AND (EQ 'DOG 'DOG)(< 2 3)) | | |T | ---------------------------------------------------------------- 3 |OR[S1...S2] | ��������� ��㬥��� S1...Sn �� ����-|F | |��, ���� �� �㤥� ����祭 १����, �⫨��| | |�� NIL, �� � �㤥� १���⮬ ࠡ��� OR.�| | |�� १����� NIL, ⮣�� �㭪�� OR �����- | | |頥� NIL | | | | | |(OR (EQ 'DOG 'CAT)(< 2 3)) | | |T | | |(OR (EQ 'DOG 'CAT)(< 3 2)) | | |NIL | ---------------------------------------------------------------- 2.6�2 �㭪樨 ��ᢠ������0 ---------------------------------------------------------------- N | �㭪�� | �����祭��, ���祭��, �ਬ��� ---------------------------------------------------------------- 1 |SET [A S] | ���祭�� � ��ᢠ������� ���祭�� S.���- |F | |祭�� � �⮬.SET �����頥� ���祭�� ���-| | |�� ��㬥�� | | | | | |(SET 'PET 'DOG) | | |DOG | | |(SET PET 'ANIMAL) | | |ANIMAL | | | | | |DOG | | |ANIMAL | | | | | |PET | | |DOG | ---------------------------------------------------------------- 2 |SETQ | A�㬥��� A1...An ���������� � �� ��ᢠ- |[A1 S1..An Sn]|������� ���祭�� ��㬥�⮢ S1...Sn (ᮮ�- | | |����⢥���). SETQ �����頥� ������ ��-| | |����� ���祭�� | | | | | |(SETQ FOO '(D E F)) | | |(D E F) | | | | | |FOO | | |(D E F) | | | | | |(SETQ SUM 5) | | |5 | | | | | |(SETQ SUM (+ 3 4) SQR (* SUM SUM)) | | |49 | | | | | |SUM | | |7 | | | | | |SQR | | |49 | ---------------------------------------------------------------- 2.7 �2 �ਬ�⨢� ��।������ �㭪権�0 ------------------------------------------------------------------- N |�㭪�� | ��㬥��� | �����祭��, ���祭��, �ਬ��� | ------------------------------------------------------------------- 1 |GETD [�] |�-��� �㭪-| �뢮��� �� �࠭ ��।������ |F | | 樨 | �㭪樨 � ������ �.���祭�� | | | | �㭪樨 - ᮮ⢥�����饥 ��-| | | | ��� ��ࠦ���� | | | |(GETD FACTORIAL) | | | |(LAMBDA (N) (COND ((ZEROP N) 1)| | | |(T (* (FACTORIAL (SUB1 N)))))) | ----------------------------------------------------------------|-- 2 |MOVD [A1 A2] |A1-�� | �㭪樨 � ������ �1 ��ᢠ���-|F | |��� �㭪樨| ���� �� ���� ��� - �2.����- | | | | ��� �㭪樨 - ����� ��� | | |�2-����� |(MOVD 'CAR 'FIRST) | | |��� �㭪樨|FIRST | | | |(FIRST '(A B C D E)) | | | |A | ------------------------------------------------------------------ 3 |REMD [A] |�-��� �㭪-| �� ����⨢��� ����� 㡨ࠥ�-|F | | 樨 | �� ���짮��⥫�᪠� �㭪�� � | | | | ������ �.���祭�� �㭪樨 - | | | | ��� 㡨ࠥ��� �㭪樨 | | | |(DEFUN FACTORIAL (N) | | | | (COND ((ZEROP N) 0) | | | | (T (FACTOPIAL (SUB1 N))) | | | | ) | | | |) | | | | FACTOPIAL | | | |(GETD FACTORIAL) | | | |(LAMBDA (N) (COND ((ZEROP N) 1)| | | |(T (* (FACTORIAL (SUB1 N)))))) | | | |(REMD 'FACTORIAL) | | | | FACTOPIAL | | | | | | | |(GETD FACTORIAL) | | | | NIL | ---------------------------------------------------------------- 4 |DEFUN |A-��� �㭪-| �������� ��।����� �㭪�� |SF | [A L F1 ...FN] | 樨 | ���짮��⥫�.���祭�� �㭪樨-| | | | ��� ᮧ������ �㭪樨 | | | | | | | |(DEFUN FACTORIAL (N) | | | | (COND ((ZEROP N) 0) | | | | (T (FACTOPIAL (SUB1 N))) | | | | ) | | | |) | | | | FACTOPIAL | |DEFUN | | �������� ��।����� �㭪�� | |[A(ft L F1..F2)]| | ���짮��⥫�.���祭�� �㭪樨-| | | | ��� ᮧ������ �㭪樨 | | | |(DEFUN FACTORIAL (LAMBDA (N) | | | | (COND ((ZEROP N) 0) | | | | (T (FACTOPIAL (SUB1 N))) | | | | ) | | | | ) | | | |) | | | | FACTOPIAL | ------------------------------------------------------------------- |GETD [A,tf] | - ""- | १���� - ⥫� �㭪樨 � | ------------------------------------------------------------------- 2.8 �2 ��䬥��᪨� �㭪樨�0 ---------------------------------------------------------------- N | �㭪�� | ���祭�� �㭪樨, �ਬ��� ---------------------------------------------------------------- 1 |MAX[N1...Nn]| �����頥� m��ᨬ��쭮� �� �ᥫ N1...Nn | F | |(MAX 5 -7 4) | | |5 | ---------------------------------------------------------------- 2 |MIN[N1...Nn]| �����頥� �������쭮� �� �ᥫ N1...Nn | F | |(5 -7 4) | | |-7 | ---------------------------------------------------------------- 3 |+ [N1...Nn] | �����頥� �㬬� �ᥫ N1+N2+...+Nn | F | |(+ 2 3 4 -5) | | |4 | ---------------------------------------------------------------- 4 |- [N1...Nn] | �����頥� ࠧ����� ����� N1 � N2+N3+...+Nn| F | |(- 12 5 -2) | | |10 | ---------------------------------------------------------------- 5 |* [N1...Nn] | �����頥� �ந�������� �ᥫ: N1*N2*...*Nn| F | |(* 3 4 5) | | |60 | ---------------------------------------------------------------- 6 |/ [N1...Nn] | �����頥� १���� �� ������� N1 �� ��- | F | |��������� N2*N3*...*N4 | | |(/ 12 5 -3) | | |0.8 | ---------------------------------------------------------------- 7 |ADD1 [N] | �����頥� N, 㢥��祭��� �� 1: N + 1 | F | |(ADD1 3) | | |4 | -------------------------------------------------------------- 8 |SUB1 [N] | �����頥� N, 㬥��襭��� �� 1: N - 1 | F | |(SUB1 3) | | |2 | ---------------------------------------------------------------- 9 |ABS [N] | �����頥� ��᮫�⭮� ���祭�� N | F | |(ABS -3) |(ABS 3) | | |3 |3 | ---------------------------------------------------------------- 10 |SIGNUM [N] | �����頥� ���� �: �� N>0 - 0 | F | | �� N<0 - 1 | | | (SIGNUM -0.2) |(SIGNUM 5) | | | 1 |0 | ---------------------------------------------------------------- 2.9 �2 �㭪樨 ������0 ---------------------------------------------------------------- N | �㭪�� |��㬥���| �����祭��, ���祭��, �ਬ��� ---------------------------------------------------------------- 1 |RDS [D: I.R]|D: - ���| ���뢠�� 䠩� �� ��᪥ ��� ��- | F | |I - ��� | �뢠��� � ����⨢��� ������ | | |䠩�� | �����頥� ��� 䠩�� | | |R - ��- |(RDS 'B:MLSP.TXT) | | |�७�� |B:MLSP.TXT | ---------------------------------------------------------------- 2 |READ-CHAR []| | ���뢠�� ���騩 ᨬ��� � ⥪�- F | | | 饣� �室���� ���ன�⢠ � �����- | | | 頥� ᨬ���, �� ���⭮� ��� �-| | | | �⮨� �� ��� �ࠪ���⨪. | ---------------------------------------------------------------- 3 |READ [ ] | | ���뢠�� S-��ࠦ���� � ⥪�饣� | F | | | �室���� ���ன�⢠ � �����頥� | | | | ᮮ⢥�����騩 ᯨ᮪ | --------------------------------------------------------------- 4 |READ-BYTE | | ���뢠�� ���� � ⥪�饣� �室��-| F | | | �� ���ன�⢠ | ---------------------------------------------------------------- 2 |RDS [] | | ����뢠�� 䠩� ��� ���뢠��� | F ---------------------------------------------------------------- 10 |READ-LINE[ ]| | ���뢠�� ��ப� � � ⥪�饣� | | | | �室���� ���ன�⢠ � �����頥� | | | | �� � ����⢥ १���� | -------------------------------------------------------------- 11 |LISTEN [ ] | | ������� - �, � �� �室��� | F | | | ���ன�⢥ ���� �� ᨬ���� ��� | | | | ����� | ---------------------------------------------------------------- 2.10�2 �㭪樨 �뢮���0 ---------------------------------------------------------------- N | �㭪�� | �����祭��, ���祭��, �ਬ��� | ---------------------------------------------------------------- 1 |WRS [D: I.R]|D: - ���| ���뢠�� 䠩� �� ��᪥ ��� ��- | F | |I - ��� | ����. | | |䠩�� | �����頥� ��� 䠩�� | | |R - ��- |(WRS 'B:MLSP.TXT) | | |�७�� |B:MLSP.TXT | ---------------------------------------------------------------- 4 |PRINC [S] | ���⠥� S ��� ���室� �� ����� ��ப� | F | | ������� - S. | ---------------------------------------------------------------- 4 |PRINT [S] | ���⠥� S � ���室�� �� ����� ��ப� | F | | ������� - S. | ---------------------------------------------------------------- 6 |TERPRI [S] | �� ��室��� ���ன�⢥ �ய�᪠�� N ��ப | F ---------------------------------------------------------------- 7 |SPACES [N] | �� ��室��� ���ன�⢥ �ய�᪠�� N ����権| F ---------------------------------------------------------------- 8 |WRITE-BYTE | �� ��室��� ���ன�⢥ ���⠥� ᨬ��� | F | [N] | ᮮ⢥�����訩 ASCII ���� N | ---------------------------------------------------------------- 2.11�2 �㭪樨 ࠡ��� � ��ப����0 ---------------------------------------------------------------- 1 |SUBSTRING | � <�⮬> - ���� ᨬ���, ���� �, | |[atom,n,m] | <n> � <m> - ������⥫�� 楫�, � n<=m, | | | � (SUBSTRING �⮬ n m) �����頥� ᨬ���, | | | � ���ண� �-��� ��⮨� �� ᨬ����� | | | �-����� <�⮬�>, ��稭�� � n-�� �� m-�, | | | ��祬 ����� ᨬ����� ������� � 0. | | | �� ���祭�� <n> �����, 祬 0, �ਭ�- | | | ������ ࠢ�묨 0. � <m> �ய�饭�, �- | | | ����� ����⥫�� 楫� ��� �����, 祬 | | | ������⢮ ᨬ����� � <�⮬>, �ਭ�������, | | | �� <m> ࠢ�� �������� ᨬ����� � | | | <atom>. � <n> ����� ��� ࠢ�� ������- | | | �� ᨬ����� � <atom> ��� � n>m, | | | SUBSTRING �����頥� ᨬ���, � ����- | | | ���-��� ���� �㫥��� ��ப�. | | | �⬥⨬, �� SUBSTRING �ᥣ�� �����- | | | 頥� ᨬ���, ���� � <�⮬> ���� �. | | | (SUBSTRING 'ABCDEFG 2 4) --> CDE | | | (SUBSTRING 'ABCDEFG 2) --> CDEFG | | | (SUBSTRING 'ABCDEFG 0 4) --> ABCDE | | | (SUBSTRING 1000 0) --> |1000| | ---------------------------------------------------------------- 2 |FINDSTRING | (FINDSTRING �⮬1 �⮬2 n) �����頥� | |[atom1,atom2| ����� ����樨 ��ࢮ�� �宦����� <�⮬�1> � | |n] | <�⮬2>, ��祬 ����� ������� � 0. � | | | <n> - ���� ��� ������⥫쭮� 楫��, ���� | | | ��稭����� � n-�� ᨬ���� <�⮬�2>. � | | | <�⮬1> �� �������, �㭪�� �����頥� | | | NIL. | | | | | | (FINDSTRING 'XYZ 'ABCXYZDEFXYZGHI) --> 3 | | | (FINDSTRING 'XYZ 'ABCXYZDEFXYZGHI 4) --> 9 | | | (FINDSTRING 'XYZ 'ABCDEFGHI) --> NIL | ---------------------------------------------------------------- 3 | UNPACK | (UNPACK �⮬) �����頥� ᯨ᮪ ᨬ��- | | [atom] | ��� ����祭��� ��⥬ ��饯����� <�⮬>. | | | � <�⮬> �� ���� �⮬��, UNPACK | | | �����頥� NIL. | | | (UNPACK 'ABCDE) --> (A B C D E) | | | (SETQ FOO -216) --> -216 | | | (UNPACK FOO) --> (- \2 \1 \6) | ---------------------------------------------------------------- 4 |PACK [list] | PACK �����頥� ᨬ���, ����� ���- | | | �� �� �楯������ ���� �⮬�� � <list>. ��- | | | ��⨬, �� PACK �ᥣ�� �����頥� ᨬ���, | | | ���� � �-��� ��⮨� ⮫쪮 �� �����- | | | ����� �ᥫ. | | | (PACK '(A B C)) --> ABC | | | (PACK '(3 A 5)) --> |3A5| | ---------------------------------------------------------------- 5 |PACK* | (PACK* �⮬1 ... �⮬N) �����頥� | |[atom1,atom2| ᨬ���, ����� ��⮨� �� �楯������ | |...,atom N] | <�⮬�1>, ..., <�⮬�N>. PACK* �������祭� | | | PACK, �� ࠡ�⠥� �� � ᯨ� �⮬��, � | | | � �ந������ ������⢮� �⮬��. | | | | | | (PACK* 'A 'B 'C) --> ABC | | | (PACK* 3 'A 5) --> |3A5| | ---------------------------------------------------------------- III. �2�������쥫�� ᢥ����� � muLISP85 3.1 �2����饭�� �� �訡��� � ������ ࠧ���� �ਢ������ ᮮ�饭�� �� �訡��� � ��⥬� muLISP, � ⠪�� ��樨, ����騥�� � �ᯮ�殮��� ���짮��⥫� �� ������ �訡��. ����� muLISP �����㦨���� �訡�筮� ���ﭨ�, ��뢠���� �㭪�� BREAK. BREAK �뤠�� ᮮ⢥�����饥 ᮮ�饭�� �� �訡- ��, �ਮ�⠭�������� �믮������ �ணࠬ�� � ���ᯥ稢��� ����- ����⥫� ���ﬨ �த������� ࠡ��� �� �롮�. ���� � ��䠢�⭮� ���浪� �ਢ����� ᮮ�饭�� �� �訡��� muLISP: - DISK FULL ( ��� ����� ): ����砥�, �� ����� ��� ࠧ- ��饭�� ������, ����ᠭ��� �� ����� 䠩��, �� 墠⠥�. ��- �������� �ணࠬ�� �४�頥���, � ��������� ���뢠��� �� �訡��. �.�. 䠩� ��⠥��� ������, ������� ����������� ��- ��� � ��㣨� 䠩�� �� �ᥩ ��᪥� ( � ������� �㭪樨 EXETUTE ) � �த������ ������ � 䠩�; - END-OF-FILE ( ����� 䠩�� ): ����砥�, �� �뫠 ᤥ���� ����⪠ ����� ����� �� �।����� ���� �室���� 䠩�� ( CIF ) ��� �� ��� ������ ���� - FILE NOT FOUND ( 䠩� �� ������ ): ����砥�, �� ��室�� � ( ��� ) SYS-䠩�, 㪠����� � �������� ��, ���樨����� muLISP, �� ������, ��� SYS-䠩� ���ࠢ��쭮� ���ᨨ. SYS-䠩� ����� ���� ����㦥� ⮫쪮 ��� �ࠢ������ ⮩ ���ᨨ muLISP, ����� �ᯮ������ ��� ��࠭���� 䠩��. � ��. 2 ���ᠭ�, ��� ����㦠�� 䠩�� � �ᯮ�짮������ ������ ��. ��室�� � SYS-䠩��, �� ⮣�, ����� ���� ����㦥�� � muLISP � �ᯮ�짮������ ������ RDS � LOAD ᮮ⢥��⢥���. ����� ���� �� ��� ������ �����蠥���, � 䠩� �� ������, ����� ᮮ�- 饭�� "file not found" ������� �����頥� �ਧ��� NIL; - INSUFFICIENT ARGUMENTS ( �������筮� ������⢮ ���- ���⮢ ): ����砥�, �� �㭪��, �ॡ���� �� �ࠩ��� ��� ��- ���� ��㬥��, ��뢠���� ��� ��㬥�⮢. �㭪�ﬨ, ����� ����� �맢��� ��� ⨯ �訡��, �����: MAX,MIN,-,/,ADD1,SUB1, LCM,ABS,SIGNUM,NUMERATOR,DENOMINATOR,FLOOR,CEILING,TRUNCATE, ROUND,MJD,REM,DIVIDE,LOGNOT,BITLENGTH � SHIFT; - INSUFFICIENT MEMORY, ABORTING ( �������筮� ������⢮ �����, ���뢠��� ): ����砥�, �� ����� ���� ��墠⪠ ����� ��� ����㧪� � �㭪樮������ �।� muLISP. ����� muLISP �ਮ�⠭����������, � �ࠢ����� �����頥��� � �ࠢ���饩 ��. �⬥⨬, �� �।� muLISP, ��࠭塞�� � SYS-䠩��, ����� ���� ����㦥�� � ���, ������� ����訩 ��쥬 �����, 祬 ���, �� ���ன �� �।� �뫠 ᮧ����. �訡�� �� ��墠⪥ ����� ���- ������ ⮫쪮 ⮣��, ����� ���, �� ���ன SYS-䠩� �� �����- ���, �� �������� ������� ��쥬�� ����� ��� ࠧ��饭�� ��- �� muLISP. �����⢥��� ���� ����㧪� SYS-䠩��� - �� ����祭�� ����襣� ��쥬� ����� ��� ���. - MEMORY FULL ( ������ ��� ): ����砥�, �� ����� ��� ��- �������� �믮������ �ணࠬ� muLISP �� 墠⠥�. �믮������ �ணࠬ� �ਮ�⠭����������, � ��������� ���뢠��� �� �訡��. - NONINTEGER ARGUMENT ( ��楫� ��㬥�� ): ����砥�, �� �㭪��, �ॡ���� 楫�� ��㬥�⮢, �맢��� � ��楫� ��㬥�- ⮬. �㭪樨, ��� ������ �� �訡�� ����� ���������, ��: LOGAND, LOGIOR, LOGXOR, LOGNOT, SHIFT � BITLENGTH; - NONINTEGER ARGUMENT ( ������ ��㬥�� ): ����砥�, �� �㭪��, �ॡ���� ���� ��㬥�⮢, �맢��� � ���- �� ��㬥�⮬. ����� �訡�� ����� ���������� ��� ����� �㭪権:=, /=, <, >, <=, >=, MAX, MIN, +, -, *, /, ADD1, SUB1, INCQ, DECQ, GCD, LCM, ABC, SIGNUM, NUMERATOR, DENOMINATOR, FLOOR, CEILING, TRUNCATE, ROUND, MOD, REM � DIVIDE; - NONSYMBOLIC ARGUMTNT ( ��ᨬ����� ��㬥�� ): ����砥�, �� �㭪��, �ॡ���� ᨬ������ ��㬥�⮢, �맢��� � ��ᨬ- ����� ��㬥�⮬. � ⠪�� �㭪�� �⭮�����: SET, SETQ, PSETQ, POP, PUSH, INCQ � DECQ; - SYNTAX ERROR ( ᨭ⠪��᪠� �訡�� ): ����砥�, �� �㭪�� READ ����⨫� ���� ��譨� �ࠢ� ���, ���� ����- ����� � ��筮� ����ࠦ����, ���ਬ��, (A.) ��� (AB.CD). �.�. ���뢠��� �� ������ �訡�� ���������� ����ᮬ �ࠢ�� ��� ��� �������, ��� ����� ���� ��������� ���짮��⥫��-��- �騪��; - UNDIFINED FUNCTION ( ����।������� �㭪�� ): ����砥�, �� �뫠 ᤥ���� ����⪠ �ᯮ�짮����� ᨬ����, �� ����饣� ��- ।������ �㭪樨. - ZERO DIVIDE ( ������� �� 0 ): ����砥�, �� �뫠 �맢��� �㭪�� ������� � �㫥�� ����⥫��. ������ �㭪�ﬨ ����� ����: /, FLOOR, CEILING, TRUNCATE, ROUND, MOD, REM � DIVIDE. 3.2 �2����� � �⥪�� POP [symbol] Special form POP �����頥� "�������" (�.�. car) "�⥪�" (�.�. ᯨ᪠), ����� ���뢠���� <ᨬ���>, � ������� ���祭�� <ᨬ����> �� ��⠢����� ���� (�.�. cdr) �⥪�. � <ᨬ���> �� ���� ᨬ�����, � ��������� ���뢠��� �� �訡�� "��ᨬ����� ���- ����". � ���祭�� <ᨬ����> - �� cons, POP �����頥� NIL. ������ ᯥ樠�쭠� �ଠ - �� LISP-������ ��ࠦ���� �� ��- 設��� �몥, �।�����祭���� ��� �롮ન ���ଠ樨 �� "���- ��誨" �⥪�. �ਬ��: (SETQ STACK-LIST '(A B C D E F)) --> (A B C D E F) (POP STACK-LIST) --> A (POP STACK-LIST) --> B (POP STACK-LIST) --> C STACK-LIST --> (D E F) PUSH [form,symbol] Special form (PUSH �ଠ ᨬ���) �業����� <���>, "��⠫������" १���� � �⥪ (�.�. � <ᨬ���>) � ������� ���祭�� <ᨬ��- ��> �� 㢥��祭�� �⥪. PUSH �����頥� 㢥��祭�� �⥪ (�.�. ᯨ᮪). � <ᨬ���> �� ���� ᨬ�����, ��������� ���뢠- ��� �� �訡�� "��ᨬ����� ��㬥��". ������ ᯥ樠�쭠� �ଠ - �� LISP-������ ��ࠦ���� �� ��- 設��� �몥, �।�����祭���� ��� ࠧ��饭�� ���ଠ樨 � "�����誥" �⥪�. �ਬ��: (SETQ STACK-LIST NIL) --> NIL (PUSH 'A STACK-LIST) --> (A) (PUSH 'B STACK-LIST) --> (B A) (PUSH 'C STACK-LIST) --> (C B A) STACK-LIST --> (C B A) 3.3 �2�㭪樨 ��� �㭪樨 ��� �।�����祭� ��� �ࠢ����� ��⢠��, �易��묨 � ᨬ������. CDR-���� ᨬ���� 㪠�뢠�� �� ᯨ᮪ ���, ᮤ�ঠ騩 ��⢠ � 䫠�� (�. ࠧ��� 5.9). ���᮪ ��� - �� ASSOC-ᯨ᮪ (ASSOCiation) ���祩 ���, ��쥤������� � ���� � ���祭�ﬨ ���. �.�. 䫠�� - �� �⮬� � ᯨ᪥ ���, ��� ����� �⫨����� �� ���. �㭪樨 ��� � 䫠��� �������� ����� ������� ����- ���᪨� ��� ������, �� ������ ���ଠ�� ����� ����� � ����� �롨�����. PUT [symbol,key,object] Function (PUT ᨬ��� ���� ��쥪�) ����頥� � ᯨ᮪ ��� <ᨬ��- ��> ���祭�� <��쥪�> ᮣ��᭮ 㪠��⥫� <����>. �ਬ��: (PUT 'USA 'CAPITAL 'WASHINGTON) --> WASHINGTON (PUT 'FRANCE 'CAPITAL 'PARIS) --> PARIS (PUT 'JAPAN 'CAPITAL 'TOKYO) --> TOKYO GET [symbol,key] Function (GET ᨬ��� ����) �����頥� ���祭�� ��⢠, ᮮ⢥��- ���饥 <ᨬ����>, ᮣ��᭮ 㪠��⥫� <����>. � ⠪��� 㪠- ��⥫� �� �������, GET �����頥� NIL. � �ਢ������� ���� �ਬ�� �।����������, �� �뫠 �믮����� ������� PUT. �ਬ��: (GET 'FRANCE 'CAPITAL) --> PARIS (GET 'USA 'CAPITAL) --> WASHINGTON (GET 'AUSTRIA 'CAPITAL) --> NIL REMPROP [symbol,key] Function (REMPROP ᨬ��� ����) 㤠��� �� ᯨ᪠ ��� <ᨬ����> ��⢮, ᮮ⢥�����饥 <�����>. REMPROP �����頥� �� ���祭�� ��⢠, � ��� �������, � ��⨢��� ��砥 - NIL. � �ਬ�� �।����������, �� �ਢ������ ��� ����⢨� � �㭪樥� PUT �믮�����. �ਬ��: (REMPROP 'USA 'CAPITAL) --> WASHINGTON (GET 'FRANCE 'CAPITAL) --> PARIS (GET 'USA 'CAPITAL) --> NIL 3.4 �2����⮢� �����᪨� �㭪樨 ����⮢� �����᪨� �㭪樨, ��ᬠ�ਢ���� � ������ ࠧ- ����, ࠡ���� ⮫쪮 � 楫묨 ���. � ��� ��뢠���� � ��楫묨 ��㬥�⠬�, ��������� ���뢠��� �� �訡�� "��楫� ��㬥��". LOGAND [n1,n2,...,nM] Function (LOGAND n1 n2 ... nM) �����頥� १���� �믮������ ����- ⮢��� ������� "�" ��� 楫묨 ��� <n1>, ..., <nM>. � LOGAND ��뢠���� ��� ��㬥�⮢, �㭪�� �뤠�� "-1" - �����- 䨪��� ������ ����樨. �ਬ��: (LOGAND 11 6) --> 2 LOGIOR [n1,n2,...,nM] Function (LOGIOR n1 n2 ... nM) �����頥� १���� �믮������ ����- ⮢��� ������� "���" ��� 楫묨 ��� <n1>, <n2>, ..., <nM>. � LOGIOR ��뢠���� ��� ��㬥�⮢, �㭪�� �뤠�� 0 - �����䨪��� ������ �㭪樨. �ਬ��: (LOGIOR 11 6) --> 15 LOGXOR [n1,n2,...,nM] Function (LOGXOR n1 n2 ... nM) �����頥� १���� �믮������ ����- ⮢��� ������� �᪫���饣� "���" (XOR) ��� 楫묨 ��� <n1>, ..., <nM>. � LOGXOR ��뢠���� ��� ��㬥�⮢, �㭪�� �����頥� 0 - �����䨪��� ������ �㭪樨. �ਬ��: (LOGXOR 11 6) --> 13 LOGNOT [n] Function (LOGNOT n) �����頥� १���� �믮������ ����⮢��� ����- ��� "��" ��� <n>. �ਬ��: (LOGNOT 9) --> 65526 SHIFT [n,m] Function � <m> - ������⥫쭮�, (SHIFT n m) �����頥� १���� ᤢ��� <n> ����� �� <m> ��⮢. � <m> - ����⥫쭮�, <n> ᤢ������� ��ࠢ� �� -<m> ��⮢. �ਬ��: (SHIFT 5 2) --> 20 (SHIFT 5 -2) --> 1 3.5 �2������ �������樨 PROGN [form1,form2,...,formN] Special form (PROGN �ଠ1 �ଠ2 ... �ଠN) ������⥫쭮 ������ ���, ��稭�� � <���1>, � �뤠�� ���祭�� ������ ����- ������ ���. �ਬ��: (PROGN (SETQ NUM1 (+ 2 5)) (SETQ NUM2 (* 3 4)) ((< NUM1 NUM2) ((MINUSP NUM1) (* 3 NUM2) ) (+ NUM1 NUM2) ) (- NUM1 NUM2) ) --> 19 LOOP [form1,form2,...,formN] Special form (LOOP �ଠ1 ... �ଠN) ����୮ ������ ��� � ��- ����⥫쭮� ���浪� �� �� ���, ���� �� �������� ��� COND � �।���⮬, �� ࠢ�� NIL. ��⥬ LOOP ������ ⥫� ����� COND � �����頥� १����. ��堭��� ������ ⥫� �㭪樨 � ������� ���� PROGN ���� �����쭮 ����, �� �� �� ��ᠥ��� ������� ����� ��४��ᨢ��� �ணࠬ�. ����� ����������� ���ᯥ稢����� ����- 쭮� �������樥� LOOP. LOOP ������⥫쭮 ������ � ��� ⥬ �� ��⮤��, ��� ��� ��������� � PROGN. ������ ��- �� �� ��� � LOOP �����, �� �� 㤮���⢮���� �����-���� ����, ������ ���������, ��稭�� � ��ࢮ� ���. �ਬ��: (SETQ NUM 5) (LOOP ((ZEROP NUM)) (PRIN1 NUM) (SPACES 2) (PRINT (*NUM NUM)) (DECQ NUM) ) 5 25 4 16 3 9 2 4 1 1 T PROG1 [form1,form2,...,formN] Special form (PROG1 �ଠ1 ... �ଠN) ������ <���1>, ��⥬ - ��- ⠢訥�� ���, �ᯮ���� ���� PROGN, � �����頥� १���� ������ <���1>. PROG1 ��� �ᯮ����� ��� ⮣�, �⮡� �� ������� �६���� ��६���� ��� �࠭���� १���⮢ � ����- � ������ ��㣨� ��ࠦ����. �ਬ��: (SETQ FOO '(A B C D)) --> (A B C D) (PROG1 (CAR FOO) (SETQ FOO (CDR FOO))) --> A FOO --> (B C D) IF [predicate,thenform,elseform] Special form � ���祭�� <�।����> ���� �� NIL, (IF �।���� then-�ଠ else-�ଠ) ��������, � �뤠���� <then-�ଠ>. � ��⨢��� ��砥 �������� IF � �뤠���� <else-�ଠ> ��� NIL, � <else-�ଠ> ���������. ���樠�쭠� �ଠ IF � LISP �������筠 �������樨 "if-then -else" � ��㣨� �몠�. �ਬ��: (IF (EQ (* 2 3) 6) 'TRUE 'FALSE) --> TRUE (IF (EQ (+ 2 3) 6) 'TRUE 'FALSE) --> FALSE COND [cond1,cond2,...,condN] Special form (COND cond1 ... condN) ������ car ������ cond-��� (�.�. �।����) �� �� ���, ���� �� �������� �����-���� ���- 祭��, �⫨筮� �� NIL, ���� ���� �� �।����� �� ���� ����- ����. � ��ࢮ� ��砥 COND ������ cdr-���� cons-��� � �।���⮬, �⫨�� �� NIL, ��� ⥫� �㭪樨, �ᯮ���� ���- ��� PROGN. � crd-���� cond-���, �� ࠢ��� NIL, ����, � COND �����頥� ���祭�� �।����. � �� �।����� �뫨 ��- ��� � �� �����⨫� NIL, � COND �뤠�� NIL. � muLISP ��� COND ����⥫쭮 㬥��蠥� ���室������ ��� �ᯮ�짮����� �㭪樨 COND. ������, ��� �������� �� ��- ���, COND 㤮��� ⮣��, ����� � �맮�� ������� �㭪権 ��- ������� �⢥ত���� ����. �ਬ��: (SETQ NUM -3) --> -3 (SETQ SIGN (COND ((PLUSP NUM) 'POSITIVE) ((MINUSP NUM) 'NEGATIVE) ((ZEROP NUM) 'ZERO) ('NONNUMBER) ) ) --> NEGATIVE 3.6 �2�㭪樨 �ࠢ����� ������� �㭪�� RECLAIM �ࠢ��� ࠡ�⮩ ᡮ�騪� ���� � �����- 頥� १������饥 ������⢮ ������ ������ ������. �.�. �ࠢ����� ������� � muLISP ��������� ��⮬�⨧����, RECLAIM �ᯮ������ ⮫쪮 ��� ��।������ ������⢠ ������ ����� ��� ��। ࠡ�⮩ �६������ ��� - ��� ��������樨 ������⢠ ᡮ�騪�� ���� � ����� ࠡ��� ���. RECLAIM [ ] Function (RECLAIM) �ࠢ��� ࠡ�⮩ ᡮ�騪� ����, ��ࠢ��� ��- ���४�� �������� ������ ��� ����� �����⥩ ������ muLISP. � �ॡ����, �믮������ ⠪�� �����।������ �����. �����頥��� �⮣���� � ���⮢,����㯭�� ��� ������ ��- ���, ����, 㪠��⥫�� � �⥪��� ������. 3.7 �2����� � ����⨢��� ������� �㭪樨, ����� ��ᬠ�ਢ����� � ������ ࠧ����, ���ᯥ- 稢��� ��������� ����� �ணࠬ���� muLISP, �� ��� � �� (�. ⠪�� ��孨�᪨� ४������樨 ��� � �㪮����⢮ �� ��). MEMORY [address,value,flag] Function � <�ddress> (<����>) - ���� ��� ������⥫쭮� 楫��, ����襥, 祬 ������� ����� ���ய�����, �� ��� ࠡ��- �� muLISP, (MEMORY ����) ��।��� ���� (�.�. 8-��⮢�� ����- ���) � <����>. � <value> (<���祭��>) - ���� ��� ������⥫쭮� 楫��, ����襥, 祬 256, (MEMORY ���� ���祭��) ���������� <���祭��> ���� �� <�����> � �����頥� ��ࢮ��砫쭮� ���祭�� ����. � <flag> (<䫠�>) - �� NIL, (MEMORY ���� ���祭�� 䫠�) ��।��� �� (�.�. 16-��⮢�� ���祭��) � <����>. � <���- 祭��> - ���� ��� ������⥫쭮� 楫��, ����襥, 祬 65536, (MEMORY ���� ���祭�� 䫠�) ���������� <���祭��> �� �� <�����> � �����頥� ��ࢮ��砫쭮� ���祭�� ��. �।�०�����: MEMORY ������ �ᯮ�짮������ �祭� ���- ��, �.�. ��������� ���� �� ࠧ��襭�� �������� muLISP ��� �㪮����饩 ��. 3.8 �2����� � �࠭�� ������ �㭪樨 �࠭� ���᮫� �।�����祭� ��� �뤠� �� �࠭ � �ଠ����� � �࠭� ⥪�� - �� �㭪樨 ᮧ����� ����, ��- ������� ��������� ����� � ᢥ�⪨ ⥪��. ��६���� �࠭� ���᮫� ���ᯥ稢��� �ࠢ����� ⠪��� ��ਡ�⠬�, ��� ����- ���, �����᭮� ����ࠦ����, �મ��� � ��⮬���᪠� ᢥ�⪠ �࠭�. SET-CURSOR [row,column] Function (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 - � ���������� ��- ������ (�.�. ��᪫�). ��१�ࢨ���� ��. *AUTO-NEWLINE* CEILING LISTEN PRINT-LENGTH THROW *BLINK* CHAR LISTP PROG1 TIME *HIGH-INTENSITY* CLEAR-INPUT LOAD PROGN TONE *IGNORE-CASE* CLEAR-SCREEN LOCATION PSETQ TRUNCATE *PRINT-BASE* COLUMN LOGAND PUSH *PRINT-DOWNCASE* COMMENT LOGIOR PUT UNPACK *PRINT-ESCAPE* COND LOGNOT PUTD UNREAD-CHAR *PRINT-POINT* CONS LOGXOR UNWIND-PROTECT *PRINTER-ECHO* CONSP LOOP QUOTE *READ-BASE* COPY-CHAR-TYPE WRITE-BYTE *READ-UPCASE* COPY-LIST MACROEXPAND RASSOC WRITE-LINE + - * / COPY-TREE MAKE-LIST RASSOC-IF WRITE-STRING = /= <> <= >= COUNT MAKE-WINDOW RDS WRS COUNT-IF MAPC READ ABS MAPCAN READ-BYTE ZEROP ACONS DECQ MAPCAR READ-CHAR ADD1 DEFMACRO MAPCON READ-LINE ALLOCATE DEFUN MAPL RECLAIM AND DELETE MAPLIST REDUCE APPEND DELETE-IF MAX REGISTER APPLY DENOMINATOR MEMBER REM ASCII DISPLAY-PAGE MEMBER-IF REMD ASSOC DIVIDE MEMORY REMOVE ASSOC-IF DRIVER MERGE REMOVE-IF ATOM MIN REMPROP EQ MINUSP RESTART BACKGROUND-COLOR EQL MISMATCH RETURN BINARY-LOAD EQUAL MOD REVERSE BITLENGTH EVAL MOVD ROUND BREAK EVENP ROW BUTLAST EVERY NBUTLAST RPLACA EXECUTE NCONC RPLACD CAAAAR NEQ CAAADR FIND NEQL SAVE CAAAR FIND-IF NIL SET CAADAR FINDSTRING NOT SET-CURSOR CAADDR FLAG NOTANY SET-MACRO-CHAR CAADR FLAGP NOTEVERY SETQ CAAR FLOOR NREVERSE SHIFT CADAAR FOREGROUND-COLOR NSUBST SIGNUM CADADR FRESH-LINE NSUBSTITUTE SOME CADAR FUNCALL NSUBSTITUTE-IF SORT CADDAR NTH SPACES CADDDR GCD NTHCDR STACK-LIST CADDR GET NULL STRING-DOWNCASE CADR GET-MACRO-CHAR NUMBERP STRING-UPCASE CAR GETD NUMERATOR STRING/= CATCH GETSET STRING< CDAAAR ODDP STRING<= CDAADR IDENTITY OR STRING= CDAAR IF OUTPUTFILE STRING> CDADAR INCQ STRING>= CDADDR INPUTFILE PACK SUB1 CDADR INTEGERP PACK* SUBLIST CDAR INTERRUPT PEEK-CHAR SUBST CDDAAR PLUSP SUBSTITUTE CDDADR LAMBDA POP SUBSTITUTE-IF CDDAR LAST POSITION SUBSTRING CDDDAR LCM POSITION-IF SYMBOLP CDDDDR LENGTH PRECISION SYSTEM CDDDR LINELENGTH PRIN1 CDDR LIST PRINC T CDR LIST* PRINT TERPRI