2007-08-30から1日間の記事一覧
早く起きてしまったので解いた。 otherList :: (Eq a) => [a] -> [a] otherList (x:xs) = [ y | y<-xs , y /= x ] quasiHomo1 :: (Eq a) => [a] -> Bool quasiHomo1 = (== 1) . length . otherList quasiHomo2 :: (Eq a) => [a] -> Bool quasiHomo2 xs = (==…
早く起きてしまったので解いた。 otherList :: (Eq a) => [a] -> [a] otherList (x:xs) = [ y | y<-xs , y /= x ] quasiHomo1 :: (Eq a) => [a] -> Bool quasiHomo1 = (== 1) . length . otherList quasiHomo2 :: (Eq a) => [a] -> Bool quasiHomo2 xs = (==…