From 92db8db9d74f6d40d7313283013cbf45c3ba1821 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 10 Aug 2020 15:15:13 +0200
Subject: Move some scripts to subdir.

---
 benchmark.scm | 59 -----------------------------------------------------------
 1 file changed, 59 deletions(-)
 delete mode 100644 benchmark.scm

(limited to 'benchmark.scm')

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))
-- 
cgit v1.2.3