[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] sloooow (read)
From: |
Alain MELLAN |
Subject: |
[Chicken-users] sloooow (read) |
Date: |
Mon, 24 May 2004 22:32:15 -0700 |
All,
I made a small silly program to test the IOs, because it looked
sluggish, and tested against Bigloo 2.6a. This is what I get:
Bigloo: 1.290u 0.100s 0:01.40 99.2% 0+0k 0+0io 648pf+0w
Chicken: 12.980u 0.340s 0:13.33 99.9% 0+0k 0+0io 436pf+0w
that's fairly bad :-(
Any idea where all these cycles go?
Below is my test program (basically makes a *big* list, writes it to
disk and reads again):
----------->8-------------->8------------->8---------------
(define a (vector->list (make-vector 1000000 '())))
(define port (open-output-file "asdf.asdf"))
(write a port)
(close-output-port port)
(set! port (open-input-file "asdf.txt"))
(define b (read port))
(close-input-port port)
----------->8-------------->8------------->8---------------
- [Chicken-users] sloooow (read),
Alain MELLAN <=