blob: 40c6f6b4125d19b5d471590e6cf4b53979200c42 (
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
|
#lang racket/base
(provide get-lines
enumerate
repeat)
(define (repeat n e)
(let loop ((i 0) (ret '()))
(if (>= i n)
ret
(loop (+ 1 i) (cons e ret)))))
(define (get-lines fp)
(let loop ((lines '()))
(define l (read-line fp))
(if (eof-object? l)
(reverse lines)
(loop (cons l 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)))))
|
