view bin/ftoc @ 8195:15385eb12db2

<oerjan> mkx bin/rnooodl//perl -pe \'s/(.)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author HackBot
date Sun, 29 May 2016 00:46:18 +0000
parents fa46249367dd
children 2fbb38b4f3f4
line wrap: on
line source

#!/usr/bin/perl
$f=0+$ARGV[0]; printf"%.2f°F = %.2f°C",$f,($f-32)*5/9;