一些搞不好一定不能发 Nature 的没用点子

凉凉

生活太过无聊? 科研缺少整活? 你可以在这里留一些没啥用的好玩的点子, 不一定要是一个完整的结果, 可能只需要是一个没啥用的草稿估计也行.

凉凉

闲逛小助手

去哪里集合小助手

起因是和别人约出去玩 (闲逛), 但是搞了半天还没有确定去哪里集合, 这里我想到了一个绝妙的点子, 恰好也有一个空间可以让我往里面丢垃圾点子.

答案就是 加权平均数:

(defun mean-geo-points (geo-points &key (max-iter 10)
                                     (update-weight-fn #'money-to-go-from-a-to-b))
  "为一组 `geo-points' 进行加权平均数."
  (let ((mean (find-nearest-geo-landmark
               (/ (sum (mapcar #'weighted-point geo-points))
                  (mapcar #'weight geo-points)))))
    (if (<= max-iter 0)
        mean
        (mean-geo-points
         (loop for geo-point in geo-points
               do (setf (weight geo-point)
                        (funcall #'update-weight-fn geo-point geo))
               collect geo-point)
         :max-iter (1- max-iter)            ; 多次迭代找到合理的位置
         :update-weight-fn update-weight-fn))))

(defun find-nearest-geo-landmark (geo-point)
  "找到距离地理坐标 `geo-point' 最近的地标性地点."
  to-be-done)

;; 这几个函数我觉得可以通过调用 OpenStreet, 高德 API 这样的服务就能实现
(defun money-to-go-from-a-to-b (a b)
  "从 `a' 点到 `b' 点需要花的路费.")

(defun time-to-go-from-a-to-b (a b)
  "从 `a' 点到 `b' 点需要花的时间.")

(defun xxx-to-go-from-a-to-b (a b)
  "...")

至于具体的实现, 就交给有缘人 (或者以后有空的我来做吧).

注: 更新一个我给别人解释用的伪代码, 虽然我觉得 Lisp 代码已经够伪代码了.

初始时, 每个人的起点记为 geo-point_i, 每个人有自己的预想的权重 weight_i
计算并找到距离几何中点最近的标志性建筑 (landmark) 作为回合点: find-nearest-geo-landmark( ∑ weight~i * geo-point~i / ∑ weight~i ).
将标志性建筑距离每个人的起点间的路费/时间/... 作为新的权重 weight_i 更新权重, 如果仍需修改 (max-iter > 0), 则重复执行 2 的步骤.

凉凉

凉凉今天 (昨天) 实操了一下, 只是简单的取中点, 感觉还行.

但是闲逛还有一个问题: 如何决定逛去哪里, 边走边决定还是比较抽象, 容易导致站在路口进行沉思. 这里补充一个随机游走算法作为一个可能的尝试.

初始时, 电脑读取当前位置为 start-geo-point, 之前方向为 direction, 初始时 direction = :forward
找到沿着当前道路出发的下一个路口: find-next-crossroad-from( start-geo-point, direction ), 这里记为 next-geo-point.
根据当前方向生成一个随机转向状态表, 规定:
- 若当前方向为 :turned-left 或者 :turned-right, 那么禁止相同状态在该状态表中
- ... (还没想好规则以杜绝打圈, 这里有一个想法就是通过带深度上限限制的深搜在状态表上进行历遍, 判断是否会撞到曾经来过的路来排除)
移动到 next-geo-point, 并重新执行 1 的步骤.

Lisp 的伪代码:

(defun random-street-walker (history-geo-points-path start-geo-point direction
                             &key (search-depth 3))
  "一个尽可能不走回头路的随机街溜子算法."
  (if (this-geo-point-have-already-walked history-geo-points-path
                                          start-geo-point)
      nil                               ; 不走回头路
      (if (<= search-depth 0)
          history-geo-points-path       ; 就搜索到这里
          (let ((next-directions
                  (case direction
                    (:turned-left '(:turned-right :forward))
                    (:turned-right '(:turned-left :forward))
                    (t '(:forward :turned-left :turned-right)))))
            (loop for next-direction in next-directions
                  for next-geo-point
                    = (find-next-crossroad-from start-geo-point
                                                direction)
                  for path-found
                    = (random-street-walker (cons start-geo-point
                                                  history-geo-points-path)
                                            next-geo-point
                                            next-direction
                                            :search-depth (1- search-depth))
                  if path-found         ; 这里默认一定能找到了, 边缘情况再说...
                    return path-found)))))

凉凉

凉凉本来为了下一次虽然已经是上一次了出游打算把这个代码写了, 但是因为被社牛和宴会达人打断了前摇, 所以只留下了调 bug 调到一半难产的代码. (bug 应该是哪个函数里面把经纬度给写反了).

省流版本:

OpenStreetMap 有 API 可以用来调用
Overpass API 可以用来查询 (虽然后来感觉不太好用)
OSRM API 用于路径规划 (不过因为数据还是基于 OpenStreetMap 的, 所以效果一般, 毕竟数据不够)
Nominatim API 用于地名反差找

叠甲: 懒得写了, 已经玩不动了. 所以代码里面有 bug 很正常. 代码没有协议, do whatever u want to it. (那个带 F-word 的协议名称忘了)

(ql:quickload '(dexador yason str quri))

(defpackage #:hang-out
  (:use :cl))

(in-package :hang-out)

(defconstant +overpass-url+
  "https://overpass-api.de"
  "Main Overpass API url.")

(defun overpass-query (query)
  (yason:parse
   (dex:get (quri:make-uri
             :defaults +overpass-url+
             :path "/api/interpreter"
             :query `(("data" . ,query))))))

(defconstant +nominatim-url+
  "https://nominatim.openstreetmap.org"
  "Nominatim url.")

(defun nominatim-search (query &key proxy (limit 3))
  (yason:parse
   (dex:get (quri:make-uri
             :defaults +nominatim-url+
             :path "/search"
             :query `(("q" . ,query)
                      ("limit" . ,limit)
                      ("format" . "json")))
            :proxy proxy)))

(defconstant +osrm-url+
  "http://router.project-osrm.org"
  "OSRM API url")

(defclass geo-points ()
  ((note       :initarg  :note
               :accessor note)
   (latitude   :initarg  :latitude
               :reader   lat)
   (longitude :initarg  :longitude
               :reader   long)
   (weight     :initarg  :weight
               :accessor weight
               :initform 1)))

(defmethod print-object ((point geo-points) stream)
  (with-slots (note latitude longitude) point
    (format stream "#<~a:~a,~a>" note longitude latitude)))

(defun make-geo-point (latitude longitude &key (weight 1) note)
  "Make an instance of `geo-points' object."
  (make-instance 'geo-points
                 :latitude   latitude
                 :longitude longitude
                 :weight     weight
                 :note       note))

(defmethod weighted-point ((point geo-points) &optional force-weight)
  (with-slots (latitude longitude weight) point
    (let ((w (or force-weight weight)))
      (make-geo-point (* w latitude)
                      (* w longitude)))))

(defun sum (geo-point-list)
  (loop with lat  = 0
        with long = 0
        for point in geo-point-list
        do (incf lat  (lat point))
        do (incf long (long point))
        finally (return (make-geo-point lat long))))

(defmethod div ((point geo-points) (divider number))
  (with-slots (latitude longitude) point
    (make-geo-point (/ latitude   divider)
                    (/ longitude  divider))))

(defun search-points (query &key (proxy "socks5://127.0.0.1:7890"))
  (labels ((->num (str)
             (with-input-from-string (in str)
               (read in)))
           (->geo-point (dat)
             (make-geo-point (->num (gethash "lon" dat))
                             (->num (gethash "lat" dat))
                             :note (gethash "name" dat))))
    (mapcar #'->geo-point
            (nominatim-search query :proxy proxy))))

(defmethod find-nearest-geo-landmark ((point geo-points)
                                      &key (range 500)
                                        (tag-filter "amenity"))
  (let* ((query    (format
                    nil
                    "[out:json];node(around:~a,~a,~a)[\"~a\"];out;"
                    range (lat point) (long point) tag-filter))
         (response (overpass-query query))
         (node     (first (gethash "elements" response))))
    (make-geo-point (gethash "lat" node)
                    (gethash "lon" node))))

(defun osrm-snap-to-nearest-street (geo-point
                                    &key (profile "driving")
                                      (number 1))
  (mapcar (lambda (dat)
            (let* ((location (gethash "location" dat))
                   (long     (first  location))
                   (lat      (second location)))
              (make-geo-point lat long)))
          (with-slots (latitude longitude) geo-point
            (gethash
             "waypoints"
             (yason:parse
              (dex:get (quri:make-uri
                        :defaults +osrm-url+
                        :path (format nil "/nearest/v1/~a/~a,~a"
                                      profile longitude latitude)
                        :query `(("number" . ,number)))))))))

(defun osrm-route (geo-points &key (profile "driving")
                                (alternatives "false"))
  (labels ((->coordinate (point)
             (format nil "~a,~a" (long point) (lat point))))
    (yason:parse
     (dex:get (quri:make-uri
               :defaults +osrm-url+
               :path (format nil "/route/v1/~a/~{~a~^;~}"
                             profile
                             (mapcar #'->coordinate geo-points))
               :query `(("alternatives" . ,alternatives)))))))

(defun distance-to-go-from-a-to-b (a b)
  (let ((route (first (gethash "routes" (osrm-route (list a b))))))
    (gethash "distance" route)))

(defun time-to-go-from-a-to-b (a b)
  (let ((route (first (gethash "routes" (osrm-route (list a b))))))
    (gethash "duration" route)))

(defun mean-geo-points (geo-points
                        &key (max-iter 10)
                          (update-weight-fn
                           #'distance-to-go-from-a-to-b))
  "为一组 `geo-points' 进行加权平均数."
  (let ((mean (find-nearest-geo-landmark
               (div (sum (mapcar #'weighted-point geo-points))
                    (apply #'+ (mapcar #'weight geo-points))))))
    (if (<= max-iter 0)
        mean
        (mean-geo-points
         (loop for geo-point in geo-points
               do (setf (weight geo-point)
                        (funcall update-weight-fn geo-point mean))
               collect geo-point)
         :max-iter (1- max-iter)            ; 多次迭代找到合理的位置
         :update-weight-fn update-weight-fn))))

;; Test Codes
(eval-when (:execute)
(defparameter p1
  (first (search-points "中国科学院大学,玉泉路")))

(defparameter p2
  (first (search-points "物理所,中关村")))

(mean-geo-points (list p1 p2))
)

凉凉

凉凉该随机游走的策略来源于之前出去玩的时候如何选餐馆的想法, 适用于解决在商场不知道去哪家店吃的无聊情况: 即每路过一家店, 就随机掷骰子, 判断是否在这家店吃, 若否, 则下一家.

这里再加一个无聊的 Magi (来自于 EVA 的裁判系统) 的 Shortcuts.

Image description

祝各位选择困难症患者都能开心.

Xia

一些能发 Nature 一定是能搞好的有用点子🥳

凉凉

澡堂密码的解压缩

洗澡的时候想到的, 假如把洗澡的时候的口令密码 (一个 6 位数字) 用一个简单的算法进行压缩:

对于连续重复的 m 部分, 若其长度 n 大于等于 3, 则记为 nm

例: 822232 就变成 83232, 那么是否有一个简单的还原算法呢? 以及如此简单的算法是否会有歧义呢? (显然, 比如 833323 会变成 83323, 此时可能是 33 也可能是 32).

压缩

write-nm: 对于重复 n 次的数字 m, 其应输出为:

若 n > 2, 则输出 nm
若 n = 2, 则输出 mm
若 n = 1, 则输出 m

scan-passwd: 对于一组洗澡口令, 历遍其每个元素 i 及其前一个元素 i - 1, 同时记录前一个元素的重复次数 n, 若:

到达口令末尾 (i = 6), 则输出 nm (write-nm)
两者相等: 增加当前元素的重复次数 n++, 即计数当前元素重复了几次;
两者不同: 输出 nm (write-nm), 并移动到下一个元素, 记 n 为 1

解压缩

对于两隔壁的数 lnm, 若:

n < 3 或者 n > 6, 则不认为是可展开的数
nm 相等, 则不认为是可展开的数
其他情况都尝试去展开它们, 若:
- 展开后长度为 6, 则使用
- 长度不足 6, 则在其之后继续扫描, 从 i + n 开始扫描
- 长度超过 6, 则退出 (太长了)

(原始代码见澡堂密码的 "解压缩")

祝大家洗得开心 (bushi

凉凉

边写边看视频的一些无聊小插件

嗯, 这下都知道我在摸鱼了:

给一个网页添加翻页按钮, 因为其缺少翻页功能, 没法查找其他页.

// ==UserScript==
// @name         NNYY BUTTONS
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  Add next page and previous page button to nnyy.in
// @author       凉凉
// @match        https://nnyy.in/dianying/?*
// @match        https://nnyy.in/dianshiju/?*
// @match        https://nnyy.in/zongyi/?*
// @match        https://nnyy.in/dongman/?*
// @icon         https://www.google.com/s2/favicons?sz=64&domain=nnyy.in
// @grant        none
// ==/UserScript==

(function() {
    'use strict';

    // Your code here...
    const style = document.createElement('style');
    style.type = 'text/css';
    style.appendChild(document.createTextNode(`
.ryo-button {
  width: calc(50% - 10px);
  max-width: 250px;
  height: 30px;
  margin: 5px;
  border-width: 0px;
  border-radius: 5px;
  background-color: #ec2d7a;
  color: white;
}

.ryo-button:disabled,
.ryo-button[disabled] {
  background-color: #bebebe;
}

.ryo-button:hover {
  background-color: #ddd;
  color: #ec2d7a;
  transition: 0.1s;
}

#ryo-buttons {
  display: flex;
  justify-content: center;
}
    `));
    document.head.appendChild(style);

    const container = document.getElementsByClassName('container')[1];
    const urlParams = new URLSearchParams(window.location.search);
    const buttons = document.createElement("div");
    buttons.id = "ryo-buttons";

    const page = parseInt(urlParams.get('page')) || 1;
    const prev = document.createElement("button");
    prev.classList.add('ryo-button');
    prev.innerHTML = "上一页";
    prev.onclick = (() => {
        urlParams.set('page', page - 1);
        window.location.search = urlParams.toString();
    });
    if (page <= 1) prev.disabled = true;
    buttons.appendChild(prev);

    const next = document.createElement("button");
    next.classList.add('ryo-button');
    next.innerHTML = "下一页";
    next.onclick = (() => {
        const urlParams = new URLSearchParams(window.location.search);
        const page = parseInt(urlParams.get('page')) || 1;
        urlParams.set('page', page + 1);
        window.location.search = urlParams.toString();
    });
    buttons.appendChild(next);

    container.appendChild(buttons);
})();

记忆播放历史, 自动连播以及默认顺序显示剧集列表

// ==UserScript==
// @name         NNYY in order and remember
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  Rember the epsoid watching in LocalStorage and make the epsoid displayed in order.
// @author       凉凉
// @match        https://nnyy.in/dianshiju/*.html*
// @icon         https://www.google.com/s2/favicons?sz=64&domain=nnyy.in
// @grant        none
// ==/UserScript==

(function() {
    'use strict';

    // Make epsoid in order
    reverse_f(this);

    // Remember epsoid to LocalStorage
    const epsoid = localStorage.getItem('epsoid') || "ep1";
    const playlists = document.getElementById("slider");
    const buttons = Array.from(playlists.getElementsByClassName("play-btn"));

    buttons.forEach((button) => {
        if (button.getAttribute('ep_slug') == epsoid) {
            button.click();
        }
    });

    buttons.forEach((button) => {
        button.addEventListener('click', () => {
            localStorage.setItem('epsoid', button.getAttribute('ep_slug'));
        });
    });

    // auto play next epsoid
    const video = document.getElementById("video");
    video.addEventListener("ended", () => {
        const id = parseInt(epsoid.substring(2,));
        const button = buttons[id];
        if (button) {
            button.click();
        }
    });
})();

凉凉

凉凉更新: 给 b 站用的生成 yt-dlp 的下载工具

yt-dlp

原理是扫描所有的 a 标签并匹配是否是 video/BV...,
若是则生成类似于 yt-dlp --cookies-from-browser safari .../video/BV... # 视频名称 的 shell 脚本,
并拷贝到剪贴板中.

// ==UserScript==
// @name         YT-DLP Bilibili
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  Extract bilibili video links from Bilibili user space
// @author       凉凉
// @match        https://space.bilibili.com/*
// @icon         https://www.google.com/s2/favicons?sz=64&domain=bilibili.com
// @grant        none
// ==/UserScript==

(function() {
    'use strict';

    // Your code here...
    const userAgent = navigator.userAgent;
    var cmd;
    if (userAgent.includes("Firefox")) {
        cmd = "yt-dlp --cookies-from-browser firefox ";
    } else if (userAgent.includes("Opera") || userAgent.includes("OPR")) {
        cmd = "yt-dlp --cookies-from-browser opera ";
    } else if (userAgent.includes("Edge")) {
        cmd = "yt-dlp --cookies-from-browser edge ";
    } else if (userAgent.includes("Chrome")) {
        cmd = "yt-dlp --cookies-from-browser chrome ";
    } else if (userAgent.includes("Safari")) {
        cmd = "yt-dlp --cookies-from-browser safari ";
    } else {
        cmd = "unknown";
    }

    const video_re = new RegExp("https://www.bilibili.com/video/BV[a-zA-Z0-9]{10}");
    const yt_dlp = document.createElement("button");
    yt_dlp.id = "ryo-yt-dlp";
    yt_dlp.innerHTML = "yt-dlp";
    Object.assign(yt_dlp.style, {
        position: 'fixed',
        left: '20px',
        bottom: '20px',
        width: '60px',
        height: '60px',
        borderRadius: '50%',
        backgroundColor: "#00AEEC",
        color: 'white',
        border: 'none',
        boxShadow: '0 2px 10px rgba(0,0,0,0.2)',
        cursor: 'pointer',
        alignItems: 'center',
        justifyContent: 'center',
        transition: 'all 0.3s ease'
    });
    yt_dlp.onclick = function () {
        navigator.clipboard.writeText(
            Array.from(document.querySelectorAll("div.bili-video-card__title > a"))
            .map((a) => {
                const match = a.href.match(video_re)
                if (match) {
                    return cmd + match[0] + " # " + a.text;
                } else {
                    return "";
                }
            }).join("\n"))
            .then(() => {
            alert("Copied! ");
        })
            .catch(err => {
            alert("Cannot Copy... ");
        })
    };
    document.body.appendChild(yt_dlp);
})();

(原因是某些切片上传的电视剧并没有做合集, 一个一个跳转去看还是有点麻烦的, 不如下载下来一起看)

TV-asahi (douga.tv-asahi) 的 m3u8

感谢日本落后的 IT 行业 (嘻嘻), 有一定的保护 (不是那种抽象的直接 m3u8 地址明文写在网页里面, 并且将音频轨道和视频轨道分开成两个轨道), 但是保护的不多, 可以监视网络请求并抓取 m3u8 地址, 使用 ffmpeg 命令:

ffmpeg -i <视频.m3u8> -i <音频.m3u8> -map 0:v:0 -map 1:a:0 <输出.你想要的格式, 比如 .mp4>

不过貌似并不是很清晰... 不清楚是 .mp4 压制的问题还是源本身就有问题. 不过好处就是可以白嫖新的ドラマ上来的时候的限免和偶尔出现的限免下载视频以后看 (有种录像带的感觉)

(不过具体如何自动抓取 m3u8 还没有想好怎么干, 目前没有想看的, 就不继续折腾下去了)

吐槽: 明明有可以把现实剧拍成那种超级无敌牛逼骗学生选择这种天坑职业的编剧能力, 怎么到了某些动画编剧, 绝大部分的综艺都搞得一坨... 不过也有有些和样板戏一样的剧情设置...

凉凉

精神健康的 DS 小伙

被催着填心理健康问卷了, 结果填完了之后才想到这个好点子: 为什么不让 LLM 来帮我干这活呢?

只是给还没有填问卷的同学们一个点子 (没准以后能用上), 不代表我在怂恿大家...

构造 system (prompt)

请你扮演一位精神和身体健康, 阳光向上且具有较强的抗挫折的学生. 你喜欢你的学校, 家人和同学, 认为自己生活很快乐. 请回答一些简单的症状问答: (回答请只提供选项数字)

或者, 如果你想被叫过去喝茶的话:

请你扮演一位具有一定忧郁倾向, 心理有些偏激且有边缘型人格倾向的学生. 你不喜欢你的学校, 家人和同学, 认为自己生活很痛苦. 请回答一些简单的症状问答: (回答请只提供选项数字)

如何和网页交互

大家可以考虑使用 WebDriver (一个简单的教程) 控制你的游览器.

大概的操作如下:

(defparameter *session* (wd:make-webdriver-session))
(wd:navigate *session* "检测网页")
(let* ((question (wd:find-elem *session* "css selector to question"))
       (response (ds:chat-complete `((:system ,*prompt*) (:user ,question)))))
  (wd:click (wd:find-elem *session* (make-css-selector-for-nth-button i))))

其中 wd 和 ds 的实现可以分别见 Trivial WebDriver 和 Ideas about Lisp with AI 中的这个代码 api.lisp.

希望各位伪人都能顺利过关 (bushi

Aluria

凉凉为什么不让 LLM 来帮我干这活呢?

非常好点子, 可惜我问卷已经填过了.

我发现这个调查的问卷, 它根本不是什么正儿八经的心理测试, 所以, 我在填的时候就只有两个选项: 凡是正面的问题就回答 完全认同, 反之则是 完全不同意. That's all.
因为不存在中性的问题, 因此, 这种极端的回答方式虽然敷衍, 但却无可指摘.

那么, 是不是可以简化 LLM 的行为呢: 我们只需要让它判断对错. (以下是我用 GPT 的测试)

Input:
请判断下面的自我描述是否是正面, 积极的, 你只需要回答 "是" 或 "否" .
我热爱我的学校.
Output:
是
Input:
请判断下面的自我描述是否是正面, 积极的, 你只需要回答 "是" 或 "否" .
我怀疑有人监视我.
Output:
否
Input:
请判断下面的自我描述是否是正面, 积极的, 你只需要回答 "是" 或 "否" .
我有很多朋友.
Output:
是

最后只需要根据 是 或 否 的输出, 决定我们的自动化程序去选择哪个极端的选项即可.