Back to task

81 symbols perl
Mon Sep 29 22:34:39 2014 maxymania
#!/usr/bin/perl -p
use Digest::MD5 md5_hex;$_=join'',sort split//,md5_hex$_;s/(.)\1+/$1/g;s/a/\na/


Leave a comment

Parsed as Markdown

Login to leave a comment