- 関数型プログラミング言語Haskell Part28 [転載禁止]©2ch.net
251 ：デフォルトの名無しさん[sage]：2016/04/02(土) 10:40:52.55 ID:HRtXuUOo - let {
p = (/='?');
t xs = takeWhile p xs;
d xs = drop 1 $ dropWhile p xs
} in map t $ takeWhile (not . null) $ iterate d
| - 関数型プログラミング言語Haskell Part28 [転載禁止]©2ch.net
252 ：デフォルトの名無しさん[sage]：2016/04/02(土) 10:44:33.90 ID:HRtXuUOo - let {
p = (/='?');
t xs = takeWhile p xs;
d xs = drop 1 $ dropWhile p xs
} in \ str -> map t $ takeWhile (not . null) $ iterate d str
|
|