Nonogram solver: Difference between revisions

m
→‎{{header|Common Lisp}}: fix portability edge-case for bizarre character encodings
(Changed the way to initialize using an algorithm derived from that of Java/Kotlin/Go.)
m (→‎{{header|Common Lisp}}: fix portability edge-case for bizarre character encodings)
Line 693:
 
(defun parse-word (word)
(map 'list (lambda (c) (1+- (digit- (char-codep c 36) (char-code #\A))10)) word))
 
(defun parse-line (line)
Anonymous user