fork download
copy 
  1. ; your code goes here
  2. (define (square-evens lst)
  3.   (if (null? lst)
  4.       '()
  5.       (let ((x (car lst)))
  6.         (if (even? x)
  7.             (cons (* x x) (square-evens (cdr lst)))
  8.             (square-evens (cdr lst))))))
  9.  
  10. (display (square-evens '(1 2 3 4 5 6)))
  11.  
Success #stdin #stdout 0.02s 10800KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(4 16 36)
https://ideone.com/539q54
even squares code
language:
Scheme (guile 2.2.4)
created:
9 hours 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!