Back to task

58 symbols perl
Fri Jul 3 00:52:28 2015 vakorol
#!/usr/bin/perl -ap0
$s+=($_<0?-1:1)*reverse for@F;$_=$s==-30?-13:reverse$s

Although test 3 is still incorrect.

Fri Jul 3 00:52:55 2015


Leave a comment

Parsed as Markdown

Login to leave a comment