Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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