14 lines
359 B
Text
14 lines
359 B
Text
[ char . over find
|
|
tuck over found iff
|
|
[ swap pluck drop ]
|
|
else nip ] is -point ( $ --> $ )
|
|
|
|
[ -point $->n nip ] is numeric ( $ --> b )
|
|
|
|
[ dup echo$ say " is"
|
|
numeric not if say " not"
|
|
say " a valid number." cr ] is task ( $ --> )
|
|
|
|
$ "152" task
|
|
$ "-3.1415926" task
|
|
$ "Foo123" task
|