Использование меньше, чем в программе CLIPS

Я пытаюсь вернуть сообщение, если пользователь вводит значение в определенном диапазоне. Возможно ли это на КЛИПСАХ? Кроме того, система должна принимать значения только с шагом 10.

If the user types in a number less or equal to 10 it should say "A"
If the user types in a number greater than 10 and less than 40 it should say "B" 
- so it should only accept values 10,20,30,40

Это код, который у меня есть на данный момент:

(defrule b-a1
(b-a "a")
=>
(bind ?reply (get-text-from-user "How many points did you achieve?"))
(assert (b-a1 ?reply )))

(defrule b-a2
(b-a1 <= 10)
=>
(assert (conclusion "A")))

(defrule b-a2
(10 < b-a1 < 40)
=>
(assert (conclusion "B")))

Любые идеи о том, как я могу заставить это работать?


person methuselah    schedule 21.11.2012    source источник