benchmark

Author: garlic0x1

benchmark/insert.lisp

@@ -0,0 +1,39 @@
+(in-package #:rope/benchmark)
+
+;; (progn
+;;   (sb-ext:restrict-compiler-policy 'speed 3 3)
+;;   (sb-ext:restrict-compiler-policy 'debug 0 0)
+;;   ;; (sb-ext:restrict-compiler-policy 'space 0 0)
+;;   (sb-ext:restrict-compiler-policy 'safety 0 0))
+
+
+(defparameter *readme*
+  (merge-pathnames "README.md" (asdf:system-source-directory :rope)))
+
+(defun print-time (time reps length)
+  (format t "rope size: ~a, ~a microseconds~%"
+          length
+          (* 1000000 (/ time reps))))
+
+(defmacro time* (&body body)
+  `(let ((time))
+     (sb-ext:call-with-timing
+      (lambda (&rest plist) (setf time (getf plist :real-time-ms)))
+      (lambda () ,@body))
+     (coerce (/ time 1000) 'float)))
+
+(defun benchmark-insert (&optional (reps 1000000))
+  (with-open-file (s *readme*)
+    (let* ((starting-rope (rope:split-rope (rope:make-rope s) 1000))
+           (rope starting-rope))
+      (dotimes (i 100)
+        (print-time
+         (time*
+          (dotimes (i reps)
+            (rope:insert-rope rope
+                              (random (rope:rope-length rope))
+                              "Hello, world!")))
+         reps
+         (rope:rope-length rope))
+        (force-output)
+        (setf rope (rope:concat-rope rope starting-rope))))))

benchmark/package.lisp

@@ -0,0 +1,2 @@
+(defpackage #:rope/benchmark
+  (:use #:cl))

rope.asd

@@ -20,6 +20,12 @@
               (print result)
               (assert (eql t stat)))))
 
+(asdf:defsystem #:rope/benchmark
+  :depends-on (#:rope)
+  :components ((:module "benchmark"
+                :components ((:file "package")
+                             (:file "insert")))))
+
 (asdf:defsystem #:rope/dev
   :depends-on (#:cl-dot #:rope)
   :components ((:module "dev"

rope.lisp

@@ -35,6 +35,18 @@
 ;; Utils ;;
 ;;-------;;
 
+(defun branch-weight (branch)
+  (rope-length (branch-left branch)))
+
+(defun leaf-short-p (leaf)
+  (>= *short-leaf* (rope-length leaf)))
+
+(defun strcat (a b)
+  (concatenate 'string a b))
+
+(defun make-leaf (string &optional length)
+  (make-instance 'leaf :string string :length (or length (length string))))
+
 (defgeneric make-rope (source)
   (:documentation "Create a new rope from a string, stream, or pathname.")
   (:method ((source rope))
@@ -43,7 +55,7 @@
     (labels ((read-leaves (&optional acc)
                (let* ((string (make-string *long-leaf*))
                       (length (read-sequence string source))
-                      (leaf (make-instance 'leaf :length length :string (subseq string 0 length))))
+                      (leaf (make-leaf (subseq string 0 length) length)))
                  (if (= *long-leaf* length)
                      (read-leaves (cons leaf acc))
                      (cons leaf acc)))))
@@ -57,19 +69,7 @@
       (if (<= *long-leaf* length)
           (concat-rope (make-rope (subseq source 0 (round length 2)))
                        (make-rope (subseq source (round length 2))))
-          (make-instance 'leaf :length length :string source)))))
-
-(defgeneric rope-weight (rope)
-  (:method ((rope leaf))
-    (rope-length rope))
-  (:method ((rope branch))
-    (rope-length (branch-left rope))))
-
-(defun leaf-short-p (leaf)
-  (>= *short-leaf* (rope-length leaf)))
-
-(defun strcat (a b)
-  (concatenate 'string a b))
+          (make-leaf source length)))))
 
 ;;-----------;;
 ;; Iteration ;;
@@ -175,7 +175,7 @@
   (:method ((rope leaf) index)
     (char (leaf-string rope) index))
   (:method ((rope branch) index)
-    (let ((weight (rope-weight rope)))
+    (let ((weight (branch-weight rope)))
       (if (< index weight)
           (index-rope (branch-left rope) index)
           (index-rope (branch-right rope) (- index weight))))))
@@ -212,7 +212,7 @@
             (make-rope (subseq (leaf-string rope) index))))
   (:method ((rope branch) index)
     (with-slots (left right) rope
-      (let ((weight (rope-weight rope)))
+      (let ((weight (branch-weight rope)))
         (cond ((= index weight)
                (values left right))
               ((< index weight)