fork download
copy 
  1. ; your code goes here
  2. (define (sum-list lst)
  3.   (define (helper lst acc)
  4.     (if (null? lst)
  5.         acc
  6.         (helper (cdr lst) (+ (car lst) acc))))
  7.   (helper lst 0))
  8.  
  9. (display (sum-list '(1 2 3 4)))
Success #stdin #stdout 0.01s 10704KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
10
https://ideone.com/DFDfbP
sum lst using tail recursion
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!