26 lines
914 B
Plaintext
26 lines
914 B
Plaintext
(defun bitwise (a b)
|
|
(io:format '"~p~n" (list (band a b)))
|
|
(io:format '"~p~n" (list (bor a b)))
|
|
(io:format '"~p~n" (list (bxor a b)))
|
|
(io:format '"~p~n" (list (bnot a)))
|
|
(io:format '"~p~n" (list (bsl a b)))
|
|
(io:format '"~p~n" (list (bsr a b))))
|
|
|
|
(defun d2b
|
|
(x) (integer_to_list x 2))
|
|
|
|
(defun bitwise
|
|
((a b 'binary)
|
|
(io:format '"(~s ~s ~s): ~s~n"
|
|
(list "band" (d2b a) (d2b b) (d2b (band a b))))
|
|
(io:format '"(~s ~s ~s): ~s~n"
|
|
(list "bor" (d2b a) (d2b b) (d2b (bor a b))))
|
|
(io:format '"(~s ~s ~s): ~s~n"
|
|
(list "bxor" (d2b a) (d2b b) (d2b (bxor a b))))
|
|
(io:format '"(~s ~s): ~s~n"
|
|
(list "bnot" (d2b a) (d2b (bnot a))))
|
|
(io:format '"(~s ~s ~s): ~s~n"
|
|
(list "bsl" (d2b a) (d2b b) (d2b (bsl a b))))
|
|
(io:format '"(~s ~s ~s): ~s~n"
|
|
(list "bsr" (d2b a) (d2b b) (d2b (bsr a b))))))
|