29 lines
1.2 KiB
Text
29 lines
1.2 KiB
Text
/* NetRexx */
|
|
options replace format comments java crossref savelog symbols nobinary
|
|
|
|
A2Z = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
|
|
|
pangrams = create_samples
|
|
|
|
loop p_ = 1 to pangrams[0]
|
|
pangram = pangrams[p_]
|
|
q_ = A2Z.verify(pangram.upper) -- <= it basically all happens in this function call!
|
|
say pangram.left(64)'\-'
|
|
if q_ == 0 then -
|
|
say ' [OK, a pangram]'
|
|
else -
|
|
say ' [Not a pangram. Missing:' A2Z.substr(q_, 1)']'
|
|
end p_
|
|
|
|
method create_samples public static returns Rexx
|
|
|
|
pangrams = ''
|
|
|
|
x_ = 0
|
|
x_ = x_ + 1; pangrams[0] = x_; pangrams[x_] = 'The quick brown fox jumps over a lazy dog.' -- best/shortest pangram
|
|
x_ = x_ + 1; pangrams[0] = x_; pangrams[x_] = 'The quick brown fox jumps over the lazy dog.' -- not as short but at least it's still a pangram
|
|
x_ = x_ + 1; pangrams[0] = x_; pangrams[x_] = 'The quick brown fox jumped over the lazy dog.' -- common misquote; not a pangram
|
|
x_ = x_ + 1; pangrams[0] = x_; pangrams[x_] = 'The quick onyx goblin jumps over the lazy dwarf.'
|
|
x_ = x_ + 1; pangrams[0] = x_; pangrams[x_] = 'Bored? Craving a pub quiz fix? Why, just come to the Royal Oak!' -- (Used to advertise a pub quiz in Bowness-on-Windermere)
|
|
|
|
return pangrams
|