[Zaghim]

Друзья, подскажите как узнать, что число четное, т.е. я делю свое число на 2.0 и получаю в ответ, например, 99/2.0 = 44.5, 99,5/2.0 = 44.75, 100/2.0 = 50.0, делить числа буду в цикле, шаг изменения числа 0.5. Из этогой кучи мне нужно только четное число, т.е., которое делится на 2 без остатка. Как можно это сделать по-быстрому не перебирая ответ по символам и анализирую цифры после точки? Если так нельзя, то подскажите код перебора ответа...непонятно как делать(((

[Do$]

Четными и нечетными могут быть только целые числа, так что первая проверка - целое число или нет:

Код:

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

(= (type num) (quote int))

Второе-четное число кратно 2:

Код:

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

(= (* 2 (/ num 2)) num)

Итого:

Код:

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

(defun evenp (num)
  (and (= (type num) (quote int))
       (= (* 2 (/ num 2)) num)
  ) ;_ end of and
) ;_ end of defun

[dyr]

Делится на 2 без остатка.

[TararykovDG]

Сообщение от Do$ Четными и нечетными могут быть только целые числа

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

Код:

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

(defun evenp (num)
  (= (rem num 2) 0) ;_ end of and
) ;_ end of defun

[Disney]

Описание функции rem
Если с англицким туго

[VVA]

Еще вариант

Код:

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

;;Возвращает T если число четное
(defun isEven ( num )(zerop(logand num 1)))
(isEven 22) ;->T
(isEven 33) ;->Nil

[ShaggyDoc]

Еще:

Код:

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

(defun ru-match-is-even	(i)
    ;;(ru-match-is-even 2) T
    ;;(ru-match-is-even 123) nil   
    ;;(ru-match-is-even 0) T   
    ;;(ru-match-is-even -1) nil   
    ;;(ru-match-is-even -2) T   
    (zerop (rem i 2))
)

[Елпанов Евгений]

необходимо обратить внимание на происхождение тестового числа, возможно оно не целое, например имеет погрешность в десятом знаке после запятой. На этот случай, стоит добавить некоторое округление, а уже потом проверку. Например безобидное выражение:

Код:

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

(rtos (- 100.1 4.1) 2 20)

возвращает совсем не целое число "96.00000000000001"

[Zaghim]

В общем я как всегда извратился)

Код:

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

(setq data (rtos XYZtest 2 3))
      (setq maxs  (strlen data)
	    count 1
	    chrct 1
      );setq
      (while (< count maxs)
	(if (/= "." (substr data count 1))
	  (setq chrct (1+ chrct))
	  (setq	numb  (atof (substr data (1+ (- count chrct)) chrct))
		dlist (append dlist (list numb))
		chrct 1
	  );setq
	);if
	(setq count (1+ count))
      );while
      (setq numb  (atof (substr data (1+ (- count chrct))))
	    dlist (append dlist (list numb))
      );

      (setq dlist1 (nth 0 dlist))
      (if (= numb dlist1)
	(progn
          (setq zskl (nth 0 zskl))
	  (setq zosi (list zskl riskl))
	  (command "line" risdlo zosi "")
	)  
      )

В общем имея высотную отметку делим ее на 2 и потом смотрим на окончание если оно равно целой чайти, то значт оно четное, если не равно значит нет))))))