27 lines
631 B
Racket
27 lines
631 B
Racket
#lang curly-fn racket
|
|
|
|
(require threading
|
|
(only-in 2htdp/batch-io
|
|
read-lines))
|
|
|
|
(define (source-input n)
|
|
(let* ([filename (~a n #:min-width 2 #:align 'right #:left-pad-string "0")]
|
|
[path (string-append "src/" filename ".rkt")])
|
|
(read-lines path)))
|
|
|
|
(define srcs
|
|
(~>> (range 1 11)
|
|
(map (λ~>> source-input
|
|
(filter non-empty-string?)))))
|
|
|
|
(define src-lengths (map length srcs))
|
|
|
|
(define src-widths
|
|
(~>> srcs
|
|
(apply append)
|
|
(map string-length)
|
|
(sort _ <=)))
|
|
|
|
(define src-widths-string
|
|
(string-join (map number->string src-widths) ","))
|