mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-10 22:37:38 +02:00
WIP
This commit is contained in:
parent
56278989eb
commit
fe0abb2d3e
1 changed files with 14 additions and 8 deletions
|
@ -1,13 +1,19 @@
|
|||
(import (scheme base) (scheme write))
|
||||
|
||||
(write (make-bytevector 2 12)) ; =⇒ #u8(12 12)
|
||||
(write (bytevector 1 3 5 1 3 5)) ; =⇒ #u8(1 3 5 1 3 5)
|
||||
(write (bytevector)) ;=⇒ #u8()
|
||||
;(write (bytevector 1 3 5 1 3 5)) ; =⇒ #u8(1 3 5 1 3 5)
|
||||
;(write (bytevector)) ;=⇒ #u8()
|
||||
|
||||
(write (bytevector-u8-ref '#u8(1 1 2 3 5 8 13 21) 5)) ;=⇒ 8
|
||||
(write
|
||||
(let ((bv (bytevector 1 2 3 4)))
|
||||
(bytevector-u8-set! bv 1 3)
|
||||
bv)
|
||||
) ;=⇒ #u8(1 3 3 4)
|
||||
(write (bytevector-append
|
||||
(make-bytevector 1 1)
|
||||
(make-bytevector 2 2)
|
||||
(make-bytevector 3 3)
|
||||
))
|
||||
|
||||
;(write (bytevector-u8-ref '#u8(1 1 2 3 5 8 13 21) 5)) ;=⇒ 8
|
||||
;(write
|
||||
; (let ((bv (bytevector 1 2 3 4)))
|
||||
; (bytevector-u8-set! bv 1 3)
|
||||
; bv)
|
||||
;) ;=⇒ #u8(1 3 3 4)
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue