Ben/Nujel - stdlib/binary.nuj

Ben (Win10) Symbol now get collectd and exit on heap fill a392d09 4 years ago 312 Commits

Raw

application/octet-stream • 486 B • 16 lines

; Nujel - Copyright (C) 2020-2021 - Benjamin Vincent Schulenburg
; This project uses the MIT license, a copy should be included under /LICENSE

;; Some functions manipulating binary date

[defun lognand [...l]
        "Returns the Nand of its arguments"
        [lognot [apply logand ...l]]]

[defun bit-set?! [i]
       [def mask [ash 1 i]]
       [λ [α] [not [zero? [logand α mask]]]]]

[defun bit-clear?! [i]
       [def mask [ash 1 i]]
       [λ [α] [zero? [logand α mask]]]]

Ben / Nujel