fork(2) download
copy 
  1. ; array of integers
  2.  
  3. (define (f xs)
  4.   (let ((mn (* (apply min xs) 2)) (mx (/ (apply max xs) 2)))
  5.     (let loop ((xs xs) (lo 0) (hi 0))
  6.       (cond ((null? xs) (min lo hi))
  7.             ((< (car xs) mn) (loop (cdr xs) (+ lo 1) hi))
  8.             ((< mx (car xs)) (loop (cdr xs) lo (+ hi 1)))
  9.             (else (loop (cdr xs) lo hi))))))
  10.  
  11. (display (f '(4 5 3 8 3 7))) (newline)
Success #stdin #stdout 0.01s 50288KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2
https://ideone.com/sxBScO
language:
Scheme (guile 2.2.4)
created:
5 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!