source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
(define (f n)
 (do ((d (do ((i (- n 1) (- i 1))
              (d '() (cons i d)))
             ((< i 0) d))
         (append (cddr d) (list (car d)))))
     ((null? (cdr d)) (car d))))
(display (f 123456789))

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 2:   hide show   clone   input   103 days 22 hours ago    Runtime error

  result: Runtime error     time: 0.04s    memory: 10832 kB     signal: -1

  input:

  (define (f n)
   (do ((d (do ((i (- n 1) (- i 1))
                (d '() (cons i d)))
               ((< i 0) d))
           (append (cddr d) (list (car d)))))
       ((null? (cdr d)) (car d))))
  (display (f 123456))

  output: no
  stderr:

  *** - EVAL: undefined function DEFINE
  
  

• # 1:   hide show   clone   input   103 days 22 hours ago    Runtime error

  result: Runtime error     time: 0.04s    memory: 10832 kB     signal: -1

  input: no
  output: no
  stderr:

  *** - EVAL: undefined function DEFINE