18 lines
282 B
Plaintext
18 lines
282 B
Plaintext
!import "base" !Local
|
|
!import "list" !Local
|
|
|
|
bytesNil? = emptyList?
|
|
|
|
bytesHead =
|
|
matchList nothing (h _ : just h)
|
|
|
|
bytesTail =
|
|
matchList nothing (_ r : just r)
|
|
|
|
bytesLength = length
|
|
bytesAppend = append
|
|
bytesTake = take
|
|
bytesDrop = drop
|
|
bytesSplitAt = splitAt
|
|
bytesEq? = equal?
|