RosettaCodeData/Task/Text-processing-1/NewLISP/text-processing-1-4.l
2024-10-16 18:07:41 -07:00

2 lines
107 B
Common Lisp

(setq len (apply max (clean zero? (map last all-readings))))
(println "Longest run of bad readings: " len)