fork download
copy 
  1. (define (foo xs)
  2.   (cond ((null? xs) ()) ; Base case 1: The empty list
  3.         ((null? (cdr xs)) (cons (* 2 (car xs)) '())) ; Base case 2: The singleton
  4.         (else (cons (* 2 (car xs)) (cons (cadr xs) (foo (cddr xs))))))) ; Anything else
  5.  
  6. (display (foo '(3 4 5 6 7)))
Success #stdin #stdout 0.03s 4132KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(6 4 10 6 14)
https://ideone.com/MHIDmh
language:
Scheme (guile 2.2.4)
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!