用中文写 Lisp，但我笑抽了

yibie · 2022 年8 月 30 日 14:20

kuanyui/zhongli-lang: 用中文寫壢斯波（Lisp）！

超好笑，我放一张图片上来：

Soul-Clinic · 2022 年8 月 30 日 18:14

既可以用中文定义函数，也可以定义macro是吧？
下一步：用表情符来写 ( :b)

MetroWind · 2022 年8 月 30 日 18:54

Missed opportunity:

(汽车 '(甲乙)) ;; => 甲

yibie · 2022 年8 月 31 日 02:29

哈哈哈哈哈哈

Soul-Clinic · 2022 年8 月 31 日 02:33

(remove-if-not #’爱我吗? 我爱的人-list)

cireu · 2022 年8 月 31 日 03:35

github.com

shirok/Gauche/blob/master/examples/japanize.scm

;;; -*- coding: utf-8 -*-
;;; This is just a joke.

(define-syntax λ
  (syntax-rules () ((_ args body ...) (lambda args body ...))))

(define-syntax 定義
  (syntax-rules (は)
    ((_ (f . args) body ...)
     (define (f . args) body ...))
    ((_ var val)
     (define var val))
    ((_ var は val)
     (define var val))))

(define-syntax もし
  (syntax-rules (ならば でなければ)
    ((_ test ならば then)
     (if test then))
    ((_ test ならば then でなければ else)

This file has been truncated. show original

;;; This is just a joke

TerryTsao · 2022 年8 月 31 日 06:42

(看我拉不拉黑你你试试看 #'爱我吗？ 我爱的人-list)

chinhant · 2022 年8 月 31 日 08:16

原作者還有一個瀏覽器插件，可惜沒有chrome的。

還有一個字典也不錯，萌典。

yibie · 2022 年8 月 31 日 08:35

关于 copy-as-org-mode 我提了 issue 问可否有 chrome 版本，但原作者对 chrome web store 的政策非常不满，「即便迁移对我来说很容易，但我也不想开发。」

yuzhou · 2022 年8 月 31 日 10:44

之前问过copy-as-org-mode能不能加org-protocol，作者说话不太友善

yibie · 2022 年9 月 1 日 01:23

嗯，可能是希望我们自己补完。