28 lines
667 B
Text
28 lines
667 B
Text
get "libhdr"
|
|
|
|
// Test if s is a pangram. The ASCII character set is assumed.
|
|
let pangram(s) = valof
|
|
$( let letters = vec 25
|
|
for i=0 to 25 do letters!i := false
|
|
for i=1 to s%0 do
|
|
$( let c = (s%i | 32) - 'a'
|
|
if c >= 0 & c < 26 then
|
|
letters!c := true
|
|
$)
|
|
for i=0 to 25 unless letters!i resultis false
|
|
resultis true
|
|
$)
|
|
|
|
// Display s and whether or not it is a pangram.
|
|
let check(s) be
|
|
$( writes(s)
|
|
writes(" -> ")
|
|
test pangram(s)
|
|
then writes("yes*N")
|
|
else writes("no*N")
|
|
$)
|
|
|
|
let start() be
|
|
$( check("The quick brown fox jumps over the lazy dog.")
|
|
check("The five boxing wizards dump quickly.")
|
|
$)
|