Skip to main content

Browse the archive

Revision 303ea5228fe67b15a7692952bd6d3deeb83b8509 authored by DilumAluthgeBot on 18 May 2023, 15:19:25 UTC, committed by Kristoffer on 27 May 2023, 19:36:59 UTC 
🤖 [backports-release-1.9] Bump the Pkg stdlib from 3ca88658d to 7276c7514 (#49877)
 
 
 
 
 1 parent   d175b27 
  
 
 
 
  
 
   Raw File             
 
 
   
   
 
 bin2hex.scm 
 
 
 
(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)

 
 
 
  
 
   
 
   
 
 
     
  back to top