Pangram checker: Difference between revisions
Content deleted Content added
No edit summary |
m →{{header|REXX}}: elided saying a blank line from the output after the prompt. |
||
Line 2,154:
@abc= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' /*a list of all (Latin) capital letters*/
do forever;
say '──────── Please enter a pangramic sentence (or a blank to quit):'; say▼
▲ say '──────── Please enter a pangramic sentence (or a blank to quit):'
pull y /*this also uppercases the Y variable.*/
if y='' then leave /*if nothing entered, then we're done.*/
absent= space( translate( @abc, , y), 0) /*obtain a list of any absent letters. */
▲ if absent=='' then say '──────── Sentence is a pangram.'
else say "──────── Sentence isn't a pangram, missing: " absent
say
Line 2,172 ⟶ 2,168:
<pre>
──────── Please enter a pangramic sentence (or a blank to quit):
The quick brown fox jumped over the lazy dog. ◄■■■■■■■■■■ user input.
──────── Sentence isn't a pangram, missing: S
Line 2,178 ⟶ 2,173:
──────── Please enter a pangramic sentence (or a blank to quit):
The quick brown fox JUMPS over the lazy dog!!! ◄■■■■■■■■■■ user input.
──────── Sentence is a pangram.
|