とりあえず、asciiコードの32番から126番まで。 # encrypt $ perl -e'print+map{($a=ord getc)?($a>31&&$a<127)?chr(($a+$_-64)%95+32):chr($a):"",}unpack("C*","keyword")until eof()' # decrypt $ perl -e'print+map{($a=ord getc)?($a>31&&$a<127)?chr((…

paul grahamのdolistsがschemeにも欲しい。 >(dolists ((i '(1 2 3)) (j '(4 5 6))) (print (list i j))) (1 4) (2 5) (3 6) こんな感じのやつ。CLだとわだばlisperになるにあるように、 (defmacro dolists (pairs &body body) (let ((parms (mapcar (lambda…