[Кулик Алексей aka kpblc]

Известно, что многие вещи удобно хранить как сумму некоторых битов (яркий пример тому - osmode).
Пока что у меня получилось следующее:

Код:

[Выделить все]

 (defun _eval-get-bit-summ (value bits /)
                                ;|
*    Получает список битов числа.
*    Параметры вызова:
	value		проверяемое значение. Неотрицательное целое.
	bits		список возможных битов. Можно неотсортированный.
*    Примеры вызова:
(_eval-get-bit-summ 129 '(1 2 4 8 16 32 64 128 2048 4096)) 	; '(128 1)
(_eval-get-bit-summ 30 '(1 2 4 8 16 32 64 128 2048 4096)) 	; '(16 8 4 2)
|;
  (vl-remove nil
             (mapcar
               (function
                 (lambda (x / tmp)
                   (if (and (/= value 0)
                            (>= value x)
                            (>= (rem x value) 0)
                            ) ;_ end of and
                     (setq tmp   x
                           value (- value x)
                           ) ;_ end of setq
                     ) ;_ end of if
                   tmp
                   ) ;_ end of lambda
                 ) ;_ end of function
               (vl-sort bits '>)
               ) ;_ end of mapcar
             ) ;_ end of vl-remove
  ) ;_ end of defun

Сильно подозреваю, что код неоптимален.
P.S. Пока нигде готового решения не искал, каюсь...

[ShaggyDoc]

Попробуй применить последовательно для элементов списка такую простую функцию:

Код:

[Выделить все]

 (defun ru-match-is-bit-in-flag (val flag)
    ;; (ru-match-bit-list 127)  => (64 32 16 8 4 2 1)  
    ;; (ru-match-is-bit-in-flag  8 127) => T   
    ;; (ru-match-is-bit-in-flag  128 127) => nil   
    (= (logand val flag) val)
) ;_ end of defun

или просто logand, если именно списком значений нужно

[Vov.Ka]

думаю, как конечный результат, тебе нужен список переключателей, а не сумма возможных битов

Код:

[Выделить все]

 
(defun vk_Dec2Bin (Dec)
  (if (< Dec 2)
    (list Dec)
    (append (vk_Dec2Bin (/ Dec 2)) (list (rem Dec 2)))
  )
)
;;;и проверяешь типа
(if (= 1 (nth BitNum (reverse (vk_Dec2Bin BitSum))))
    (progn)
)

[Кулик Алексей aka kpblc]

Спасибо! Извините, что не сразу ответил.
ShaggyDoc, конечно же, logand! И ведь разбирался же я с ним, и как мог забыть? Спасибо!
Vov.Ka, благодарю, интересное решение!

[VVA]

Я использую такую ф-цию

Код:

[Выделить все]

(defun bitset (A B)
  ;;; A - число сумма битов
  ;;; B - проверяемый бит (два в степени проверяемого бита)
  ;;; (bitset (+ 4 2) 4) ;_T
  (= (boole 1 A B) B))

Использование

Код:

[Выделить все]

(setq opt (+ 1 4 16))
(bitset opt 1) ;_ T
(bitset opt 2) ;_ nil
(bitset opt 4) ;_ T
(bitset opt 8) ;_ nil
(bitset opt 16) ;_ T
(bitset opt 32) ;_ nil