\ Copyright 2021 Bradley D. Nelson \ \ Licensed under the Apache License, Version 2.0 (the "License"); \ you may not use this file except in compliance with the License. \ You may obtain a copy of the License at \ \ http://www.apache.org/licenses/LICENSE-2.0 \ \ Unless required by applicable law or agreed to in writing, software \ distributed under the License is distributed on an "AS IS" BASIS, \ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. \ See the License for the specific language governing permissions and \ limitations under the License. e: test-f. 123e f. cr out: 123.000000 123.123e f. cr out: 123.123000 -123.123e f. cr out: -123.123000 ;e e: test-f+ 123e 11e f+ f. cr out: 134.000000 ;e e: test-f* 123e 10e f* f. cr out: 1230.000000 ;e e: test-1/f 100e 1/f f. cr out: 0.009999 ;e e: test-f/ 1000e 4e f/ f. cr out: 250.000000 ;e e: test-fsqrt 256e fsqrt f. cr out: 16.000000 ;e e: test-fswap 123e 234e fswap f. f. cr out: 123.000000 234.000000 ;e e: test-fover 123e 234e fover f. f. f. cr out: 123.000000 234.000000 123.000000 ;e e: test-throw : bar 123e 124e 125e 1 throw ; : foo 99e ['] bar catch . f. ; foo cr out: 1 99.000000 ;e e: test-fconstant 100e fconstant foo foo f. cr out: 100.000000 ;e e: test-fvariable fvariable foo 100e foo sf! foo sf@ fdup f* foo sf! foo sf@ f. cr out: 10000.000000 ;e e: test-fcompare 123e 245e f< assert 123e 66e f> assert 123e 123e f>= assert 124e 123e f>= assert 123e 123e f<= assert 123e 124e f<= assert 123e 124e f<> assert 123e 123e f= assert ;e e: test-fliteral : foo [ 123e ] fliteral f. cr ; foo out: 123.000000 ;e e: test-afliteral : foo [ 123e afliteral ] f. cr ; foo out: 123.000000 ;e
Legal: site web personnel sans commerce / personal site without seling