fork download
copy 
  1. ; nth item in a linked list
  2.  
  3. (define (nth n xs)
  4.   (if (null? xs)
  5.       (error 'nth "out of range")
  6.       (if (zero? n) (car xs)
  7.           (nth (- n 1) (cdr xs)))))
  8.  
  9. (display (nth 0 '(0 1 2 3 4))) (newline)
  10. (display (nth 1 '(0 1 2 3 4))) (newline)
  11. (display (nth 2 '(0 1 2 3 4))) (newline)
  12. (display (nth 3 '(0 1 2 3 4))) (newline)
  13. (display (nth 4 '(0 1 2 3 4))) (newline)
Success #stdin #stdout 0.01s 7912KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0
1
2
3
4
https://ideone.com/U99jt9
language:
Scheme (chicken 4.13)
created:
4 years ago
visibility:
secret

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!