Learning racket

hangul-reading.rkt

#lang racket

(define hangul-data-file "src/racket-unihan/Unihan_Readings.txt")

(define (port-filter predicate)
  (define next-line
    (lambda (in)
      (define l (read-line in))
      (if (or (eof-object? l)
               (predicate l))
         l
         (next-line in))))
  next-line)

(define (hangul-filter l)
  (or (eq? (string-length l) 0)
        (not (eq? (string-ref l 0) #\#))))

(define r1 (call-with-input-file hangul-data-file
  (lambda (in)
    (for/list ([l (in-port (port-filter hangul-filter) in)]
               [n 30])
      l))))

#lang racket

(define hangul-data-file "src/racket-unihan/Unihan_Readings.txt")

(define (read-hash-line in)
  (define l (read-line in))
  (if (or (eof-object? l)
          (eq? (string-ref l 0) #\#))
      l
      (read-hash-line in)))

(call-with-input-file hangul-data-file
  (lambda (in)
    (for/list ([l (in-port read-hash-line)]
               [n 30])
      l)))````