Pangram checker: Difference between revisions
Content added Content deleted
(Replaced PowerShell with multiple, simpler examples) |
|||
Line 1,487: | Line 1,487: | ||
Bored? Craving a pub quiz fix? Why, just come to the Royal Oak! [OK, a pangram] |
Bored? Craving a pub quiz fix? Why, just come to the Royal Oak! [OK, a pangram] |
||
</pre> |
</pre> |
||
=={{header|NewLISP}}== |
|||
<lang newlisp> |
|||
(context 'PGR) |
|||
(define (is-pangram? str) ;; Poorly optimized |
|||
(setf chars (explode (upper-case str))) |
|||
(setf is-pangram-status true) |
|||
(for (c (char "A") (char "Z") ) |
|||
(if (not (find (char c) chars)) |
|||
(setf is-pangram-status nil) |
|||
) |
|||
) |
|||
is-pangram-status |
|||
) |
|||
(context 'MAIN) |
|||
(println (PGR:is-pangram? "abcdefghijklmnopqrstuvwxyz")) ;; Return true |
|||
(println (PGR:is-pangram? "abcdef")) ;; Return nil |
|||
(exit) |
|||
</lang> |
|||
=={{header|Nim}}== |
=={{header|Nim}}== |