Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

C

Name: Jhonson 2011-03-09 5:06

Can you help me write a program that finds what lowercase symbols are used most in a binary file?

Name: Anonymous 2011-03-09 12:35

>>4
abusing parameters
using do for anything
not writing a port iterator
reinventing hashtable-update!

Bad Scheme Programmer! Bad!

(define* (|>>3 ONE WORD: THE FORCED INDENTATION OF CODE. THREAD OVER|

               (port (current-input-port)))

  ;; As always, I recommend Schemers use foof-loop

  (let ((h (make-eqv-hashtable)))

    (loop ((for char (in-port port)))

          (when (char-lower-case? char)

            (hashtable-update! h c add1 0)))

    h))

Newer Posts