Необходимо расшифровать криптограммУ

@M@ker · Регистрация: 17.12.2010

Студворк — интернет-сервис помощи студентам

Необходимо расшифровать криптограммы, поступающие с орбитальных спутников Марса. Криптограмма представлена в символьном виде, имеющем иерархическую структуру, поэтому для расшифровки использовать язык символьных вычислений - ЛИСП.

МНЕ НУЖНО НА ТАКОЕ ( "СУЭССКОГО", 3 если-символ )

Lisp
1
((((1062 709) (525 924) (583 486) (980 918) (424)) ((578 348) (349 712) (385 398) (660 445) (402 360) (360 300) ЗУНД ) ((824 678) (424 1088) (727 496) (18 18) (15)) ((898 693) (443 398) (353 157)) ((384 271) (156 948) (576 420) ПОЛЮ  (662 388) (361 288) (245 78))) (((924 640) (516 1186) (867 623) (624 530) (366 632) (402 394)) ((650 612) (301) ТОПИ ) ((862 714) (443 396) (396 330)) ((608 359) (364 448) (414 158)) ((328 281) (86 636) (466 336) (1102 688) (503  ПУСТ 1028) (648 436) (576 576) (480))) (((866 522) (529 1122) (749 669) (732 588) (360)) ((574 426) (203 874) (810  ШИРО 323)) ((940 633) (494 762) (695 321) (1392 766) (726))) (((952 747) (488)) ((924 697) (546 236) (234 184)))

помогите написать программу.

вот образец на другой вариант если что: («ПРОСТРАНСТВЕННОЕ», 4 если-число меньше 126):

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
(setq list '((((841 515 427 630 1244) (897 734 87 822)) ((241 283 271 210)) ((477 87 362 381 390 1215) 
(1159 1081 916 91 1091 805) (705 790 144 171 162) 92 (126))) (((829 631 553 633)) 
((664 92 537 422 448 289) (340 325 252)) 112 ((714 527 394 469 596) (561 484 109 395 1302 957) 
(932 1082))) (((380 113 223 246 340 496) (589 558 434)) 113 ((807 587 543 645 496) (589 558 105 434)) 
((1146 883 810 879 895) (771 89 695 661 476 467) (492 409)) ((511 103 559 573 434)) 
((644 491 528 565 115 399) (357 365 356)) ((543 597 609 114 462)) ((1202 900 802 890 560) 
(444 93 462 493))))
 )
 
; Взять первые N элементов списка 
(defun carN (ls N)
  (if (= N 0) nil
    (if (null ls)
        (cons 0 (list (carN ls (- N 1))))
        (cons (car ls) (carN (cdr ls) (- N 1)))
    )
  )
)
 
; Удалить первые N элементов списка 
(defun cdrN (ls N)
  (if (= N 0) ls (cdrN (cdr ls) (- N 1)))
)
 
; Преобразование ключа в матрицу n-го порядка
(defun KeyToMatrix (ls n)
  (if (null ls) nil
      (cons (carN ls n) (KeyToMatrix (cdrN ls n) n))
  )
)
 
; Преобразование списка символов алфавита №2 в список кодов 
(defun CharToNum (ls)
  (cond
    ((null ls) nil)
    ((listp (car ls)) (cons (if (null (car ls)) 0 (CharToNum (car ls))) (CharToNum (cdr ls))))
    (t (cons (- (char-int (car ls)) 191) (CharToNum (cdr ls))))
  )
)
 
; Преобразование списка кодов в список символов алфавита №2
(defun NumToChar (ls)
  (mapcar #'(lambda (c) (if (= c 0) #\space (int-char (+ c 191)))) ls)
)
 
; Транспонирование матрицы (меняем местами строки и столбцы матрицы)
(defun Transpose (m)
  (if (null (car m)) nil
    (cons (mapcar 'car m) (transpose (mapcar 'cdr m)))
  )
)
 
