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

10 lines
188 B
Forth

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