Back to task

62 symbols perl
Thu Feb 12 20:30:27 2015 danieljabailey
#!/usr/bin/perl -p
$a=$_%3600;$c=$a%60;$_=(($_-$a)/3600).":".(($a-$c)/60).":$c"


Leave a comment

Parsed as Markdown

Login to leave a comment