ふと思い立って、以前Arcを真似て書いた無名関数リーダーを再帰できるようにしてみた。 良い記号が思い付かないのでとりあえず ^ で。 xyzzy-lisp/brackets.l at master · youz/xyzzy-lisp · GitHub (defun bracket-reader (stream char) (declare (ignore c…

http://cadr.g.hatena.ne.jp/g000001/20101113/1289653556 http://cadr.g.hatena.ne.jp/lkozima/20101113/1289661114 をArcで。 (= *ym* '("2009-11" "2009-01" "2010-01" "2010-12" "2010-01" "2010-04" "2010-01" "2010-12" "2010-12" "2010-04")) (pr:sor…

http://www.kt.rim.or.jp/~kbk/zakkicho/10/zakkicho1010c.html#D20101030-5 http://www.kt.rim.or.jp/~kbk/zakkicho/10/zakkicho1010c.html#D20101031-2 より。 2の式は5の変形(2項ずつまとめてある)と分かったけど3, 4は全く知らなかったので調べてみたら…

http://shinh.skr.jp/m/?date=20100113#p06 http://route477.net/d/?date=20100117#p01を参考にしつつ (map writeb(ccc[loop(= m(drain:readb)w(+(pos 10 m)1)v(+ m)q `((,(pos 83 m),m)))(= p pop.q)(on n `(1 -1,w,-.w)(case(min(v:++ n p.0)m.n)71(_:p 1)…

人材獲得作戦・４ 試験問題ほか: 人生を書き換える者すらいた。 3時間きっちり考えた結果 maze.arc (= m (filechars "~/gists/maze_arc/maze.txt") ; or (drain:readc) w (+ 1 (pos #\newline m)) a (n-of len.m nil) (a:pos #\S m) '(0) d 0 route) (until …

もう半月以上経ってるけど祝Arc追加。色々書いてみて気付いた点とか適当に。 special syntax charactors (intrasymbol) 2以前はa.b.c => (a b c), a!b!c => (a 'b 'c)だったけどver 3でa.b.c => ((a b) c), a!b!c => ((a 'b) 'c)に変更。 ++.iが意図通りに展…

Google グループ Wanna play golf? (defn filter-collecting [predicate collector & lists] (lazy-seq (loop [lists lists out []] (if (empty? (first lists)) (reverse out) (let [heads (map first lists)] (if (apply predicate heads) (recur (map res…

shiroさんの発表見てて思いだしたAO Benchをちょっと改修。10秒切れた。 コンパイル時のnoteを見るにまだ最適化できてない箇所がわんさかあるのでもうちょっと頑張る。あとweb4r、サクっと動かせたは良いがレスポンスが異常に遅い時があるので忘れないうちに…