You are viewing a single comment's thread. Return to all comments →
(define (func) (let ((read-val (read))) (when (not (eof-object? read-val)) (write (abs read-val)) (newline) (func)))) (func)
Seems like cookies are disabled on this browser, please enable them to open this website
Update List
You are viewing a single comment's thread. Return to all comments →
lang racket
(define (func) (let ((read-val (read))) (when (not (eof-object? read-val))
(write (abs read-val)) (newline) (func)))) (func)