Функції рядків, Детальна інформація
Функції рядків
(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))) )
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021