fork download
copy 
  1. ; your code goes here
  2. ; print square of list
  3.  
  4. (define (print-squares lst)
  5.   (if (null? lst)
  6.       (newline) ; finish with a newline
  7.       (begin
  8.         (display (* (car lst) (car lst)))
  9.         (display " ")
  10.         (print-squares (cdr lst)))))
  11.  
  12. (print-squares '(1 2 3 4 5 6))
Success #stdin #stdout 0.02s 10880KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1 4 9 16 25 36
https://ideone.com/SnZ97q
language:
Scheme (guile 2.2.4)
created:
1 day 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!