#!/usr/bin/newlisp # count benchmark (set 'lc 0 'wc 0 'cc 0) (while (set 'line (read-line)) (inc 'lc) (inc 'wc (length (parse (trim line) "\\s+" 0))) (inc 'cc (+ (length line) 1))) ;; add back the line feed (println lc " " wc " " cc) (exit)