1 files changed, 7 insertions(+), 2 deletions(-)

M rgr-pumpernickel.el

@@ 1,4 1,4 @@
-;;;; Hacking pumpernickel timing
+;;;; Hacking pumpernickel timing -*- lexical-binding: t -*-
 ;;;
 ;;; [created.  -- rgr, 20-Aug-23.]
 ;;;


@@ 36,7 36,8 @@ The dominant intervals correspond (so far) to 6 or 5 weeks."
     ;; The "bagel of the week" starts on Wednesday.  Go figure.
     (let* ((tail '("2022 Sep 21" "2022 Nov 02" "2022 Nov 30" "2023 Jan 11"
 		   "2023 Feb 22" "2023 Mar 29" "2023 May 17" "2023 Jun 21"
-		   "2023 Jul 26" "2023 Sep 06" "2023 Oct 18"))
+		   "2023 Jul 26" "2023 Sep 06" "2023 Oct 18" "2023 Dec 13"
+		   "2024 Jan 10" "2024 Feb 14"))
 	   (histogram-size 100)
 	   (histogram (make-vector histogram-size 0))
 	   (last nil))


@@ 74,3 75,7 @@ The dominant intervals correspond (so far) to 6 or 5 weeks."
 				      (rgr-format-days (+ last-day (car pair)))
 				      (/ (* (cdr pair) 100.0) n))))
 			(list (car hist) (car (cdr hist))))))))))
+
+;; (/ (rgr-days-between "2023 Dec 13" "2023 Oct 18") 7) 8
+
+(provide 'rgr-pumpernickel)