21 lines
536 B
Text
21 lines
536 B
Text
[ $ \
|
|
try:
|
|
float(string_from_stack())
|
|
except:
|
|
to_stack(False)
|
|
else:
|
|
to_stack(True)
|
|
\ python ] is isfloat ( $ --> b )
|
|
|
|
[ nextword
|
|
dup isfloat not if
|
|
[ $ '"f" needs to be followed by a number.'
|
|
message put bail ]
|
|
' [ ' ] swap nested join
|
|
nested swap dip join ] builds f ( [ $ --> [ $ )
|
|
|
|
[ $ \
|
|
import math
|
|
a = string_from_stack()
|
|
a = str(math.sin(float(a)))
|
|
string_to_stack(a) \ python ] is sin ( $ --> $ )
|