Обpобка масивiв, Детальна інформація

((OR (NOT (ATOM ATM1)) (NOT (ATOM ATM2))) NIL)

((PLUSP N)

((NULL (FINDSTRING ATM1 (SUBLIST ATM2))) NIL)

(+ N (FINDSTRING ATM1 (SUBLIST ATM2 N))) )

((якщо ATM1 є пiдрядком ATM2)

(позицiя ATM1, на якiй воно вперше зустрiчається у ATM2) ) )

$ (FINDSTRING 'BC 'ABCDEFG) (FINDSTRING 'abc 'abdeabcde)

1 4

10. PRINT-LENGTH atom. Повертає кiлькiсть символiв в P - iменi атома з урахуванням значень контрольних змiнних *PRINT-BASE* та *PRINT-ESCAPE*.

$ (DEFUN PRINT-LENGTH (atm)

((ATOM atm) (LENGTH (UNPACK atm)))

$ (PRINT-LENGTH 'Mulisp)

6

$ (PRINT-LENGTH -156) $ (PRINT-LENGTH NIL)

4 3

Розглянемо функцiю, яка для заданого атома знаходить максимальну кiлькiсть лiтер, яка в ньому йде пiдряд. Повернути конс, який складається з лiтери та числа. Наприклад, для атома a22eeerty повернути (e . 3).

(DEFUN symmax (atm) $ (symmax 'a22eeerty)

((NOT (ATOM atm)) NIL) (e . 3)

(SETQ lst (UNPACK atm) endel (ASCII 0) endct 0) $ (symmax 'nil)

(LOOP (n . 1)

((NULL lst)) $ (symmax 1222334)

(SETQ el (CAR lst) ct 0) (\2 . 3 )

(LOOP

((NOT (EQL (CAR lst) el)))

(POP lst)

(INCQ ct) )

(IF (> ct endct) (SETQ endct ct endel el)) )

(CONS endel endct) )

Завдання

1. Написати функцiю: