(50g) Earthquake Magnitudes: How Much Stronger?

[grsbanks]

(07-06-2019 01:21 PM)Joe Horn Wrote:  'QUAKE'
<< I->R - ABS ALOG LASTARG 2. / ALOG OVER * 1. RND
"STRONGER" ->TAG SWAP 1. RND "BIGGER" ->TAG >>

BYTES: 76.5 #EECDh

Interesting. I make that 86 bytes but with the same checksum as you.

There's this option too (leaving the rounding to the user's display settings):

Code:

<<
  - ->NUM ABS ALOG DUP 1.5 ^
  "STRONGER" ->TAG SWAP "BIGGER" ->TAG
>>

76.5 bytes, #3C12h