fork download 
  1. ; your code goes here
  2. (define (my-append L M)
  3.   (if (null? L) M
  4.       (cons (car L) (my-append (cdr L) M))))
  5.  
  6. (define (my-reverse L)
  7.   (if (null? L) '()
  8.       (my-append (my-reverse (cdr L)) (list (car L)))))
  9.  
  10. (display (my-append '(1 2 3) '(4 5)) )
  11. (newline)
  12. (display (my-reverse '(a b z (c d))) )
  13.  
Success #stdin #stdout 0.02s 10924KB
comments (?)
stdin 
Standard input is empty
stdout 
(1 2 3 4 5)
((c d) z b a)
https://ideone.com/0SAxoj
append and reverse of lists using car and cdr
language:
Scheme (guile 2.2.4)
created:
4 days 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!