#+title: 我的小玩意们 #+date: <2021-06-04 Fri 10:45> #+author: thebesttv 记录一下我都买了哪些好玩(或辣鸡)的东西。 #+begin_src elisp :exports results :results value drawer (setq tbt-gadgets '(("Bose QC35 ii (为了降低sb舍友的噪声,结果效果并不太好)" 1067 2021 06 03) ("NB 显示器支架" 160.5 2021 05 12) ("XBox Series S 手柄 (扳机键比较拉垮)" 577 2021 02 14) ("致钛 1T SSD" 698 2021 01 01) ("博皓冲牙器F17 (垃圾玩意,不到半年坏了好几次)" 226.53 2020 12 14) ("文石 Note 3" 3531.98 2020 10 21) ("韶音 AS600 骨传导耳机 (大概22年6月左右寄了)" 388 2020 07 25) ("英睿达 500G SSD" 389 2020 06 24) ("MOFT电脑支架 (真的方便又好用,吹爆🥰)" 98 2019 10 10) ("小米手环4" 168.98 2019 10 06) ("Redmi Note 8 Pro" 1799 2019 10 02) ("凉鞋" 178 2019 09 23) ("XBox Series S (西瓜皮 yyds; 双人成行好好玩)" 2399 2022 05 31) ("美的电水壶 (烧水比天然气的快多了)" 139 2022 06 27))) (defun get-elapsed-day (year month day) (/ (- (time-convert (current-time) 'integer) ; current time in seconds (time-convert (encode-time ; given time in seconds (make-decoded-time :second 0 :minute 0 :hour 0 :day day :month month :year year :zone 28800)) 'integer)) (* 24.0 3600))) ; seconds a day (let (result) (dolist (gadget tbt-gadgets result) (let ((name (cl-first gadget)) (price (cl-second gadget)) (year (cl-third gadget)) (month (cl-fourth gadget)) (day (cl-fifth gadget))) (setq result (concat result (format "- %s, %04d-%02d-%02d, 共 %.2f, 平均每天 %.2f\n" name year month day price (/ price (get-elapsed-day year month day)))))))) #+end_src