code See 8075’s gists · GitHub 使い方 Ubiquityでcommand-editorコマンドを実行。 開いたページの入力欄に↑のコードを貼りつける Ubiquityでameshコマンドを実行 かんたん！

λTシャツきていこうかしら

Schemeのmap系関数の引数の順序が好きになれない。 だいたいmapつかうときは無名関数をだらだらと書きはじめるわけで、関数が書きおわってからやっとリスト、という順番。 だいたいいつも、リストはmapを書き始める時点で変数にはいっていたりするか、簡単な…

久々にSchemeかいた。とりあえず正規表現なども使わずに超ナイーブに書き下してみた。ここからどう短かくしてゆこうか。エロと風俗情報満載 どう抜く？ (define (capitalize-words str) (define (capitalize port) (let1 c (read-char port) (cond ((eof-obj…