Ben/Nujel - stdlib/bitmanip.nuj

Ben (X13/Void) [list/sort] now defauls to [list/merge-sort] 406e493 3 years ago 392 Commits

Raw

application/octet-stream • 478 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