メモ

uniqOnly xs = [x | [x]<-[[z | z<-xs, z==y] | y<-xs]]

http://jijixi.azito.com/cgi-bin/diary/index.rb?date=20071022#p01

こういうのを見てると数学が好きじゃなくても楽しそうだなーと思う。