2011-03-04から1日間の記事一覧
8. int2bin, bin2int, make8 は本文中のものをそのまま使っているものとします。また chop9 は chop8 を 8->9 に変更しただけのものです。 parity :: [Bit] -> Bit parity = foldl bitadd 0 addparity :: [Bit] -> [Bit] addparity bits = bits ++ [parity b…
8. int2bin, bin2int, make8 は本文中のものをそのまま使っているものとします。また chop9 は chop8 を 8->9 に変更しただけのものです。 parity :: [Bit] -> Bit parity = foldl bitadd 0 addparity :: [Bit] -> [Bit] addparity bits = bits ++ [parity b…