; Вычисление определителя
(defun MatrixDet (m)
  (cond
    ((null m) 0)               ;пустая матрица
    ((= 0 (caar m)) 0)         ;ноль на главной диагонали
    ((null (cdr m)) (caar m))  ;в матрице один элемент
    (t (let ((pivot (caar m))  ;m[1,1]
             (row1 (cdar m)))  ;(m[1,2], m[1,3], ...)
         (* pivot (MatrixDet (mapcar #'(lambda (row col1) ;для каждой строки
                       (let ((mult (/ col1 pivot)))
                        (mapcar #'(lambda (h k) 
                                  (- h (* mult k))) ;(- m[2,2] (* (/ m[2,1] m[1,1]) m[1,2]))
                                   row row1)))  
                       (mapcar #'cdr (cdr m))  ; ((m[2,2], m[2,3], ...)(m[3,2], m[3,3], ...)...)
                       (mapcar #'car (cdr m))) ;  (m[2,1], m[3,1], ...)
       )
    )
  )
)))
 
; Получение матрицы m, в которой столбце n заменен вектором-столбцом v
(defun Replace-Col (m v n)
  (if (OR (< n 0) (> n (- (length m) 1))) nil
      (append (carN m n) (list v) (cdrN m (+ n 1))))
)
 
; Расшифровка группы символов g используя метод Крамера
(defun Decrypt-Group (g KeyMatrix)
  (let ((main_det (MatrixDet KeyMatrix)) (res nil))
    (if (not (= 0 main_det))
        (for i from 0 to (- (length g) 1) do
          (setq res (append res (list (/ (MatrixDet (Replace-Col KeyMatrix g i)) main_det))))
        )
    )
    (mapcan #'(lambda (x) (and (not (equal 0 x)) (list x))) res) ;удаление лишних нулей
  )
)
 
; Расшифровка слова
(defun Decrypt (word)
  (let ((KeyMtx (Transpose (CharToNum (KeyToMatrix (coerce "ПРОСТРАНСТВЕННОЕ" 'list) 4))))) ; Матрица ключа
    (One_Level (mapcar #'(lambda (x) (Decrypt-Group x KeyMtx)) word)))
)
 
;анализ на "повреждения"
(defun Filter_List (obj)
   (cond
               ((null obj) nil)
               ((atom obj) (Filter_List (list obj)))
               ((listp (car obj)) (cond
                                                         ((null (Filter_List (car  obj))) (Filter_List (cdr obj)))
                                                          (t (cons (Filter_List (car obj)) (Filter_List (cdr obj)))) 
                                             ))        
               ((< (car obj) 126) (Filter_List(cdr obj)))
               (t (cons (car obj) (Filter_List (cdr obj))))
   )
) 
 
; Приводит все элементы списка к одному уровню иерархии
(defun One_Level (ls)
  (cond
    ( (null ls) nil )
    ( (atom ls) (list ls) )
    ( (listp ls) (append (One_Level (car ls)) (One_Level (cdr ls))) )
  )
)
 
; Преобразование слова в список групп из 4 буквы
(defun Format-Word (w)
  (if (null w) nil
      (cons (carN w 4) (Format-Word (cdrN w 4)))
  )
)
 
; Обработка всего текста сообщения
(defun Process-Text (text)
  (if (null text) nil
      (append (Process-Sentence (car text)) (Process-Text (cdr text)))
  )
)
 
; Обработка одного предложения текста
(defun Process-Sentence (s)
  (cond
    ((null s) '(#\.))
    ((listp (car s)) (append (process-word (car s)) (process-sentence (cdr s))))
    (t (process-sentence (cdr s)))
  )
)
 
; Обработка одного слова предложения 
(defun Process-Word (w)
  (if (listp (car w)) (append '(#\space) (NumToChar (Decrypt (Format-Word (One_Level (Filter_List w))))))))
)
 
; Вывод результата…
(list-to-delimited-string (Process-Text list) "")

@Catstail · 10.10.2012, 22:06

Хотелось бы несколько больше пояснений на тему, как построена криптограмма

@M@ker · 10.10.2012, 22:43 **[ТС]**

Тема: Функциональное программирование на языке ЛИСП.
Цель работы: Изучить основы программирования на языке ЛИСП. Получить практические навыки составления программ на ЛИСПе в функциональном стиле.
Задание. Необходимо расшифровать криптограммы, поступающие с орбитальных спутников Марса. Криптограмма представлена в символьном виде, имеющем иерархическую структуру, поэтому для расшифровки использовать язык символьных вычислений - ЛИСП. Один спутник для шифрования исходного сообщения использует шифр Виженера-МГ, а другой шифр Виженера-АПМ. Радиограмма криптограммы, проходя сквозь просторы космоса, принимается центром управления Земли с ошибками, характер которых известен в предикативном виде. Предикат ошибки задает правило, что считать ошибочной символьной структурой в радиограмме, а что полезными данными криптограммы. Обязательные для выполнения пункты задания: 1. Выбрать индивидуальный вариант задания из соответствующей таблицы 2.1-2.5, согласно учебной группе (ПО-А, ПО-Б, ПО-В, ИС-А, ИС-Б) и номеру в журнале студентов. Список радиограмм приведен в таблице 2.6. Радиограмма - это криптограмма в виде S-выражения с избыточной для неё структурами и элементами, которые должны быть проигнорированными при истинности предиката ошибки. Вариант задания содержит следующую информацию: № п.п - номер варианта по журналу студентов; Шифр - метод шифрования криптограммы (мг - шифр Виженера-МГ, апм - шифр Виженера-АПМ); Ключ - параметры функции шифрования (для метода МГ - ключевое слово, для метода АПМ - ключевое слово и порядок матриц); № гам - номер гаммирования (1 или 2), только для шифра Виженера-МГ (название заголовка столбца - "№ гам"); Предикат ошибки - характеристическое отношение принадлежности части радиограммы к игнорируемому мусору (например: если-число (в ЛИСПе numberp), если-строка (в ЛИСПе stringp), если-список больше трех элементов, если-список вместо литеры, если-код элемента больше 100 и т.д.); Радио- грам. - Номер радиограммы - ссылка радиограмму из таблицы 2.6. Примечание: Результат представить в виде описания варианта задания.
2. Проанализировать формат радиограммы. Радиограмма отражает, без учета ошибочных структур, иерархию криптограммы: список самого верхнего уровня - это текст (Т), подсписки текста - это предложения (П), подсписки предложения - это слова (С), буквы (Б) слова приводятся перечислением элементов, а могут быть сгруппированы, как подсписки с фиксированным количеством элементов, а в конце слова все что осталось. Формат радиограммы: Т(П(С(все литеры))) или Т(П(С(Б(1..5 литеры) Б(остаток)))). Пример представления слова "СТЫКОВКА": (С Т Ы К О В К А) - простое перечисление букв в виде элементов списка; ((С Т Ы) (К О В) (К А)) - по три буквы, а остаток две буквы. Пример представления текста: "МАРС ОДИН ГОТОВ. СТЫКОВКА ПРОШЛА.": (((М А Р С) ( О Д И Н) (Г О Т О В)) ((С Т Ы К О В К А) (П Р О Ш Л А))) - перечисление;
13
((((М А Р) (С)) ( (О Д И) (Н)) ((Г О Т) (О В))) (((С Т Ы) (К О В) (К А)) ((П Р О) (Ш Л А)))) - по три буквы в слове; ((((12 45 65) (67)) ((5 7 12) (45)) ((324 5 45) (435 5))) (((5 6 345) (6 62 23) (67 45)) ((17 28 76) (59 49 90)))) - по три элемента в слове для криптограммы шифра Виженера-АПМ . Примечание: Результат анализа представить в виде ответа: есть\нет группировка литер в слове криптограммы (для МГ и АПМ), сколько литер в группе (для МГ и АПМ), да\нет соответствует ли количество элементов в группе порядку матрицы ключа ((для АПМ)).
3. Реализовать на ЛИСПе расшифровку сообщения в среде Allegro CL Lite 3.0.1. Примечание: Результат представить в виде описания всех функций используемых в программе.
4. Применить функцию расшифровки радиограммы к индивидуальному варианту задания. Примечание: Привести расшифрованное сообщение.
5. Оформить отчет. Примечание: Результат предоставить в печатной форме и на подписанной дискете.

@Catstail · 10.10.2012, 22:48

Понятно. Буду разбираться.

@M@ker · 13.10.2012, 11:25 **[ТС]**

Есть идеи ?

@Catstail · 13.10.2012, 22:26

Отвлекался. В воскресенье займусь серьезно.

@M@ker · 17.10.2012, 19:21 **[ТС]**

получилось что-нибудь?

@Catstail · 17.10.2012, 19:27

Пока не получается. Что-то не находится хорошего описания алгоритма.

@M@ker · 17.10.2012, 19:57 **[ТС]**

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
(setq list ' ((((1062 709) (525 924) (583 486) (980 918) (424))
((578 348) (349 712) (385 398) (660 445) (402 360) (360 300)  ÇÓÍÄ ) ((824 678) (424 1088) (727 496) (18 18) (15)) 
((898 693) (443 398) (353 157)) 
((384 271) (156 948) (576 420) ÏÎËÞ  (662 388) (361 288) (245 78)))
(((924 640) (516 1186) (867 623) (624 530) (366 632) (402 394))
((650 612) (301) ÒÎÏÈ ) ((862 714) (443 396) (396 330))
((608 359) (364 448) (414 158))
((328 281) (86 636) (466 336) (1102 688) (503  ÏÓÑÒ 1028) (648 436) (576 576) (480))) 
(((866 522) (529 1122) (749 669) (732 588) (360)) 
((574 426) (203 874) (810  ØÈÐÎ 323))
((940 633) (494 762) (695 321) (1392 766) (726))) 
(((952 747) (488))
  ((924 697) (546 236) (234 184)))
 )
 
; Âçÿòü ïåðâûå N ýëåìåíòîâ ñïèñêà 
(defun carN (ls N)
  (if (= N 0) nil
    (if (null ls)
        (cons 0 (list (carN ls (- N 1))))
        (cons (car ls) (carN (cdr ls) (- N 1)))
    )
  )
)
 
; Óäàëèòü ïåðâûå N ýëåìåíòîâ ñïèñêà 
(defun cdrN (ls N)
  (if (= N 0) ls (cdrN (cdr ls) (- N 1)))
)
 
; Ïðåîáðàçîâàíèå êëþ÷à â ìàòðèöó n-ãî ïîðÿäêà
(defun KeyToMatrix (ls n)
  (if (null ls) nil
      (cons (carN ls n) (KeyToMatrix (cdrN ls n) n))
  )
)
 
; Ïðåîáðàçîâàíèå ñïèñêà ñèìâîëîâ àëôàâèòà ¹2 â ñïèñîê êîäîâ 
(defun CharToNum (ls)
  (cond
    ((null ls) nil)
    ((listp (car ls)) (cons (if (null (car ls)) 0 (CharToNum (car ls))) (CharToNum (cdr ls))))
    (t (cons (- (char-int (car ls)) 191) (CharToNum (cdr ls))))
  )
)
 
; Ïðåîáðàçîâàíèå ñïèñêà êîäîâ â ñïèñîê ñèìâîëîâ àëôàâèòà ¹2
(defun NumToChar (ls)
  (mapcar #'(lambda (c) (if (= c 0) #\space (int-char (+ c 191)))) ls)
)
 
; Òðàíñïîíèðîâàíèå ìàòðèöû (ìåíÿåì ìåñòàìè ñòðîêè è ñòîëáöû ìàòðèöû)
(defun Transpose (m)
  (if (null (car m)) nil
    (cons (mapcar 'car m) (transpose (mapcar 'cdr m)))
  )
)
 
; Âû÷èñëåíèå îïðåäåëèòåëÿ
(defun MatrixDet (m)
  (cond
    ((null m) 0)               ;ïóñòàÿ ìàòðèöà
    ((= 0 (caar m)) 0)         ;íîëü íà ãëàâíîé äèàãîíàëè
    ((null (cdr m)) (caar m))  ;â ìàòðèöå îäèí ýëåìåíò
    (t (let ((pivot (caar m))  ;m[1,1]
             (row1 (cdar m)))  ;(m[1,2], m[1,3], ...)
         (* pivot (MatrixDet (mapcar #'(lambda (row col1) ;äëÿ êàæäîé ñòðîêè
                       (let ((mult (/ col1 pivot)))
                        (mapcar #'(lambda (h k) 
                                  (- h (* mult k))) ;(- m[2,2] (* (/ m[2,1] m[1,1]) m[1,2]))
                                   row row1)))  
                       (mapcar #'cdr (cdr m))  ; ((m[2,2], m[2,3], ...)(m[3,2], m[3,3], ...)...)
                       (mapcar #'car (cdr m))) ;  (m[2,1], m[3,1], ...)
       )
    )
  )
)))
 
; Ïîëó÷åíèå ìàòðèöû m, â êîòîðîé ñòîëáöå n çàìåíåí âåêòîðîì-ñòîëáöîì v
(defun Replace-Col (m v n)
  (if (OR (< n 0) (> n (- (length m) 1))) nil
      (append (carN m n) (list v) (cdrN m (+ n 1))))
)
 
; Ðàñøèôðîâêà ãðóïïû ñèìâîëîâ g èñïîëüçóÿ ìåòîä Êðàìåðà
(defun Decrypt-Group (g KeyMatrix)
  (let ((main_det (MatrixDet KeyMatrix)) (res nil))
    (if (not (= 0 main_det))
        (for i from 0 to (- (length g) 1) do
          (setq res (append res (list (/ (MatrixDet (Replace-Col KeyMatrix g i)) main_det))))
        )
    )
    (mapcan #'(lambda (x) (and (not (equal 0 x)) (list x))) res) ;óäàëåíèå ëèøíèõ íóëåé
  )
)
 
; Ðàñøèôðîâêà ñëîâà
(defun Decrypt (word)
  (let ((KeyMtx (Transpose (CharToNum (KeyToMatrix (coerce "ÑÓÝÑÑÊÎÃÎ" 'list) 3))))) ; Ìàòðèöà êëþ÷à
    (One_Level (mapcar #'(lambda (x) (Decrypt-Group x KeyMtx)) word)))
)
 
;àíàëèç íà "ïîâðåæäåíèÿ"
(defun Filter_List (obj)
   (cond
               ((null obj) nil)
               ((atom obj) (Filter_List (list obj)))
               ((listp (car obj)) (cond
                                                         ((null (Filter_List (car  obj))) (Filter_List (cdr obj)))
                                                          (t (cons (Filter_List (car obj)) (Filter_List (cdr obj)))) 
                                             ))        
               ((SYMBOLP (car obj) ) (Filter_List(cdr obj)))
               (t (cons (car obj) (Filter_List (cdr obj))))
   )
) 
 
; Ïðèâîäèò âñå ýëåìåíòû ñïèñêà ê îäíîìó óðîâíþ èåðàðõèè
(defun One_Level (ls)
  (cond
    ( (null ls) nil )
    ( (atom ls) (list ls) )
    ( (listp ls) (append (One_Level (car ls)) (One_Level (cdr ls))) )
  )
)
 
; Ïðåîáðàçîâàíèå ñëîâà â ñïèñîê ãðóïï èç 4 áóêâû
(defun Format-Word (w)
  (if (null w) nil
      (cons (carN w 4) (Format-Word (cdrN w 4)))
  )
)
 
; Îáðàáîòêà âñåãî òåêñòà ñîîáùåíèÿ
(defun Process-Text (text)
  (if (null text) nil
      (append (Process-Sentence (car text)) (Process-Text (cdr text)))
  )
)
 
; Îáðàáîòêà îäíîãî ïðåäëîæåíèÿ òåêñòà
(defun Process-Sentence (s)
  (cond
    ((null s) '(#\.))
    ((listp (car s)) (append (process-word (car s)) (process-sentence (cdr s))))
    (t (process-sentence (cdr s)))
  )
)
 
; Îáðàáîòêà îäíîãî ñëîâà ïðåäëîæåíèÿ 
(defun Process-Word (w)
  (if (listp (car w)) (append '(#\space) (NumToChar (Decrypt (Format-Word (One_Level (Filter_List w))))))))
)
 
; Âûâîä ðåçóëüòàòà…
(list-to-delimited-string (Process-Text list) "")

Добавлено через 47 секунд
вот компиляция, исправьте ошибки и все
((((1062 709) (525 924) (583 486) (980 918) (424)) ((578 348) (349 712) (385 398) (660 445) (402 360) (360 300) ÇÓÍÄ) ((824 678) (424 1088) (727 496) (18 18) (15)) ((898 693) (443 398) (353 157)) ((384 271) (156 948) (576 420) ÏÎËÞ (662 388) (361 288) (245 78))) (((924 640) (516 1186) (867 623) (624 530) (366 632) (402 394)) ((650 612) (301) ÒÎÏÈ) ((862 714) (443 396) (396 330)) ((608 359) (364 448) (414 158)) ((328 281) (86 636) (466 336) (1102 688) (503 ÏÓÑÒ 1028) (648 436) (576 576) (480))) (((866 522) (529 1122) (749 669) (732 588) (360)) ((574 426) (203 874) (810 ØÈÐÎ 323)) ((940 633) (494 762) (695 321) (1392 766) (726))) (((952 747) (488)) ((924 697) (546 236) (234 184))))
>
CARN
>
CDRN
>
KEYTOMATRIX
>
CHARTONUM
>
NUMTOCHAR
>
TRANSPOSE
>
MATRIXDET
>
REPLACE-COL
>
DECRYPT-GROUP
>
DECRYPT
>
FILTER_LIST
> (FILTER_LIST list)
((((1062 709) (525 924) (583 486) (980 918) (424)) ((578 348) (349 712) (385 398) (660 445) (402 360) (360 300)) ((824 678) (424 1088) (727 496) (18 18) (15)) ((898 693) (443 398) (353 157)) ((384 271) (156 948) (576 420) (662 388) (361 288) (245 78))) (((924 640) (516 1186) (867 623) (624 530) (366 632) (402 394)) ((650 612) (301)) ((862 714) (443 396) (396 330)) ((608 359) (364 448) (414 158)) ((328 281) (86 636) (466 336) (1102 688) (503 1028) (648 436) (576 576) (480))) (((866 522) (529 1122) (749 669) (732 588) (360)) ((574 426) (203 874) (810 323)) ((940 633) (494 762) (695 321) (1392 766) (726))) (((952 747) (488)) ((924 697) (546 236) (234 184))))
>
ONE_LEVEL
> (ONE_LEVEL list)
(1062 709 525 924 583 486 980 918 424 578 348 349 712 385 398 660 445 402 360 360 300 ÇÓÍÄ 824 678 424 1088 727 496 18 18 15 898 693 443 398 353 157 384 271 156 948 576 420 ÏÎËÞ 662 388 361 288 245 78 924 640 516 1186 867 623 624 530 366 632 402 394 650 612 301 ÒÎÏÈ 862 714 443 396 396 330 608 359 364 448 414 ...)
>
FORMAT-WORD
> (FORMAT-WORD list)
(((((1062 709) (525 924) (583 486) (980 918) (424)) ((578 348) (349 712) (385 398) (660 445) (402 360) (360 300) ÇÓÍÄ) ((824 678) (424 1088) (727 496) (18 18) (15)) ((898 693) (443 398) (353 157)) ((384 271) (156 948) (576 420) ÏÎËÞ (662 388) (361 288) (245 78))) (((924 640) (516 1186) (867 623) (624 530) (366 632) (402 394)) ((650 612) (301) ÒÎÏÈ) ((862 714) (443 396) (396 330)) ((608 359) (364 448) (414 158)) ((328 281) (86 636) (466 336) (1102 688) (503 ÏÓÑÒ 1028) (648 436) (576 576) (480))) (((866 522) (529 1122) (749 669) (732 588) (360)) ((574 426) (203 874) (810 ØÈÐÎ 323)) ((940 633) (494 762) (695 321) (1392 766) (726))) (((952 747) (488)) ((924 697) (546 236) (234 184)))))
>
PROCESS-TEXT
> (PROCESS-TEXT list)
;; Error: Call to undefined function PROCESS-SENTENCE in PROCESS-TEXT

;; Returning to Top Level
>
PROCESS-SENTENCE
> (PROCESS-SENTENCE list)
;; Error: Call to undefined function PROCESS-WORD in PROCESS-SENTENCE

;; Returning to Top Level
>
PROCESS-WORD
> (PROCESS-WORD list)
;; Error: A numeric or character function was given an argument 171329/662 of the wrong type in NUMTOCHAR

;; Returning to Top Level
>
;; Error: A numeric or character function was given an argument (0 (0 NIL)) of the wrong type in MATRIXDET

;; Returning to Top Level
>
FORMAT-WORD
>

@Catstail · 17.10.2012, 20:34

Смотрю.

@M@ker · 17.10.2012, 21:15 **[ТС]**

ну что там, хоть что-нибудь подскажите

@Catstail · 17.10.2012, 22:34

Я все загрузил в LispWorks (у выражения, задающего список, не хватало закр. скобки. И у функции Process-Word одна скобка была лишняя. Код загрузился, но толком не работает.

Отсутствует функция list-to-delimited-string.

Такая отладка (без четкого понимания алгоритма) редко ведет к цели. Нужно вникать.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Catstail Супер-модератор 38162 / 21097 / 4306 Регистрация: 12.02.2012 Сообщений: 34,686 Записей в блоге: 14
	10.10.2012, 22:06
	Хотелось бы несколько больше пояснений на тему, как построена криптограмма 0

@M@ker -12 / 19 / 4 Регистрация: 17.12.2010 Сообщений: 355
	10.10.2012, 22:43 [ТС]
	Тема: Функциональное программирование на языке ЛИСП. Цель работы: Изучить основы программирования на языке ЛИСП. Получить практические навыки составления программ на ЛИСПе в функциональном стиле. Задание. Необходимо расшифровать криптограммы, поступающие с орбитальных спутников Марса. Криптограмма представлена в символьном виде, имеющем иерархическую структуру, поэтому для расшифровки использовать язык символьных вычислений - ЛИСП. Один спутник для шифрования исходного сообщения использует шифр Виженера-МГ, а другой шифр Виженера-АПМ. Радиограмма криптограммы, проходя сквозь просторы космоса, принимается центром управления Земли с ошибками, характер которых известен в предикативном виде. Предикат ошибки задает правило, что считать ошибочной символьной структурой в радиограмме, а что полезными данными криптограммы. Обязательные для выполнения пункты задания: 1. Выбрать индивидуальный вариант задания из соответствующей таблицы 2.1-2.5, согласно учебной группе (ПО-А, ПО-Б, ПО-В, ИС-А, ИС-Б) и номеру в журнале студентов. Список радиограмм приведен в таблице 2.6. Радиограмма - это криптограмма в виде S-выражения с избыточной для неё структурами и элементами, которые должны быть проигнорированными при истинности предиката ошибки. Вариант задания содержит следующую информацию: № п.п - номер варианта по журналу студентов; Шифр - метод шифрования криптограммы (мг - шифр Виженера-МГ, апм - шифр Виженера-АПМ); Ключ - параметры функции шифрования (для метода МГ - ключевое слово, для метода АПМ - ключевое слово и порядок матриц); № гам - номер гаммирования (1 или 2), только для шифра Виженера-МГ (название заголовка столбца - "№ гам"); Предикат ошибки - характеристическое отношение принадлежности части радиограммы к игнорируемому мусору (например: если-число (в ЛИСПе numberp), если-строка (в ЛИСПе stringp), если-список больше трех элементов, если-список вместо литеры, если-код элемента больше 100 и т.д.); Радио- грам. - Номер радиограммы - ссылка радиограмму из таблицы 2.6. Примечание: Результат представить в виде описания варианта задания. 2. Проанализировать формат радиограммы. Радиограмма отражает, без учета ошибочных структур, иерархию криптограммы: список самого верхнего уровня - это текст (Т), подсписки текста - это предложения (П), подсписки предложения - это слова (С), буквы (Б) слова приводятся перечислением элементов, а могут быть сгруппированы, как подсписки с фиксированным количеством элементов, а в конце слова все что осталось. Формат радиограммы: Т(П(С(все литеры))) или Т(П(С(Б(1..5 литеры) Б(остаток)))). Пример представления слова "СТЫКОВКА": (С Т Ы К О В К А) - простое перечисление букв в виде элементов списка; ((С Т Ы) (К О В) (К А)) - по три буквы, а остаток две буквы. Пример представления текста: "МАРС ОДИН ГОТОВ. СТЫКОВКА ПРОШЛА.": (((М А Р С) ( О Д И Н) (Г О Т О В)) ((С Т Ы К О В К А) (П Р О Ш Л А))) - перечисление; 13 ((((М А Р) (С)) ( (О Д И) (Н)) ((Г О Т) (О В))) (((С Т Ы) (К О В) (К А)) ((П Р О) (Ш Л А)))) - по три буквы в слове; ((((12 45 65) (67)) ((5 7 12) (45)) ((324 5 45) (435 5))) (((5 6 345) (6 62 23) (67 45)) ((17 28 76) (59 49 90)))) - по три элемента в слове для криптограммы шифра Виженера-АПМ . Примечание: Результат анализа представить в виде ответа: есть\нет группировка литер в слове криптограммы (для МГ и АПМ), сколько литер в группе (для МГ и АПМ), да\нет соответствует ли количество элементов в группе порядку матрицы ключа ((для АПМ)). 3. Реализовать на ЛИСПе расшифровку сообщения в среде Allegro CL Lite 3.0.1. Примечание: Результат представить в виде описания всех функций используемых в программе. 4. Применить функцию расшифровки радиограммы к индивидуальному варианту задания. Примечание: Привести расшифрованное сообщение. 5. Оформить отчет. Примечание: Результат предоставить в печатной форме и на подписанной дискете. 0

@Catstail Супер-модератор 38162 / 21097 / 4306 Регистрация: 12.02.2012 Сообщений: 34,686 Записей в блоге: 14
	10.10.2012, 22:48
	Понятно. Буду разбираться. 1

@M@ker -12 / 19 / 4 Регистрация: 17.12.2010 Сообщений: 355
	13.10.2012, 11:25 [ТС]
	Есть идеи ? 0

@Catstail Супер-модератор 38162 / 21097 / 4306 Регистрация: 12.02.2012 Сообщений: 34,686 Записей в блоге: 14
	13.10.2012, 22:26
	Отвлекался. В воскресенье займусь серьезно. 1

@M@ker -12 / 19 / 4 Регистрация: 17.12.2010 Сообщений: 355
	17.10.2012, 19:21 [ТС]
	получилось что-нибудь? 0

@Catstail Супер-модератор 38162 / 21097 / 4306 Регистрация: 12.02.2012 Сообщений: 34,686 Записей в блоге: 14
	17.10.2012, 19:27
	Пока не получается. Что-то не находится хорошего описания алгоритма. 0

@Catstail Супер-модератор 38162 / 21097 / 4306 Регистрация: 12.02.2012 Сообщений: 34,686 Записей в блоге: 14
	17.10.2012, 20:34
	Смотрю. 0

@M@ker -12 / 19 / 4 Регистрация: 17.12.2010 Сообщений: 355
	17.10.2012, 21:15 [ТС]
	ну что там, хоть что-нибудь подскажите 0

@Catstail Супер-модератор 38162 / 21097 / 4306 Регистрация: 12.02.2012 Сообщений: 34,686 Записей в блоге: 14
	17.10.2012, 22:34
	Я все загрузил в LispWorks (у выражения, задающего список, не хватало закр. скобки. И у функции Process-Word одна скобка была лишняя. Код загрузился, но толком не работает. Отсутствует функция list-to-delimited-string. Такая отладка (без четкого понимания алгоритма) редко ведет к цели. Нужно вникать. 0