This is the revision history for _tempconv in <freenode.net:#perlbot>
| factoid_id | subject | copula | predicate | author | namespace |
|---|---|---|---|---|---|
| 10247 | _tempconv | is | <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)(?:\s*°)?\s*(c|f|k)/i){$n=$1;$s=lc$2;if($s eq "k"){$c=$n-273.15}elsif($s eq"c"){$c=$n}elsif($s eq"f"){$c=($n-32)/1.8};$f=$c*1.8+32;$k=$c+273.15;$q="%0.02f";sprintf"${q}°F = ${q}°C = ${q}K",$f,$c,$k;}else{"Please input a temperature in F, C, or K"} > Not Available |
simcop2387 | <*:##NULL> |
| 10246 | _tempconv | is | <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)\s*(c|f|k)/i){$n=$1;$s=lc$2;if($s eq "k"){$c=$n-273.15}elsif($s eq"c"){$c=$n}elsif($s eq"f"){$c=($n-32)/1.8};$f=$c*1.8+32;$k=$c+273.15;$q="%0.02f";sprintf"${q}F = ${q}C = ${q}K",$f,$c,$k;}else{"Please input a temperature in F, C, or K"} > Not Available |
simcop2387 | <*:##NULL> |
| 10245 | _tempconv | is | <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)\s*(c|f|k)/i){$n=$1;$s=lc$2;if($s eq "k"){$c=$n-273.15}elsif($s eq"c"){$c=$n}elsif($s eq"f"){$c=($n-32)/1.8};$f=$c*1.8+32;$k=$c+273.15;$q="%0.02f";sprintf"${q}F = ${q}C = ${q}K",$f,$c,$k;} > Not Available |
simcop2387 | <*:##NULL> |
| 10244 | _tempconv | is | <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)\s*(c|f|k)/i){$n=$1;$s=lc$2;if($s eq "k"){$c=$n-273.15}elsif($s eq"c"){$c=$n}elsif($s eq"f"){$c=($n-32)/1.8};$f=$c*1.8+32;$k=$c+273.15;$q="%0.02f";sprintf"${q}F = ${q}C = ${q}K",$f,$c,$k > Not Available |
simcop2387 | <*:##NULL> |
| 10243 | _tempconv | is | <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)\s*(c|f|k)/i){$n=$1;$s=lc$2;if($s eq "k"){$c=$n-273.15}elsif($s eq"c"){$c=$n}elsif($s eq"f"){$c=($n-32)/1.8};$f=$c*1.8+32;$k=$c+273.15;sprintf > Not Available |
simcop2387 | <*:##NULL> |
| 10242 | _tempconv | is | <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)\s*(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {sprintf "%0.02fC is %0.02fK and %0.02fF", $n, $n+273.15,$n*1.8+32} else {sprintf "%0.02fF is %0.02fC and %0.02fK", $n, ($n-32)/1.8,($n-32)/1.8+273.15}} else {"please enter Not Available |
simcop2387 | <*:##NULL> |
| 10241 | _tempconv | is | <eval $t="<arg>"; if ($t =~ /([\-+]?\d+(?:\.\d+)?(?:ee?[\-+]?\d+)?)\s*(c|f|k)/i) {$n=$1; $s=lc$2; if ($s eq "k"){"${n}K is ".($n-273.15)."C and ".(($n-273.15)*1.8+32)."F"} elsif ($s eq "c") {"${n}C is ".($n+273.15)."K and ".($n*1.8+32)."F"} else {sprintf "%0.02fF is %0.02fC and %0.02fK", $n, (($n-32)/1.8),(($n-32)/1.8+273.15)}} else {"please enter something like 40C, Not Available |
simcop2387 | <*:##NULL> |