/
githubmirror
/
julia
Обзор
Документация
Войти
/
githubmirror
/
julia
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
src/bin2hex.scm
14 строк
388 B
Jameson Nash
convert scm code leading tabs to spaces
25 янв 2015, 03:39
25 янв 2015, 03:39
5732794
Код
Авторство
О чём код?
(define (read-u8) (io.read *input-stream* 'uint8)) (define modulo mod) (define display princ) (let loop ((b (read-u8)) (i 0)) (if (not (eof-object? b)) (begin (if (> i 0) (display ", ")) (display "0x") (display (number->string b 16)) (if (= 0 (modulo (+ 1 i) 16)) (newline)) (loop (read-u8) (+ 1 i))))) (newline)