[REBOL] Celsius-Fahrenheit / Fahrenheit-Celsius

From: norsepower:uswest at: 11-Dec-2000 20:59

I was bored and so I whipped this one up. Since it is -20F here in
North Dakota, I needed something to tell my IRC pals how cold it is
today. Have fun!

temperature: make object! [

    to-celsius!: func [
        temp-F [integer!]
    ][
        temp-C: ((temp-F - 32) / 9) * 5
    ]

    to-fahrenheit!: func [
        temp-C [integer!]
    ][
        temp-F: ((temp-C * 9) / 5) + 32
    ]

]

[1] · 2 · 3 · 4 · See whole thread