Back to task

83 symbols perl
Sun Aug 24 05:57:24 2014 gabrielmad
#!/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