$式: S式にHaskellの$を持ち込んで括弧が自動で閉じるようにしてみた - Qiita

(define (partition pred lis) (let recur ((lis lis)) (if (null-list? lis) (values lis lis) (let ((elt (car lis)) (tail (cdr lis))) (receive (in out) (recur tail) (if (pred elt) (values (if (pair? out) (cons elt in) lis) out) (values in (if (pair? in) (cons elt out) lis))))))))) ; ; ↓ ↑ ; $ define $ partition pred lis $ let recur $ $ lis lis $ if $ null-list? lis $ values lis lis $ let $ $ elt $ car

[Haaaa_N]

あーなんかM式みたいですね…

[yhara]

“Gaucheの組み込みで$という手続きがあります。”