spacepaste

Paste details

reply | raw

  1.  
  2. (import (ice-9 rdelim)
  3. (ice-9 hash-table))
  5. (define (count-or-unicode>? a b)
  6. (let ((Na (car a))(Nb (car b)))
  7. (if (> Na Nb)
  8. #t
  9. (if (= Na Nb)
  10. (string<? (cdr a) (cdr b))
  11. #f))))
  13. (define (skip-whitespace port)
  14. (let ([ch (peek-char port)])
  15. (when (and (not (eof-object? ch)) (char-whitespace? ch))
  16. (read-char port)
  17. (skip-whitespace port))))
  19. (define (count-words port)
  20. (define (read-word port)
  21. (skip-whitespace port)
  22. (let ((line (read-delimited "\t" port)))
  23. (if (eof-object? line)
  24. #f
  25. (map (λ (x) (string-split x #\space))
  26. (string-split line #\newline)))))
  27. (define count (make-hash-table 100000))
  28. (define (add-word next)
  29. (unless (string-null? next)
  30. (hash-set! count next
  31. (1+ (hash-ref count next 0)))))
  32. (let loop ((next (read-word port)))
  33. (when next
  34. (for-each (lambda (wl)
  35. (for-each (lambda (w) (add-word w)) wl))
  36. next)
  37. (loop (read-word port))))
  38. (sort! ;; destructive sort to save memory
  39. (hash-map->list (lambda (key val) (cons val key)) count)
  40. count-or-unicode>?))
  42. (for-each
  43. (lambda (x) (format #t "~a\t~a\n" (cdr x) (car x)))
  44. (count-words (current-input-port)))
  45.  
Powered by spacepaste. Paste removal.