1だけ。 import Data.Char (digitToInt) import Data.List (foldl') asInt_fold xs | head xs == '-' = negate $ fold $ tail xs | otherwise = fold xs where fold xs = foldl' step 0 xs step acc x = 10 * acc + digitToInt x foldl, foldrはまだよくわか…