6 lines
238 B
Text
6 lines
238 B
Text
|
pangramQ[msg_] :=
|
||
|
|
Function[If[# === {}, Print["The string is a pangram!"],
|
||
|
|
Print["The string is not a pangram. It's missing the letters " <>
|
||
|
|
ToString[#]]]][
|
||
|
|
Complement[CharacterRange["a", "z"], Characters[ToLowerCase[msg]]]]
|