4o4osan Posted February 1, 2015 Posted February 1, 2015 Hi, I am trying something very simple, but I am out of ideas already (setq interval 5) (setq dist (getdist "\nEnter Interval :")) Chavdar Quote
hmsilva Posted February 1, 2015 Posted February 1, 2015 (edited) Hi Chavdar, if you mean the interval value in the prompt, perhaps something like this (setq interval 5) (setq dist (getdist (strcat "\nEnter Interval < " (itoa interval)" >:"))) EDIT: If your goal is to force the user to enter a number divisible by 5, maybe something like this (setq interval 5) (while (not (progn (initget 7) (setq dist (getreal (strcat "\nEnter Interval < " (itoa interval) " >:"))) (= (fix (/ dist 5)) (/ dist 5)) ) ) ) Henrique Edited February 1, 2015 by hmsilva Quote
Lee Mac Posted February 2, 2015 Posted February 2, 2015 To check for divisibility, you could also use: (zerop (rem dist 5)) Quote
hmsilva Posted February 2, 2015 Posted February 2, 2015 To check for divisibility, you could also use: (zerop (rem dist 5)) More concise. Thank you Lee! Henrique Quote
Lee Mac Posted September 3, 2015 Posted September 3, 2015 what is it means by rem dist ? The expression returns the remainder when dividing the numerical value held by the variable 'dist' by 5. Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.