関数型プログラミング言語Haskell Part34

[30 デフォルトの名無しさん 2021/12/31(金) 16:30:35.01 ID:aP8qPSMg]

>>29
wc5 = let
iterator [] = 0
iterator (0:1:xs) = 1 + (iterator xs)
iterator (x:xs) = iterator xs
in iterator . ((0::Int) :)

wc5 . map chkspand $ "0 hushjuh hhuj 89 546456"
5

上手く行きました
イテレータのパターンマッチ目からウロコ