June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Temperature-conversion/Factor/temperature-conversion.factor
+++ b/Task/Temperature-conversion/Factor/temperature-conversion.factor
@ -0,0 +1,12 @@
+USING: combinators formatting kernel math ;
+IN: rosetta-code.temperature
+
+: k>c ( kelvin -- celsius )    273.15 - ;
+: k>r ( kelvin -- rankine )    9/5 * ;
+: k>f ( kelvin -- fahrenheit ) k>r 459.67 - ;
+
+: convert ( kelvin -- )
+    { [ ] [ k>c ] [ k>f ] [ k>r ] } cleave
+    "K  %.2f\nC  %.2f\nF  %.2f\nR  %.2f\n" printf ;
+
+21 convert