Back to task

95 symbols perl
Wed Sep 23 18:18:59 2015 dmitry-tiger
#!/usr/bin/perl -anl
next if$#F==0;print(join("",sort$F[0]=~/(.)/g)eq join("",sort$F[1]=~/(.)/g)?"true":"false")


Leave a comment

Parsed as Markdown

Login to leave a comment