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 5:40





(define (hash-inc! h x (n 1))

  (hash-set! h x (+ (hash-ref! h x 1) n)))



(define (|>>3

ONE WORD: THE FORCED INDENTATION OF CODE. THREAD OVER|

         (in (current-input-port)))

  (parameterize ((current-input-port in))

    (do ((c (read-char) (read-char))

         (h (make-hasheqv)))

      ((eof-object? c) h)

      (when (char-lower-case? c)

        (hash-inc! h c)))))



(|>>3

ONE WORD: THE FORCED INDENTATION OF CODE. THREAD OVER|

 (open-input-string "hax my anus!"))

Newer Posts

C

1 Name: Jhonson 2011-03-09 5:06

4 Name: Anonymous 2011-03-09 5:40

Name: Jhonson 2011-03-09 5:06

Name: Anonymous 2011-03-09 5:40