Welcome to the CHICKEN Scheme pasting service

slow with numbers added by iterrogo on Thu Sep 25 15:48:10 2014

(import chicken scheme extras)
(use miscmacros srfi-4)

(define v (make-u8vector 16000000 100))

(time
 (let ((pos 0)
       (mask-pos 0)
       (len (u8vector-length v)))
   (let loop ()
     (bitwise-xor 1 1)
     (modulo mask-pos 4)
     (set! pos (+ pos 1))
     (when (< pos len) (loop))))
 )
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the bot in #chicken:
Visually impaired? Let me spell it for you (wav file) download WAV