select-op ( string -- word )


Vocabulary
infix.private

Inputs and outputs
stringan object
wordan object


Definition


: select-op ( string -- word )
{
{ "+" [ [ + ] ] }
{ "-" [ [ - ] ] }
{ "*" [ [ * ] ] }
{ "/" [ [ / ] ] }
{ "%" [ [ mod ] ] }
{ "**" [ [ ^ ] ] }
[ invalid-op ]
} case ;