7 lines
368 B
Text
7 lines
368 B
Text
#Used built-in StringTools package
|
|
is_pangram := proc(str)
|
|
local present := StringTools:-LowerCase~(select(StringTools:-HasAlpha, StringTools:-Explode(str)));
|
|
local alphabets := {"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"};
|
|
present := convert(present, set);
|
|
return evalb(present = alphabets);
|
|
end proc;
|