Ben 4.5 olctum :)
CL-USER> (time
(do ((i 0 (+ i 1)))
((>= (- i 1) 10000) 'done)
(ignore-errors
(setf (aref *dest* i) (tr.gen.hb.hecele:hyphenate (aref
*test-data* i))))))
Evaluation took:
9.132 seconds of real time
9.052565 seconds of user run time
0.080005 seconds of system run time
[Run times include 0.476 seconds GC run time.]
0 page faults and
57,260,744 bytes consed.
DONE
CL-USER> (time
(do ((i 0 (+ i 1)))
((>= (- i 1) 10000) 'done)
(ignore-errors
(setf (aref *dest* i) (hyphenate-2 (aref *test-data* i))))))
Evaluation took:
1.959 seconds of real time
1.92012 seconds of user run time
0.004 seconds of system run time
[Run times include 0.104 seconds GC run time.]
0 page faults and
13,977,224 bytes consed.
DONE
Haldun.
Mehmet Yavuz Selim Soyturk wrote:
yaklasik 6.5 kat daha hizli calisiyor, fakat
hatalari bulamiyor. Sizin kod gelistirmeye daha acik gorunuyor. Mesela
pardon, 3.5 olacakti
_______________________________________________
cs-lisp mailing list
cs-lisp@cs.bilgi.edu.tr
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp