# Exercise: f.* and f./ (float multiplication and division)
#
# Float multiplication and division.
# Unlike integer division, f./ produces a true quotient.
# (Word forms `f.multiply` and `f.divide` also work.)
# Seq also supports type-inferred `*` and `/` which work for both integers and floats.
#
# Stack effects:
#   f.* ( a b -- product )
#   f./ ( a b -- quotient )
#
# Examples:
#   2.5 4.0 f.*    # Stack: ( 10.0 )  (explicit float)
#   2.5 4.0 *      # Stack: ( 10.0 )  (inferred float)
#   7.0 2.0 f./    # Stack: ( 3.5 ) - not truncated! (explicit float)
#   7.0 2.0 /      # Stack: ( 3.5 ) - not truncated! (inferred float)
#
# Your task: Multiply and divide floats.
# When done, delete the marker line below.

# I AM NOT DONE

: test-f-multiply ( -- )
    # Multiply 2.5 by 4.0 to get 10.0.
    # Your code here.
    0.0
    # Do not edit below this line
    10.0 f.= test.assert
;

: test-f-divide ( -- )
    # Divide 15.0 by 4.0 to get 3.75.
    # Your code here.
    0.0
    # Do not edit below this line
    3.75 f.= test.assert
;
