uniqOnly xs = [x | [x]<-[[z | z<-xs, z==y] | y<-xs]] http://jijixi.azito.com/cgi-bin/diary/index.rb?date=20071022#p01 こういうのを見てると数学が好きじゃなくても楽しそうだなーと思う。