fork download
copy 
  1. ; third biggest number
  2.  
  3. (define (third-biggest-number)
  4.   (let loop ((n 10) (xs (list)))
  5.     (cond ((positive? n)
  6.             (display "Enter a number: ")
  7.             (loop (- n 1) (cons (read) xs)))
  8.           (else
  9.             (display "The third biggest number is ")
  10.             (display (caddr (sort xs >))) (newline)))))
  11.  
  12. (third-biggest-number)
Success #stdin #stdout 0.02s 8120KB
comments (?)
stdin
copy 
14
23
102
97
29
4
19
85
53
111
stdout
copy 
Enter a number: Enter a number: Enter a number: Enter a number: Enter a number: Enter a number: Enter a number: Enter a number: Enter a number: Enter a number: The third biggest number is 97
https://ideone.com/H9Itwr
language:
Scheme (guile 2.2.4)
created:
6 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!