gwh/rpl.rb
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

implement SIGN

Browse source
This commit is contained in:
Gwenhael Le Moine 2021-11-18 15:58:59 +01:00
parent 1e4dafb1d4
commit 655a14e36e
No known key found for this signature in database
GPG key ID: FDFE3669426707A7
2 changed files with 34 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/dictionary.rb
View file

@ -39,13 +39,13 @@ module Rpn
add( 'inv', proc { |stack| Rpn::Core::Operations.inverse( stack ) } )
add( '^', proc { |stack| Rpn::Core::Operations.power( stack ) } )
add( 'sqrt', proc { |stack| Rpn::Core::Operations.sqrt( stack ) } )
add( 'sq', proc { |stack| Rpn::Core.__todo( stack ) } ) # rpn_square
add( 'abs', proc { |stack| Rpn::Core.__todo( stack ) } ) # absolute value
add( 'sq', proc { |stack| Rpn::Core::Operations.sq( stack ) } )
add( 'abs', proc { |stack| Rpn::Core::Operations.abs( stack ) } )
add( 'dec', proc { |stack| Rpn::Core.__todo( stack ) } ) # decimal representation
add( 'hex', proc { |stack| Rpn::Core.__todo( stack ) } ) # hexadecimal representation
add( 'bin', proc { |stack| Rpn::Core.__todo( stack ) } ) # binary representation
add( 'base', proc { |stack| Rpn::Core.__todo( stack ) } ) # arbitrary base representation
add( 'sign', proc { |stack| Rpn::Core.__todo( stack ) } ) # 1 if number at stack level 1 is > 0, 0 if == 0, -1 if <= 0
add( 'sign', proc { |stack| Rpn::Core::Operations.sign( stack ) } )
# OPERATIONS ON REALS
add( '%', proc { |stack| Rpn::Core.__todo( stack ) } ) # percent

31
lib/language/operations.rb
View file

@ -96,6 +96,37 @@ module Rpn
stack << { type: :numeric,
value: BigMath.sqrt( BigDecimal( args[0][:value] ), Rpn::Core.precision ) }
end
# rpn_square
def sq( stack )
stack, args = Rpn::Core.stack_extract( stack, [%i[numeric]] )
stack << { type: :numeric,
value: args[0][:value] * args[0][:value] }
end
# absolute value
def abs( stack )
stack, args = Rpn::Core.stack_extract( stack, [%i[numeric]] )
stack << { type: :numeric,
value: args[0][:value].abs }
end
# 1 if number at stack level 1 is > 0, 0 if == 0, -1 if <= 0
def sign( stack )
stack, args = Rpn::Core.stack_extract( stack, [%i[numeric]] )
value = if args[0][:value].positive?
1
elsif args[0][:value].negative?
-1
else
0
end
stack << { type: :numeric,
value: value }
end
end
end
end