Pangram checker: Difference between revisions
→{{header|NewLISP}}
Line 1,491:
<lang newlisp>
(context 'PGR)
(define (is-pangram? str)
(setf chars (explode (upper-case str)))
(setf is-pangram-status true)
(for (c (char "A") (char "Z") 1 (nil? is-pangram-status)) ;; For loop with break condition
(if (not (find (char c) chars))
(setf is-pangram-status nil)
Line 1,506:
(exit)
</lang>
=={{header|Nim}}==
| |||