fork download
  1. ;;Напишите функцию (range М N X), которая выдает список чисел,
  2. ;;больших X и расположенных между М и N включительно
  3.  
  4. (DEFUN range_list(m n c)
  5. (COND ((< c m) (range_list m n m))
  6. ((> c n) nil)
  7. (1 (CONS c (range_list m n (+ c 1))))
  8. )
  9. )
  10.  
  11. (DEFUN range(m n x)
  12. (range_list (+ x 1) n x)
  13. )
  14.  
  15. (PRINT (range 3 7 4))
Success #stdin #stdout 0.02s 10584KB
stdin
Standard input is empty
stdout
(5 6 7)