#lang pycket
;; The Bubble sort benchmark from Strickland et al 2012
(define SIZE (string->number (vector-ref (current-command-line-arguments) 0 )))

(define vec (make-vector SIZE))

(define (bubble-sort vec)
  (define SIZE-1 (- SIZE 1))
  (if (time (let loop ([swapped? #f] [i 0])
        (if (= i SIZE-1)
            swapped?
            (let ([a (vector-ref vec i)]
                  [b (vector-ref vec (+ 1 i))])
              (if (> a b)
                  (begin
                    (vector-set! vec i b)
                    (vector-set! vec (+ 1 i) a)
                    (loop #t (+ i 1)))
                  (loop swapped? (+ 1 i)))))))
      (bubble-sort vec)
      #f))
(let loop ([i 0])
  (if (< i SIZE)
      (begin
        (vector-set! vec i (- SIZE i))
        (loop (+ 1 i)))
      #f))

(time (bubble-sort vec))
;(bubble-sort vec)