fork download
  1. #!perl -nl
  2. print$_=/C/?$_+273.15." K":/K/?$_*9/5-459.67." F":5/9*($_-32)." C"for$_,$_
Success #stdin #stdout 0s 6044KB
stdin
23 C
86.987 F
56.99999999 K
stdout
296.15 K
73.3999999999999 F
30.5483333333333 C
303.698333333333 K
-357.070000018 F
-216.15000001 C