fork(22) download
copy 
  1. ; a median-of-three killer sequence
  2.  
  3. (define (m3-killer n)
  4.   (if (odd? n) (error 'm3-killer "length must be even")
  5.     (let* ((k (/ n 2)) (ary (make-vector n #f)))
  6.       (do ((i 1 (+ i 1))) ((< k i) ary)
  7.         (when (odd? i)
  8.           (vector-set! ary (- i 1) i)
  9.           (vector-set! ary i (+ k i)))
  10.         (vector-set! ary (+ k i -1) (+ i i))))))
  11.  
  12. (display (m3-killer 20)) (newline)
Success #stdin #stdout 0.01s 8672KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
#(1 11 3 13 5 15 7 17 9 19 2 4 6 8 10 12 14 16 18 20)
https://ideone.com/FmC65N
language:
Scheme (guile 2.2.4)
created:
7 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!