Anonymous user
Pangram checker: Difference between revisions
→{{header|REXX}}: added/changed whitespace and comments, add more eyecatchers for terminal output, change the prompt message.
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
(→{{header|REXX}}: added/changed whitespace and comments, add more eyecatchers for terminal output, change the prompt message.) |
||
Line 1,648:
=={{header|REXX}}==
<lang REXX>/*REXX program checks to
@abc = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' /*a list of all (Latin) capital letters*/
do forever; say /*keep
pull y /*this also uppercases the Y
if y='' then leave /*if nothing entered, then we're done.
?=verify(@abc,y) /*
if ?==0 then say 'Sentence is a pangram.'
else say "Sentence isn't a pangram, missing:" substr(@abc,?,1)
say
end /*forever*/
say '───── PANGRAM program ended. ─────'
/*stick a fork in it, we're all done. */</lang>
{{out}}
<pre>
───── Please enter a pangramic sentence (or a blank to quit):
The quick brown fox jumped over the lazy dog.
───── Sentence isn't a pangram, missing: S
───── Please enter a pangramic sentence (or a blank to quit):
The quick brown fox JUMPS over the lazy dog!!!
───── Sentence is a pangram.
───── Please enter a pangramic sentence (or a blank to quit):
| |||