gistfile1.txt

;; -*- coding: utf-8 -*-
(use gauche.time)

(define last-mb   #`",(make-string 10000 #\\あ)ア")
(define middle-mb #`",(make-string 5000 #\\あ)ア,(make-string 5000 #\\あ)")
(define first-mb  #`"ア,(make-string 10000 #\\あ)")

(define last-sb   #`",(make-string 10000 #\\あ):")
(define middle-sb #`",(make-string 5000 #\\あ):,(make-string 5000 #\\あ)")
(define first-sb  #`":,(make-string 10000 #\\あ)")

(define-syntax do-time
  (syntax-rules ()
    [(_ s t) (format #t "~10a ~a\n" 's
                     (time-this 100000 (^[] (string-scan s t))))]))

(do-time last-mb   "ア")
(do-time middle-mb "ア")
(do-time first-mb  "ア")
(do-time last-sb   ":")
(do-time middle-sb ":")
(do-time first-sb  ":")