blob: 2371583839465910b638d2bd8f9ee7a04035fd0d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
#lang racket
(provide get-lines
enumerate
repeat
split-list-by)
(define (repeat n e)
(let loop ((i 0) (ret '()))
(if (>= i n)
ret
(loop (+ 1 i) (cons e ret)))))
(define (trim-lines lines)
(if (= 0 (string-length (car lines)))
(trim-lines (cdr lines))
lines))
(define (get-lines fp)
(define lines
(let loop ((lines '()))
(define l (read-line fp))
(if (eof-object? l)
(reverse lines)
(loop (cons l lines)))))
(reverse (trim-lines (reverse (trim-lines lines)))))
(define (enumerate lst)
(let loop ((i 1) (ret '()) (remain lst))
(if (null? remain)
(reverse ret)
(loop (+ 1 i) (cons (list (car remain) i) ret) (cdr remain)))))
(define (split-list-by e lst . eq)
(define cmp (if (null? eq) equal? eq))
(let loop ((ret '())
(cur '())
(lst lst))
(if (null? lst)
(reverse (cons (reverse cur) ret))
(if (cmp e (car lst))
(loop (cons (reverse cur) ret) '() (cdr lst))
(loop ret (cons (car lst) cur) (cdr lst))))))
|
