Pangram checker: Difference between revisions
Add BCPL
Drkameleon (talk | contribs) (Undo revision 324740 by Drkameleon (talk)) |
Not a robot (talk | contribs) (Add BCPL) |
||
Line 656:
<pre>"The quick brown fox jumped over the lazy dog" is not a pangram
"The five boxing wizards jump quickly" is a pangram</pre>
=={{header|BCPL}}==
<lang bcpl>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.")
$)</lang>
{{out}}
<pre>The quick brown fox jumps over the lazy dog. -> yes
The five boxing wizards dump quickly. -> no</pre>
=={{header|Befunge}}==
| |||