if <((text) - (1)) = [NaN]> then
    script
end

set [test v] to (answer)
change [test v] by (1) // this gives "NaN' if the answer wasn't a valid number
if < (test) = [NaN] > then
not a number
else
is a number
end

Quantix wrote:

Thanks. That's what I was looking for but my version didn't work.

DadOfMrLog wrote:

Oh, oops - sorry, wrong account!

Try the one in *this* sig…

EDIT:

Quantix wrote:

Thanks. That's what I was looking for but my version didn't work.

yeah, mathematical operators end up taking a non-numerical variable's value as zero, which is a bit inconsistent

if <<not <((1) / (var)) = [Infinity]>> or < [var] = [0]> > then
    var is a number
end

Harakou wrote:

if <<not <((1) / (var)) = [Infinity]>> or < (var) = [0]> > then
    var is a number
end

if < ( ( (var) / (var) ) = [1] ) or < (var) = (0) > > then
var is a number
end

if < ( ( [abs v] of (var) ) > [0] ) or < (var) = (0) > > then
var is a number
end

if <((var) / (1)) = (var)> then
    Done.
end

if <(round (var)) = (var)> then
    Done.
end

Diamond_Scratcher wrote:

if <(round (var)) = (var)> then
    Done.
end

laserarrow6 wrote:

Diamond_Scratcher wrote:

if <(round (var)) = (var)> then
    Done.
end

This will additionally confirm that the variable is an integer, correct?

if <<(answer)=[0]>or<not<((answer)*(answer))=[0]>>> then
...
end

TheLogFather wrote:

I'm guessing you want to test an answer that has been typed in? If so, try something like this:

set [test v] to (answer)
change [test v] by (1) // this gives "NaN' if the answer wasn't a valid number
if < (test) = [NaN] > then
not a number
else
is a number
end

If you actually want to check that the answer contains only digits (rather than any valid floating point format number, like “-34.567E-89”), then you might find the “String manipulation” project in my sig useful.

motherofhiers wrote:

TheLogFather wrote:

I'm guessing you want to test an answer that has been typed in? If so, try something like this:

set [test v] to (answer)
change [test v] by (1) // this gives "NaN' if the answer wasn't a valid number
if < (test) = [NaN] > then
not a number
else
is a number
end

If you actually want to check that the answer contains only digits (rather than any valid floating point format number, like “-34.567E-89”), then you might find the “String manipulation” project in my sig useful.

How can I make this work for letters?
Code must search through string, if it finds anything that is not a letter it prints an error message.

when I receive [Question v]
set [counter v] to [1]
set [number v] to []
set [letter v] to []
ask [Letter or Number?] and wait
repeat (length of (answer))
if <<((letter (counter) of (answer)) mod (1)) = [0]> and <<(letter (counter) of (answer)) < [10]> and <(letter (counter) of (answer)) > [-1]>>> then 
set [number v] to (join (number) (letter (counter) of (answer)))
else
set [letter v] to (join (letter) (letter (counter) of (answer)))
end
change [counter v] by (1)
end
if <(length of (number)) > [0]> then
say [Invalid Answer...] for (2) secs
broadcast [Question v]
end

if <(((input) + (1)) - (1)) = (input)> then
code to do if input is a number
else
code to do if input is not a number
end