Функції рядків
Функції рядків
Тип документу: Реферат
Сторінок: 6
Предмет: Комп`ютерні науки
Автор: Олексій
Розмір: 8.8
Скачувань: 1006
(DEFUN prnum16 (num)
(SETQ res NIL)
(LOOP
((< num 16))
(SETQ tmp (DIVIDE num 16))
(SETQ num (CAR tmp) tmp (CDR tmp))
(IF (>= tmp 10) (SETQ tmp (ASCII (+ (- 65 10) tmp))))
(PUSH tmp res) )
(IF (>= num 10) (SETQ num (ASCII (+ (- 65 10) num))))
(PUSH num res)
(PACK res) )
3. ; (m1 y 7 y) -> (y yy yyy yyyy yyyyy yyyyyy yyyyyyy)
(DEFUN m1 (sym n list)
((ZEROP n) NIL)
(CONS (APPEND sym list) (m1 sym (- n 1) (PACK* sym list))) )
(SETQ res NIL)
(LOOP
((< num 16))
(SETQ tmp (DIVIDE num 16))
(SETQ num (CAR tmp) tmp (CDR tmp))
(IF (>= tmp 10) (SETQ tmp (ASCII (+ (- 65 10) tmp))))
(PUSH tmp res) )
(IF (>= num 10) (SETQ num (ASCII (+ (- 65 10) num))))
(PUSH num res)
(PACK res) )
3. ; (m1 y 7 y) -> (y yy yyy yyyy yyyyy yyyyyy yyyyyyy)
(DEFUN m1 (sym n list)
((ZEROP n) NIL)
(CONS (APPEND sym list) (m1 sym (- n 1) (PACK* sym list))) )