時間: 2007 年度冬学期 月曜日午前 8:30 -- 10:00
場所: 工学部 6 号館 2 階 63 講義室
中間レポートの課題を解くときに参考してみてください。norm :: VInt -> VInt norm = strep . addCarry . foldr carry [0] where carry :: Bigit -> VInt -> VInt carry x (c:xs) = (x+c) `div` b : (x+c) `mod` b : xs addCarry :: VInt -> VInt addCarry (c:xs) = if (-1 <= c) && (c < b) then c : xs else addCarry (c `div` b : c `mod` b : xs)