You are viewing a single comment's thread. Return to all comments →
This? Input thanks to @abhiranjan
(define (read-threshold) (let ([x (read)]) x)) (define (read-list) (let ([x (read)]) (if (eof-object? x) (list) (cons x (read-list))))) (let ([t (read-threshold)] [l (read-list)]) (for ([x l]) (if (< x t) (printf "~a\n" x) #f)))
Seems like cookies are disabled on this browser, please enable them to open this website
Filter Array
You are viewing a single comment's thread. Return to all comments →
This? Input thanks to @abhiranjan