2010-04-16から1日間の記事一覧

180度回転

講師をやっていると、メイン講師(教室前方)とサブ講師(教室後方) の2つの座席表が欲しくなる。 (defn room-rotate [coll] (reverse (for [x coll] (reverse x)))) こんなやり方しか思いつかなかった。

CommonLisp対訳rev

http://userweb.cs.utexas.edu/users/moore/publications/tutorial/rev3.html#slide0 を見て。Common Lisp (defun rev (x) (if (endp x) nil (append (rev (cdr x)) (list (car x))))) Clojure (defn rev [x] (if (empty? x) nil (concat (rev (rest x)) (li…

extendsとinの違い

私も最初、訳がわからなかった。 UMLにはこれの直接表現がないし。 /* * Example : extends vs in * *author: Kenichi Kobayashi */ abstract sig Human {} sig Man,Woman extends Human {} abstract sig Employee {} sig Sales,Engineer in Employee{} /* …