2009-05-22から1日間の記事一覧
破壊的に更新する (define Y! (lambda (index . metas) (let ((table (map (lambda (meta) (apply meta metas)) metas))) (let ((funcs (map car table)) (settbl (map cdr table))) (map (lambda (setlst) (let loop ((curfs funcs) (curss setlst)) (if (a…