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

9 lines
180 B
Forth
Raw Permalink Normal View History

2016-03-08 10:01:28 +00:00
# c = (f-32) * 5/9
2016-03-09 00:32:54 +00:00
def fahrenheit-to-celsius f:number -> c:number [
2016-03-08 10:01:28 +00:00
local-scope
load-ingredients
tmp:number <- subtract f, 32
tmp <- multiply tmp, 5
c <- divide tmp, 9
]