Pangram checker: Difference between revisions
→{{header|NewLISP}}
Line 1,490:
=={{header|NewLISP}}==
<lang newlisp>
(context 'PGR) ;; Switch to context (say namespace) PGR
(define (is-pangram? str)
(setf chars (explode (upper-case str))) ;; Uppercase + convert string into a list of chars
(setf is-pangram-status true) ;; Default value
(for (c (char "A") (char "Z") 1 (nil? is-pangram-status)) ;; For loop with break condition
(if (not (find (char c) chars)) ;; If char not found in list, "is-pangram-status" become "nil"
(setf is-pangram-status nil)
)
)
is-pangram-status ;; Return current value
)
(context 'MAIN) ;; Back to MAIN context
;; - - - - - - - - - -
| |||