diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 15:15:13 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 15:15:13 +0200 |
commit | 92db8db9d74f6d40d7313283013cbf45c3ba1821 (patch) | |
tree | 139fe53fd375a9c367abc37039065d72d7e3fb9b /benchmark.scm | |
parent | Repair /today. (diff) | |
download | calp-92db8db9d74f6d40d7313283013cbf45c3ba1821.tar.gz calp-92db8db9d74f6d40d7313283013cbf45c3ba1821.tar.xz |
Move some scripts to subdir.
Diffstat (limited to 'benchmark.scm')
-rw-r--r-- | benchmark.scm | 59 |
1 files changed, 0 insertions, 59 deletions
diff --git a/benchmark.scm b/benchmark.scm deleted file mode 100644 index f0e2cbcf..00000000 --- a/benchmark.scm +++ /dev/null @@ -1,59 +0,0 @@ -(add-to-load-path "module") -(use-modules (util) - (util app) - (util config) - (vcomponent) - (vcomponent group) - (vcomponent datetime) - (datetime) - (srfi srfi-41) - (srfi srfi-41 util) - ) - -(load "config.scm") -((@ (vcomponent) init-app) (get-config 'calendar-files)) - -(define all-events (getf 'event-set)) -(define groups (group-stream all-events)) - -(define start #2020-06-01) -(define end #2020-07-01) - -(define (run-filter) - (stream->list (filter-sorted-stream (lambda (e) (event-overlaps? e start end)) - all-events))) - -(define (run-grouped) - (map group->event-list - (stream->list (get-groups-between groups start end)))) - -(define (calc-time start end) - (exact->inexact - (+ (- (car end) - (car start)) - (/ (- (cdr end) - (cdr start)) - #e1e6)))) - -(run-filter) -(run-grouped) - -(format #t "Starting timings~%") -(define t1 (gettimeofday)) -(do ((i 1 (1+ i))) - ((> i 1000)) - (run-grouped)) -(format #t "end first timings~%") -(define t2 (gettimeofday)) -(do ((i 1 (1+ i))) - ((> i 1000)) - (run-filter)) -(format #t "end second timings~%") -(define t3 (gettimeofday)) - -(format #t "t1 = ~a~%t2 = ~a~%" - (calc-time t1 t2) - (calc-time t2 t3)) - -(values (calc-time t1 t2) - (calc-time t2 t3)) |