Mathematica入门习题[4]–Reap与Sow的使用和字符串匹配

第四题

第一问可以看一下函数Reap和Sow的使用

Reap[
Do[If[Mod[i, 21] == 0, Sow[i]], {i, 100, 999}]
][[2, 1]]
Length[%]

s = "1sacAsdSfSfffIJIjsjaadssANsJAnja";
StringReplace[s, RegularExpression["[A-Z]"] -> ""]