You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
323 B
Racket
11 lines
323 B
Racket
7 years ago
|
#lang br
|
||
|
|
(require syntax/strip-context sugar/list)
|
||
|
|
(provide (all-defined-out) (all-from-out syntax/strip-context sugar/list))
|
||
|
|
|
||
|
|
(define (port->datums port)
|
||
|
|
(for/list ([datum (in-port read port)])
|
||
|
|
datum))
|
||
|
|
|
||
|
|
(define (number->digits num)
|
||
|
|
(for/list ([c (in-string (number->string num))])
|
||
|
|
(string->number (string c))))
|