fork(1) download
copy 
  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
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(5 6 7)
https://ideone.com/gEOXM
language:
Common Lisp (clisp 2.49.92)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!