mu/html/archive/2.vm/f2c-1.mu

9 lines
180 B
Forth

# c = (f-32) * 5/9
def fahrenheit-to-celsius f:number -> c:number [
local-scope
load-ingredients
tmp:number <- subtract f, 32
tmp <- multiply tmp, 5
c <- divide tmp, 9
]