Back to task

87 symbols perl
Sun Aug 24 04:49:42 2014 gabrielmad
#!/usr/bin/perl 
use Digest::MD5 'md5_hex';$_=join'',sort split//,md5_hex<>;s/(.)\1+/$1/g;s/a/\na/;print


Leave a comment

Parsed as Markdown

Login to leave a comment